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MEMORANDUM  FOR  RECORD 

SUBJECT:  Analysis  of  Force  Potential  (AFP) 


1.  In  October  1983  CAA  initiated  a  major  developmental  effort  to  provide 
new  static  measures  of  the  combat  potentials  of  equipment  and  major 
organizations.  The  resulting  AFP  System  is  central  to  a  new  method  for 
Measuring  Improved  Capabilities  of  Army  Forces  (MICAF). 

2.  This  guide  provides  a  detailed  description  of  the  AFP  System  and  its 
components. 
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ANALYSIS  OF  FORCE  POTENTIAL  SYSTEM 
(AFPSYS) 


STUDY 

SUMMARY 

CAA-D-84-14 


THE  REASON  FOR  PERFORMING  THE  STUDY  is  primarily  widespread  dissatisfaction 
with  previous  combat  potential  estimation  methods  that  do  not  give  enough 
attention  to  influences  noted  below  in  the  study  objectives. 

THE  PRINCIPAL  FINDINGS  during  AFP  System  development  and  implementation  and 
as  evidenced  by  illustrative  examples  in  the  Operator's  and  Programer's 
Guide  to  the  AFP  System  and  by  the  parallel  MICAF  Study  application  are: 

(1)  All  modules,  submodules,  and  special  processors  of  the  AFP  System  for 
estimating  the  static  combat  potential  of  equipment  and  organizations  have 
been  tested  and  perform  as  designed. 

(2)  AFP  estimates  of  static  combat  potentials  depend  on  input  to  the  AFP 
System  and  are  sensitive  to  opposing  sides'  weapon  characteristics,  weapon 
quantities,  type-on-type  engagement  preferences,  environmental  conditions, 
and  combat  support  and  combat  service  support  levels. 

(3)  Full  application  of  the  AFP  System  is  labor,  data,  and  computer 
intensive. 

THE  MAIN  ASSUMPTIONS  for  purposes  of  estimating  static  combat  potentials: 

(1)  The  large-scale  battlefield  may  be  decomposed  into  separate  firepower- 
counterf  irepower,  combat  support,  and  combat  service  support  processes. 
These  processes  may  be  analyzed  largely  independently.  Their  separate 
results  may  be  combined  afterward  to  yield  estimates  of  combat  potentials. 

(2)  Total  division  firepower-counterfirepower  processes  may  be  decomposed 
into  pure  weapon  type  on  pure  weapon  type  engagements.  The  engagements  may 
be  further  decomposed  into  still  smaller  matchups  in  which  at  least  one 
weapon  opposes  one  or  more  weapons.  Only  indirect,  area  fire  weapons  may 
impinge  on  the  interaction  of  otherwise  pure  type-on-type  "duels."  The 
usual  techniques  of  dynamic  modeling  and  simulation  need  not  be  applied 
except  to  the  independent  duels  of  relatively  short  duration. 

(3)  Movement  and  maneuver  need  not  be  represented  within  the  firepower- 
counterf  irepower  process.  Tactical  mobility  may  be  treated  adequately 
within  the  combat  support  and  combat  service  support  processes.  Duels  are 
distributed  to  fixed  ranges. 

THE  PRINCIPAL  LIMITATIONS 

(1)  Like  all  static  indicators,  AFP  combat  potentials  may  be  inappropriate 
bases  for  estimating  prolonged,  fluid  combat. 
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(2)  Because  AFP  combat  potentials  depend  on  weighted  averages  for  16  dis¬ 
tinct  combat  environments,  the  potentials  may  not  be  useful  estimators  for 
differently  weighted  or  different  environments.  For  example,  interest  in 
just  one  of  the  combat  environments  implies  a  vastly  different  weighting: 
just  one  1.0  and  15  0.0's. 

(3)  AFP  combat  potentials  are  estimates  of  achievement  for  the  very 
special  circumstance  in  which  one's  own  weapons  are  50  percent  attrited. 
(This  is  why  AFP  combat  potentials  are  often  called  "half-life 
potentials.")  In  general,  the  potentials  do  not  correspond  to  any  one 
common  moment  in  projected  real  time  because  different  weapon  types  do  not 
reach  50  percent  survival  at  the  same  instant. 

(4)  In  its  current  implementation,  the  AFP  System  does  not  represent 
suppression  nor  the  effects  of  echelons  above  division  (other  than  some 
nondivisional  artillery  and  some  fixed  wing  aircraft). 

THE  SCOPE  OF  THE  STUDY  included  development  and  implementation  of  the  AFP 
System  and  parallel  support  of  the  MICAF  Study.  The  Operator's  and 
Programer's  Guide  to  the  AFP  System  provides  a  wealth  of  information  needed 
in  maintaining  and  applying  the  AFP  System.  Some  applications  of  the  AFP 
System  have  been  made  in  support  of  other  studies.  In  particular,  the 
MICAF  I  and  II  Studies  depended  heavily  on  AFP,  and  AFP  "results"  may  be 
found  in  the  MICAF  I  and  II  reports. 

THE  STUDY  OBJECTIVES  are  to  develop  and  demonstrate  (via  the  parallel  MICAF 
application  study)  a  new  method  for  estimating  the  static  combat  potential 
of  equipment  and  organizations.  That  method  is  to  depend  more  directly  on 
quantitative  data,  full  division  inventories  of  opposing  equipment,  combat 
support,  combat  service  support,  and  wider  range  of  combat  environments 
than  in  previous  approaches. 

THE  BASIC  APPROACH  of  AFP  is  to  begin  with  a  highly  stylized  abstraction  of 
the  battlefield,  decompose  the  battlefield  into  separate  processes,  provide 
extensive  input  data  to  drive  those  processes,  and  then  operate  a  system  of 
specially  developed  computer  programs  which  replicate  estimates  of  kills 
and  losses  for  16  different  combat  environments,  project  those  estimates  to 
half-lives,  modify  the  estimates  in  accord  with  support  levels,  and  roll  up 
everything  into  final  estimates  of  combat  potential. 

THE  STUDY  SPONSOR  is  the  Director,  CAA. 

THE  STUDY  EFFORT  was  directed  by  Mr.  Gerald  E.  Cooper,  Strategy,  Concepts 
and  Plans  Directorate.  All  directorates  contributed. 

COMMENTS  AND  QUESTIONS  may  be  directed  to  US  Army  Concepts  Analysis  Agency, 
ATTN:  Assistant  Director  for  Requirements  and  Resources,  8120  Woodmont 
Avenue,  Bethesda,  MD  20814-2797 
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OPERATOR'S  AND  PROGRAMER'S  GUIDE  TO  THE  ANALYSIS  OF  FORCE 
POTENTIAL  SYSTEM  (AFPSYS) 


I.  INTRODUCTION 


1.  The  purpose  of  this  volume  is  to  provide  operator/programer  documenta¬ 
tion  of  the  Analysis  of  Force  Potential  System  (AFPSYS)  data,  computer  pro¬ 
grams,  and  procedures  for  estimating  and  often  comparing  the  combat  poten¬ 
tial  of  Army  equipment  and  organizations  (currently  up  to  and  including 
division  level). 

2.  The  complete  AFPSYS  includes  a  wide  variety  of  input  data  files  from 
several  sources;  utility  programs  for  converting  input  to  forms  better 
suited  for  use  within  AFPSYS;  major  program  modules  for  estimating  combat, 
combat  support,  and  combat  service  support  results,  and  for  merging  such 
results  for  a  single  combat  environment;  a  major  program  module  for  merging 
the  results  of  16  combat  environments  into  complete  estimates  of  combat 
potential;  modules  for  comparing  combat  potentials  among  equipment  types 
and  among  different  organizations;  and  utility  programs  for  managing  files 
and  generating  runstreams.  AFPSYS  runs  under  the  normal  UNIVAC  1100-series 
computer  operating  system-  AFPSYS  modules  and  utilities  are  written  in 
ASCII  FORTRAN,  COBOL,  and  SYMSTREAM,  a  language  peculiar  to  the  UNIVAC  SSG 
processor. 


II.  SCOPE 


3.  This  volume  provides  reference  material  for  the  execution  of  AFPSYS. 

It  includes  information  necessary  for  an  operator/programer  to  modify 
existing  data,  generate  data  for  "new"  equipment  or  organizations,  create 
new  file  names  and  the  corresponding  files,  and  execute  utilities  and  pro¬ 
gram  modules.  The  main  part  of  this  volume  is  very  short;  it  provides 
little  more  than  a  short  description  of  AFP  in  general  and  an  index  to  the 
volume's  appendices  which  provide: 

a.  A  diagram  of  the  complete  system  with  some  discussion  of  the 
notation  and  implications  of  the  diagram:  Appendix  B.  The  diagram 
provides  the  "road  map"  for  the  following  appendices. 

b.  A  key  to  the  data  preprocessing  utility  programs:  Appendix  C. 

c.  A  description  of  the  Combat  Module:  Appendix  D. 

d.  A  description  of  the  Combat  Support/Combat  Service  Support  Module 
and  its  preprocessor  program:  Appendix  E. 

e.  A  description  of  the  module  for  the  merge  of  combat/combat  support/ 
combat  service  support  results  for  a  single  combat  environment:  Appendix 

F. 

f.  A  description  of  the  module  for  merging  a  single  organization's 
results  over  all  16  combat  environments:  Appendix  G. 
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g.  A  description  of  the  programs  for  comparing  different  organizations: 
Appendix  H. 

h.  A  description  of  a  special  procedure  for  estimating  the  combat  po¬ 
tential  of  an  organization  "between"  two  organizations  for  which  results 
are  already  known  (i.e.,  AFP  interpolation):  Appendix  I. 

i.  A  key  to  the  various  reports  producible  throughout  execution  of 
AFPSYS:  Appendix  J. 

j.  A  key  to  the  AFPSYS  approach  to  runstream  management  via  the 
SYMSTREAM  language  of  the  UNIVAC  SSG  processor:  Appendix  K. 


III.  VIEWPOINT 

4.  It  is  assumed  that  an  operator/programer  is  going  ahead  with  an  AFPSYS 
application.  This  volume  does  not  argue  for  or  against  the  AFP  approach. 

It  does  not  replay  consideration  of  the  relative  merits  of  static  and 
dynamic  approaches  to  the  estimation  of  combat  potential.  It  is  assumed 
that  the  operator/programer  is  familiar  with  the  UNIVAC  operating  system, 
and  with  the  FORTRAN,  COBOL,  and  SYMSTREAM  programing  languages.  Even 
then,  the  new  operator/programer  should  have  the  services  of  someone 
already  experienced  in  operation  of  AFPSYS  and  in  the  interpretation  of 
results . 

5.  Many  AFPSYS  parameters  were  set  at  the  beginning  of  system  development 
with  the  prospect  of  changing  their  values  in  order  to  improve  the 
reliability  of  results  and/or  speed  of  system  execution.  However, 
debugging  of  the  AFP  Combat  Module  consumed  so  much  time  and  energy  that 
too  little  time  and  resource  were  left  for  "improvements."  The  AFP  team 
believes  that  improvements  are  desirable  and  achievable.  For  example,  if 
run  times  of  the  main  modules  can  be  reduced  enough,  the  AFP  interpolation 
process  can  be  discarded.  In  a  sense,  a  change  of  an  AFPSYS  system 
parameter  defines  a  new  AFPSYS.  Indeed,  in  that  view,  there  is  a  family  of 
imaginable  AFP  systems.  Certainly  not  all  members  of  that  family  would  be 
equally  useful  and  efficient.  There  may  be  some  optimal  member  of  the 
family.  Unfortunately,  no  good  procedure  exists  at  this  time  for  finding 
that  best  member.  However,  some  effort  should  be  devoted  to  finding 
parameters  that  permit  the  system  to  evolve  to  steadily  better  performance. 


IV.  AFP  IN  GENERAL 

6.  AFP  provides  a  new  way  to  estimate  the  combat  potential  of  weapons  and 
units.  However,  like  several  earlier  measures,  AFP  estimates  of  combat 
potential  fall  in  that  broad  class  known  as  "static  measures."  Among  other 
things,  that  means  that  relatively  little  of  the  dynamics  of  warfare  is 
treated  explicitly  within  AFP.  Indeed,  the  AFP  method  is  not  now  nor  was 
it  ever  intended  to  involve  what  is  usually  called  "combat  simulation."  On 
the  other  hand,  the  AFP  method  does  estimate  attrition,  survival,  and, 
hence,  exchange  ratios  from  very  short  duration  sampling  of  highly  stylized 
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duels.  Still,  CAA  prefers  to  insist  that  AFP  is  not  a  simulation  nor  a 
model  in  the  usual  senses  of  those  terms. 

7.  The  AFP  approach  is  asserted  to  be  superior  to  earlier  "static"  efforts 
because  explicit  attention  is  given  to  the  level  and  mix  of  weapons  in  both 
the  US  and  threat  units  or  forces  faced  off  in  each  of  16  distinct  combat 
environments.  Also,  AFP  explicitly  approximates  impacts  of  combat  support 
and  combat  service  support  (CS/CSS).  The  CS/CSS  approximation  remains  cruder 
than  CAA  would  like  it  to  be,  but  it  is  the  best  that  can  be  done  given  the 
current  state  of  knowledge  of  the  matter. 

8.  AFP  has  been  limited  to  divisions  versus  divisions  with  only  some  air¬ 
craft  included  from  among  all  the  resources  above  division  level.  In  the 
long  run,  CAA  is  committed  to  address  many  more  higher  level  resources. 

9.  AFP,  then,  is  certainly  more  broadly  based  than  its  static  measure 
predecessors.  In  practice,  as  shown  in  Figure  1,  it  has  been  necessary  to 
split  apart  the  total  combat/CS/CSS  process  and  address  those  pieces  separ¬ 
ately  before  combining  the  combat  and  CS/CSS  results  into  the  grand  esti¬ 
mate  of  combat  potential  —  in  the  last  step  of  the  AFP  process.  This  bold 
splitting  of  the  total  process  is  reflected  by  the  three  blocks  within  the 
larger  AFP  block  in  Figure  1.  The  next  paragraph  begins  a  little  deeper 
look  into  each  of  the  three  blocks  within  that  larger  AFP  block. 
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Figure  1.  The  Analysis  of  Force  Potential  (AFP)  System  in  Outline 
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a.  First,  the  AFP  Combat  Module.  Only  firepower  and  counterf irepower 
(less  suppression)  are  represented  in  the  AFP  Combat  Module.  As  suggested 
in  the  upper  left  corner  of  Figure  2,  combat  is  represented  by  a  matrix  of 
possible  matchups.  Up  to  60  weapon  types  on  each  side  may  be  paired 
against  opposing  weapons--against  just  one  opponent  type  or  against  all 
types.  Weapon  types  are  assigned  to  12  weapon  categories,  largely  as  a 
bookkeeping  convenience,  but,  in  principle,  a  weapon  from  any  category  may 
engage  or  be  engaged  by  a  weapon  in  any  other  category--subject,  of  course, 
to  AFP-imposed  constraints.  Each  cell  of  the  matchup  matrix  may  lead  to  a 
distinct  type-on-type  battle.  One  such  battle  is  suggested  in  the  center 
of  the  diagram.  One  model  of  US  tanks  opposes  one  model  of  threat  tanks. 
(Different  models  of  tanks  are  permitted  within  AFP,  but  each  model -versus- 
model  matchup  leads  to  a  separate  matrix  cell  and,  hence,  a  separate  mini¬ 
battle.  A  so-called  minibattle  may  engage  from  a  few  to  several  hundred 
tanks.)  In  the  minibattle,  the  tanks  are  subdivided  over  up  to  five  ranges 
from  250  to  2,500  meters.  During  the  course  of  a  minibattle  nothing  moves 
from  one  range  to  another.  However,  the  weapons  are  "fired"  subject  to  a 
probabilistic  treatment  of  detection,  firing  time,  and  "killing."  By  now 
everyone  is  probably  wondering  why  the  artillery  symbols  are  included  in 
the  tank-on-tank  snapshot.  The  AFP  Combat  Module  subjects  the  direct  fire 
weapons  to  the  possibility  of  attrition  from  indirect  fire  within  the  scope 
of  minibattles.  Some  weapons  may  be  assigned  to  a  sixth,  so-called  "deep 
range."  Tanks  so  assigned  cannot  fire  at  one  another  because  of  the  great 
range,  but  they  may  be  targets  of  indirect  fire  weapons.  Units  in  reserve 
or  moving  up  to  engage  occupy  the  "deep  range."  The  tanks  are  at  a  dis¬ 
advantage  inasmuch  as  they  are  not  permitted  to  engage  the  up  to  10  types 
of  indirect  firers  that  may  be  pounding  away.  However,  some  of  the  in¬ 
direct  fire  weapons  are  committed  to  counterbattery  minibattles  which  may, 
in  the  long  run,  reduce  the  amount  of  indirect  fire  inflicted  on  the 
tank-versus-tank  and  other  direct  fire  minibattles.  Subject  to  AFP-imposed 
constraints,  survivors  may  engage  in  later  minibattles.  The  results  of 
minibattles  are  estimates  of  survival,  loss,  and  exchange  ratio  as  sug¬ 
gested  by  the  two-dimensional  sample  plot  at  the  lower  right  of  the  figure. 
Starting  strengths  and  results  of  all  minibattles  for  all  matchups  and 
repetitions  of  matchups  are  saved  for  use  in  the  later  steps  of  the  AFP 
process. 
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Major  Steps  in  the  AFP  Combat  Module 
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b.  In  the  meantime,  a  separate  AFP  module  is  busy  generating  CS/CSS 
factors  for  the  functions  shown  in  the  upper  left  corner  of  Figure  3.  De¬ 
pending  on  the  specific  function,  both  measures  and  countermeasures  for 
both  sides  may  be  estimated  as  suggested  in  the  center  of  Figure  3.  The 
estimates,  depending  on  the  function,  are  based  on  independently  derived 
capabilities  and  requirements,  as  appropriate.  A  requirement  may  be  re¬ 
garded  as  primarily  one-sided  in  the  sense  that  a  maintenance  requirement 
depends  mostly  on  the  quantity  and  quality  of  one's  own  assets.  Or  it  may 
be  regarded  as  two-sided  in  the  sense  that  the  quantity  and  quality  of  the 
opponent's  assets  and  activities  are  the  primary  drivers.  Capability 
depends  on  the  quantity  of  one's  people  or  equipment  (also  on  the  quality 
of  equipment).  The  factors  for  the  separate  CS/CSS  functions  may  be  in¬ 
dexed  or  normed  relative  to  some  base  unit  or  year  and  are  then  combined 
dependent  on  weapon-versus-weapon  considerations  and  on  environment  as 
suggested  at  the  lower  right  corner.  The  combined  factors  are  identified 
by  the  somewhat  esoteric  term  "CS/CSS  moduli."  These  moduli  are  saved  for 
combination  with  results  of  the  Combat  Module  in  the  later  steps  of  the  AFP 
process. 


Figure  3.  Major  Steps  in  the  AFP  Combat  Support/Combat 
Service  Support(CS/CSS)  Module 
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c.  Figure  4  is  intended  to  suggest  how  the  previously  generated  AFP 
partial  results  become  summed  into  final  measures  of  combat  potential  of 
the  "Blue"  side.  In  principle,  for  summation  over  all  weapons  and  environ¬ 
ments,  there  may  be  more  than  50,000  expressions  such  as  the  one  shown 
here.  It  is  the  job  of  the  final  AFP  module  to  retrieve  the  previously 
saved  partial  results,  combine  the  terms  correctly,  and  sum  the  results  of 
the  expression  shown  for  all  type-on-type  engagements  and  for  16  distinct 
environments  and  possibly  many  replications.  Summation  over  replications 
implies  division  by  the  number  of  replications.  Because  the  AFP  process  is 
fully  two-sided,  computations  similar  to  those  suggested  in  Figure  4  are 
also  performed  for  the  "Red"  side. 


(1)  The  term,  RED  LOSSES,  is  an  estimate  fed  from  the  Combat  Module 
for  the  particular  type-on-type  engagement  (here  symbolized  by  "TT"). 

(2)  That  term  is  multiplied  by  the  CS/CSS  modulus  for  that  type-on- 
type  duel  from  the  CS/CSS  Module. 

(3)  In  turn,  that  product  is  multiplied  by  the  number  of  Blue  weapons 
allocated;  this  term  and  all  the  others  like  it  come  from  the  Combat 
Module.  All  estimates  of  threat  losses  are  projected  to  the  same  assumed 
fractional,  clock,  or  resource  lifetime  of  the  friendly  weapon  type.  In 
AFP  work  to  date,  combat  potential  has  been  estimated  through  the  first 
half  of  total  lifetime,  the  first  2  weeks  of  combat,  or  the  expenditure  of 
a  basic  load  of  munitions,  depending  on  the  equipment  types. 

(4)  Combat  potentials  consist  of  five  components:  personnel,  light 
armored  vehicles,  heavy  armored  vehicles,  aircraft,  and  scalar.  The  kill 
of  a  target,  in  general,  contributes  target-type  dependent  amounts  to  the 
five  components.  The  multiplier  "target  value"  makes  the  appropriate  ad¬ 
justment.  On  option,  certain  other  weapons  (e.g.,  small  arms)  may  be 
included  with  the  "personnel"  components  of  potentials. 

(5)  Because  not  all  combat  environments  are  equally  important  or 
likely,  another  multiplier  expressing  the  relative  weight  by  environment  is 
applir'J.  On  option,  the  four-valued  measure  may  be  weighted  by  target 
values,  and  the  "personnel"  component  may  include  other  weapons. 

(6)  And  finally,  the  preceding  intermediate  result  is  divided  by  the 
Blue  losses  of  the  given  type  over  all  engagements  involving  that  Blue 
weapon  type. 


7 


MIJI  flPl.E  SUMMATION  (1225!) 

OVER  DIVISION  FOR  ALL  TYPE  VS  TYPE  CONBINA1 1  ON3 , 
ALL  ENVIRONMENTS,  AND  ALL  REPLICATIONS 
FOR  DIRECT  FIRE  5CORE5 


CAA-D-84-14 


■D  3 


CMiS 


uj  U  ►- 

~  ^  iii 


-  > 

Vw*' 

cn 

LU 

X 

a. 

> 

1 

i— 

I— 

© 

LU 

Q 

o 

S 

— 

>> 

z 

cn 

>- 

1— 

cn 

cn  = 
cn  3 
u  X 

■s.  55 

D 

O 

LU 

U 

< 

< 

o 

h- 

O 

a 

a 

o 

8  Z 

CL 

UJ 

U 

CL 

LU 

C 

u 

n 

UJ 

X 

>■ 

a 

uj  z 

H- 

tn 

UJ 

< 

* 

< 

« 

cn 

Uj 

< 

z  o 

uj  Z 

<1 
o  £ 

cn 

cn 

O 

o 

cn 

tn 

c 

> 

< 

Si 

UJ 

• 

-j 

cn 

a  in 

Q 

H- 

o 

uj 

>  LU 

UJ 

cn 

s 

_u 

•7  3 i 

a 

a 

LU 

cn 

cn 

LU 

*4 

a 

Z 

0  ± 

LU 

3 


z 

a 

z 

X 

< 

Z 


x 


cn 

jj 

cl 

o 

u 

cn 

Z 

< 

cn 


a 

o 

u 

cn 

LU 

U. 

h- 

U 

LU 

CL 


< 

I— 

Z 

LU 

H- 

o 

Q. 

K 

< 

z 
o 
u 
z 
|  o 

z  2 

z  > 
£  a 


c 

cn 


c 

z 

in 

c 


^  -  ; 

s 

cn  <  | 

uj  ~  o 

2  2  cn 

U.  LU  Ct 

H-  LU 

>“  Q  Q, 

u  g  ^ 

uj  “■ 

a  n 


S  o 
2|, 
<  < 
t>! 
£<■ 


8 


Figure  4.  Symbolic  Representation  of  AFP  Merge  (CBT  with  CS/CSS)  and 
Rollup  (Over  16  Combat  Environments)  Process 
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d.  There  is  more  to  the  last  AFP  module  than  is  shown  in  Figure  4. 

Some  averaging  over  multiple  engagements  may  be  performed  and  the  calcula¬ 
tion  shown  in  Figure  4  for  a  Blue  division  combat  potential  has  a  counter¬ 
part  for  the  threat.  Other  system  features  permit  scores  for  individual 
weapons  to  be  generated.  Also,  scores  without  CS/CSS  modulation  may  be 
produced.  Either  partial  or  total  scores  may  be  produced  for  personnel, 
light  armor,  heavy  armor,  and  aircraft  target  classes  separately  in  a  four¬ 
valued  static  measure  or  rolled  up  into  a  single-valued  weighted  measure. 

10.  Sixteen  combat  environments  may  seem  an  unncessarily  large  variety  to 
include  within  the  scope  of  normal  AFP  estimation  of  combat  potentials.  On 
the  other  hand,  16  combat  environments  provide  a  rather  limited  set  of  com¬ 
binations  of  the  conditions  and  their  levels  which  may  influence  combat 
outcomes  within  a  specific  theater. 

a.  From  among  all  t~he"possible  light  levels,  AFP  represents  only  two: 
day  and  night. 

b.  From  among  all  the  possible  levels  of  obscuration,  AFP  represents 
only  two:  clear  and  degraded. 

c.  From  among  all  commonly  defined  postures,  AFP  represents  only  four: 
Red  Attack  of  Blue  Prepared  Defense  (RAPD),  Static,  Red  Attack  against  Blue 
Delay  (RADE),  and  Blue  Attack  of  Red  Prepared  Defense  (BAPD). 

d.  From  among  all  possible  starting  division  ratios,  AFP  represents 

just  four  (Red  divisions:Blue  divisions):  4:1  3:1,  1:1,  and  1:3. 

e.  AFP  weapons  may  be  shooters  or  targets  or  both.  As  a  shooter  or  as 
a  target,  a  weapon  may  be  open  or  in  defilade,  and  it  may  be  stationary  or 
movi ng. 

f.  From  among  all  possible  ranges  at  which  weapons  may  engage,  AFP 
represents  just  five  at  which  direct  fire  weapons  may  shoot  plus  another 
deep  range  at  which  they  may  be  targeted  without  returning  fire. 

g.  Although,  in  principle,  almost  any  kind  of  weapon  can  engage  almost 
any  kind  of  weapon,  few  AFP  weapons  engage  more  than  15  opposing  types. 
Nevertheless,  there  could  be  60x60  distinct  type-on-type  matchups. 

11.  An  exhaustive  examination  of  all  the  combinations  of  factors  identi¬ 
fied  in  paragraph  5  could,  in  the  extreme,  lead  to  as  many  as  2x2x4x4x2x2x 
2x6x60x60x2  ~  20  million  "combat  outcomes."  Examination  of  all  these  is  at 
once  impossible  and  unnecessary.  Clearly  the  AFP  approach  must  ignore  the 
vast  majority  of  combinations.  Indeed,  the  official  table  of  16  combat 
environments  is  as  shown  in  Fiqure  5  The  environmental  characteri sties 
shown  in  Figure  5  reflect  AFP  policy,  not  experimental  results  or  interna¬ 
tional  rules  of  engagement.  Notice,  for  example,  that  the  RAPD  posture  is 
always  represented  at  a  3:1  Red  to  Blue  division  starting  ratio.  Although 
not  shown  in  Figure  5,  range  distribution  and  type-on-type  weapon 
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preferences  do  depend  on  posture  but  do  not  vary  for  the  same  type-on-type 
pairing  within  a  posture.  Nevertheless,  the  data  demands  of  AFP  are 
enormous.  Detection  and/or  single  shot  probability  of  kill  (SSPK)  data 
vary  by  open/defilade,  day/night,  moving/stationary,  shooter/weapon/round, 
range,  and  target  types.  On  the  other  hand,  such  basic  data  as  refire 
times  depend  only  on  the  shooter/weapon/round  type.  The  basic  data  do  not 
depend  on  the  numbers  of  targets  (except  for  indirect  fire).  Hence,  volume 
of  AFP  fire  may  be  expected  to  depend  directly  on  the  numbers  of  firers 
with  powerful  effects  on  killing  rates,  which  in  turn  affect  survival  rates 
(doing  unto  the  opponent  before  it  can  do  unto  you),  and  hence,  exchange 
ratios. 
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Figure  5.  Characteristics  of  the  16  AFP  Combat  Environments 


12.  The  following  paragraphs  highlight  some  worrisome  aspects  of  the  AFP 
approach. 

a.  In  AFP,  a  weapon  type  can  run  up  a  high  score  only  by  killing  much 
more  than  it  loses.  And  because  kills  are  credited  at  different  values, 
killing  tanks  and  aircraft  earns  higher  scores  than  does  killing  small 
arms.  Weapons  do  not,  within  AFP,  earn  points  for  suppression  or  diversion 
of  opposing  fires.  In  particular,  counterbattery  fire  typically  gets 
little  credit  in  AFP  analyses.  Counterbattery  fire  only  rarely  kills  an 
opposing  indirect  fire  weapon.  The  fact  that  counterbattery  fire  forces 
opposing  firers  to  move  more  frequently  is  neither  credited  nor  represented 
explicitly.  The  refire  times  input  to  AFP  presumably  reflect  some  averaged 
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effect  of  counterbattery  activity,  but  slower  enemy  firing  rates  do  not 
directly  accrue  credit  to  counterbattery  weapons.  To  a  degree,  counter¬ 
battery  fire  by  one  side  forces  an  opponent  to  engage  in  similar  activity. 
Hence,  counterbattery  fire  diverts  some  weapons  from  killing  softer,  perhaps 
valuable,  other  targets.  AFP  does  not  credit  counterbattery  weapons  with 
equipment  and  lives  so  "saved."  However,  the  weapons  saved  do,  in  principle, 
achieve  higher  scores  because  they  survive  longer.  Thus,  some  of  the  value 
of  counterbattery  weapons  shows  up  in  the  scores  of  other  weapons. 

b.  The  AFP  process  may  be  viewed  as  a  sampling  of  many  of  the  events 
possible  between  opposing  divisions.  But  in  AFP  practice,  only  a  small 
fraction  of  the  possible  events  may  be  represented.  On  the  theoretical  AFP 
battlefield,  some  weapon  type  might  meet  at  least  one  of  each  of  60  oppos¬ 
ing  weapon  types  at  each  of  five  or  six  ranges.  Just  one  each  of  these 
possibilities  requires  360  distinct  AFP  duels.  Yet  all  AFP  direct  fire 
duels  are  mutually  exclusive  in  the  sense  that  no  direct  fire  weapon  can 
perform  in  two  or  more  AFP  duels  concurrently.  In  this  sense,  there  must 
be  360  of  a  weapon  type  before  360  duels  may  be  sampled  one  each.  It  is 
not  necessary  that  all  360  possibilities  be  tried.  However,  many  division 
weapons  exist  at  less  than  360  items  per  division.  A  statistician  would 
like  to  have  many  duels  against  each  weapon  type  and  at  each  range  of  in¬ 
terest  A  seemingly  modest  request  for  20  duels  against  10  weapon  types  at 
each  of  4  ranges  requires  20  x  10  x  4  =  800  weapons  before  the  statistician 
begins  to  feel  comfortable.  Very  few  major  weapon  systems  populate  divi¬ 
sions  to  the  level  of  800  items.  The  replicative  approach  does  not  elimi¬ 
nate  all  such  problems. 

c.  Low  density  weapons  produce  another  AFP  difficulty.  The  problem  is 
clear  in  a  trivial  extreme.  Suppose  a  division  contains  only  one  item  of 
weapon  type  Z.  Weapon  type  Z  may  only  kill  opposing  weapon  type  A  and  may 
only  be  killed  by  weapon  type  B.  The  solitary  weapon  of  type  Z  can  parti¬ 
cipate  in  only  one  duel.  If  Z  duels  A,  Z  cannot  be  killed.  If  Z  duels  B, 

Z  cannot  kill.  Because  of  AFP  weapon  allocation  rules,  replication  does 
not  help  solve  this  problem.  Even  if  there  are  10  weapons  of  type  Z,  a 
problem  remains.  The  AFP  analyst/user  must  know  in  advance  how  to  divide 
those  10  weapons  between  Z-A  and  Z-B  duels.  This  problem  is  not  exactly 
the  same  for  direct  and  indirect  fire  weapons.  Indirect  firers  can  be 
killed  only  as  a  result  of  counterbattery  duels.  Indirect  firers  kill  best 
in  other  than  counterbattery  roles.  Let  Y  be  a  modern  Blue  indirect  fire 
weapon  system;  a  typical  division  may  have  only  nine  of  weapon  Y.  The  AFP 
process  works  best  for  weapons  numbering  in  the  hundreds  and  which  can  kill 
each  other  directly.  Only  nine  of  a  weapon  provides  an  allocation  dilemma. 

13.  Because  AFP  estimated  combat  potentials  depend  strongly  on  exchange 
ratios,  the  AFP  method  can  be  very  sensitive  to  weapon  qualities  and 
quantities — up  to  a  point.  For  some  weapons  against  some  targets  at  some 
ranges  in  some  combat  environments,  the  result  may  be  very  one-sided.  It 
may  be  so  one-sided  that  more  or  better  weapons  for  one  side  may  make  no  or 
only  little  difference  in  outcome.  Within  the  constraints  of  static  analy¬ 
sis,  AFP  has  been  developed  to  be  sensitive  to  very  many,  but  hardly 
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all,  the  possibly  crucial  aspects  of  combat.  In  short,  AFP  is  often  said 
to  be  context  sensitive.  Indeed  it  is,  but  that  also  means  that  it  may  be 
more  or  less  sensitive  to  the  same  input  changes  also  depending  on  context, 
e.g.,  combat  environment  with  all  that  implies  about  posture,  division 
ratio,  range,  weapons,  and  the  like.  Figure  6  summarizes  some  of  the  fac¬ 
tors  which  are  and  are  not  represented  and  reflected  in  any  modules  and  in 
the  AFP  indices  of  combat  potential.  The  extent  to  which  disregard  of  the 

listed  factors  degrades  the  usefulness  of  AFP  indices  of  combat  potential 
remains  unknown.  Disregard  of  the  same  factors  for  both  sides  almost  cer¬ 
tainly  does  not  "average  out"  for  different  divisions  in  different  numbers, 
with  different  objectives  and  doctrine,  and  in  different  postures.  Although 
the  AFP  method  is  symmetric  in  its  treatment  of  both  sides,  the  input  values 
are  not  identical  for  both  sides.  AFP  indices  then  must  be  regarded  as 
being  displaced  in  unknown  directions  by  unknown  amounts.  Hence,  the  or¬ 
dering  of  some  output  values  differing  by  only  small  amounts  may  be  reversed. 
Replications  of  the  AFP  Combat  Module  yield  estimates  of  variances  of  many 
components  of  AFP  combat  potentials.  Inasmuch  as  so  many  possible  sources 
of  variance  are  disregarded  in  the  AFP  process,  the  variances  output  by  AFP 
probably  grossly  underestimate  battlefield  variations. 


AFP  INDICES  DO  REFLECT 


•  QUANTITY  AND  QUALITY  OF  MANY  KINDS 
OF  ITEMS,  E.G. ,  TANKS,  ARTILLERY 


•  QUANTITY  OF  PERSONNEL  MANNING/ 
SUPPORTING  OPERATION  OF  ITEMS 

•  SOME  PARTS  OF  ABILITY  TO  ACCOMPLISH 
FUNCTIONS  (I.E.,  COMMO,  EW) 

•  PERFORMANCE  CHANGES  RESULTING  FROM 
ENVIRONMENTAL  CONDITIONS  (CRUDELY) 


•  EFFCTS  OF  SUPPORT  ON  SHORT-TERM 
SUSTAINMENT 

•  SOME  FACTORS  SUCH  AS  WPN-TO-TGT 
ALLOCATIONS  WHICH  CAN  CRUDELY 
REPRESENT  TACTICAL  DOCTRINE 


AFP  INDICES  DO  NOT  REFLECT 


•  NUMBER  OR  QUALITIES  OF  SOME 
OF  ITEMS,  E.G. ,  MAINT  SHOP  SETS 


•  QUALITY,  MORALE,  LEADERSHIP,  AND 
TRAINING 

•  COMMAND  ASPECTS  OF  CONTROL 
FUNCTIONS 

•  DETAILED  PERFORMANCE  DIFFERENCES 
RESULTING  FROM  SUPPORT  OF  COUNTER¬ 
MEASURES,  ETC. 

•  EFFECTS  OF  SUPPORT  ON  LONG-TERM 
SUSTAINMENT 

•  DIFFERENCES  IN  TACTICAL  DOCTRINE 
IN  DETAIL 


Figure  6.  Indices  —  "Do's  and  Dont's" 
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14.  The  AFP  approach  depends  on  many  assumptions.  The  development  team 
inherited  a  variety  of  guidelines  that  appeared  to  have  been  based  on  some¬ 
one's  combination  of  experience  and  intuition.  The  origins  of  these  guide¬ 
lines  were  never  documented.  AFP's  inclusion  of  specific  combat,  combat 
support,  and  combat  service  related  factors  seems  beyond  dispute.  AFP's 
exclusion  of  many  probably  related  factors  remains  questionable.  AFP's 
treatment  of  the  included  factors  has  not  been  proved  correct  by  the  pre¬ 
ferred  standards  of  scientific  inquiry.  On  the  other  hand,  its  methods  and 
results  have  been  scrutinized  in  varying  degrees  by  analysts  of  consider¬ 
able  and  significant  experience.  No  one  has  been  fully  satisfied.  How¬ 
ever,  the  collective  and  probably  balanced  opinion  to  date  is  that  AFP 
treats  a  wider  range  of  combat  environments  (16)  including  division  ratios 
(4:1  to  1:3),  postures  (4),  brightness  (2),  including  division  ratios  (4:1 
to  1:3)  postures  (4),  brightness  (2),  and  visibility  (2)  with  more  reason¬ 
able  results  in  the  large  than  other  known  efforts  at  estimation  of  static 
combat  potential.  The  following  subparagraphs  list  many  of  the  AFP  assump¬ 
tions,  guidelines,  and  axioms. 

a.  The  usual  techniques  of  dynamic  modeling  and  simulation  are  not 
applied  except  to  very  small  engagements  over  short  time  intervals. 

b.  Large-scale  combat  may  be  decomposed  into  separate  firepower- 
counterf  irepower,  combat  support,  and  combat  service  support  processes. 
These  processes  may  be  analyzed  largely  independently,  and  their  results 
may  be  combined  largely  afterward. 

c.  Gross  direct  fire  division  combat  may  be  decomposed  into  pure 
weapon-type-on-weapon-type  engagements.  Such  engagements  may  be  further 
decomposed  into  smaller  matchups  in  which  at  least  one  weapon  opposes  one 
or  more  weapons.  Only  indirect  fire  weapons  may  impinge  on  the  interaction 
of  otherwise  pure  type-on-type  "duels." 

d.  In  AFP  work  to  date,  higher  echelon  fires  and  support  have  been  ig¬ 
nored.  (Later  generation  AFP  is  to  include  echelons  above  division.) 

e.  Movement  and  maneuver  are  not  represented  within  the  Combat  Module. 
Duels  are  distributed  to  fixed  ranges.  Opposing  weapons  that  survive  are 
assumed  to  remain  at  those  ranges  throughout  an  AFP  "day."  SSPKs  are  ad¬ 
justed  for  moving  targets.  However,  the  difficulties  of  detecting  aircraft 
within  a  lobed  three-dimensional  space  are  consistently  underestimated. 

The  AFP  battle  space  remains  essentially  one-dimensional  for  all  direct 
fire  weapons. 

f.  An  AFP  combat  day  consists  of  four  2.01-minute  intervals.  An  AFP 
combat  run  consists  of  2  AFP  combat  days. 

q.  Direct  fire  weapons  may  not  fire  until  normal  detection  occurs  or 
until  they  have  been  fired  upon  a  specified  number  of  times  by  the  opposing 
direct  fire  weapon(s). 

h.  A  direct  fire  weapon  which  annihilates  its  opponents  in  a  duel  can¬ 
not  shift  its  fire  to  similar  opponents  at  the  same  range  until  the  next 
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duel.  (A  duel  occupies  one  2.01-minute  interval.)  A  direct  fire  weapon 
may  not  shift  its  fire  to  another  range  or  to  another  type  opponent  until 
the  next  AFP  day.  This  scheme  for  holding  and  switching  targets  tends  to 
mix  the  squared  and  linear  law  flavors  of  simplest  Lancester  theory.  The 
extent  of  the  mixing  depends  on  the  rates  of  fire  and  lethalities  of 
rounds.  Quickly  terminating  duels  tend  more  toward  linear  flavor  over 
successive  duels.  Duels  terminating  near  2.01  minutes  or  more  tend  more 
toward  squared  flavor  in  the  long  run. 

i.  Input  engagement  preferences  and  the  opposing  inventories  at  the  be¬ 
ginning  of  AFP  days  determine  the  numbers  of  weapons  of  each  type  meeting 
enemy  weapons  of  each  type.  Type-on-type  duels  are  then  forced  to  occur  at 
very  nearly  those  type-on-type  odds.  Hence,  duels  at  much  worse  than  aver¬ 
age  odds  tend  to  be  rare.  The  effect  usually  benefits  relatively  slow- 
firing  weapons  with  relatively  high  SSPKs.  Replication  of  the  AFP  Combat 
Module  does  not  affect  the  tendency  for  duels  to  occur  at  very  nearly  aver¬ 
age  odds. 

j.  Weapons  are  assumed  to  replenish  ammo  between  duels.  The  effect  is 
negligible  for  weapons  which  do  not  expend  much  of  their  on-board  ammo  be¬ 
tween  during  a  duel.  The  assumption  is  to  the  advantage  of  one-  or  two- 
shot  weapons,  for  example. 

k.  AFP  combat  potentials  depend,  among  other  things,  on  both  estimated 
kills  and  target  values.  Estimated  kills  are  an  intermediate  AFP  result. 
Target  values  are  an  AFP  input.  To  date  it  has  not  been  practical  to  im¬ 
plement  a  method  in  which  target  values,  too,  are  an  AFP  result. 

l.  AFP  combat  potentials  depend  on  both  kills  and  losses.  Indeed, 
exchange  ratios  are  key  terms  in  the  computation  of  potentials.  Notice, 
that  an  exchange  ratio  is  an  estimate  of  how  many  kills  may  be  achieved  if 
the  weapon  type  represented  in  the  second  part  of  the  ratio  is  run  down  to 
zero  survival.  In  that  sense,  the  exchange  ratio  is  a  measure  (usually 
extrapolated)  of  the  lifetime  killing  potential  of  a  weapon.  There  are 
obvious  objections  to  measures  of  full  lifetime  potential.  Few  forces 
fight  to  their  own  total  depletion.  For  many  weapons,  projection  to  full 
lifetime  potential  involves  imprudent  extrapolation  to  a  distant  future  far 
beyond  the  limits  of  known  results.  AFP  employs  estimates  of  fractional 
lifetimes  for  most  weapons.  For  those  weapons,  AFP  potentials  provide  an 
estimate  of  kills  achievable  for  loss  of  half  of  one's  weapons.  Indeed, 
the  term  half-life  potential  is  sometimes  employed  within  AFP.  Depending 
on  the  weapon,  half-life  estimation  may  involve  extrapolation  or  interpola¬ 
tion  from  results  of  the  AFP  Combat  Module.  It  is  important  to  note  that 
different  weapons  will  not  reach  their  half  lives  at  the  same  battlefield 
moment.  For  this  reason,  AFP  potentials  are  sometimes  called  asynchronous 
potentials— i .e. ,  estimates  for  different  weapons  at  constant  life  frac¬ 
tions  but  different  calendar  time.  Some  potentials  (for  indirect  fire  and 
SAMs,  for  example)  are  estimated  differently.  Indirect  fire  potentials 
reflect  estimated  kills  achievable  within  two  weeks  of  combat.  SAM  kills 
represent  estimates  of  kills  achievable  by  the  in-theater  supply  of 
missiles. 
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m.  Within  the  AFP  Combat  Module,  indirect  fire  weapons  "fire"  only  dur¬ 
ing  the  standard  2.01  minute  intervals.  That  means  those  weapons  fire  only 
8.04  minutes  per  AFP  day  at  very  nearly  intense  rates.  AFP  makes  a  post- 
Combat  Module  adjustment  to  indirect  fire  results  under  the  assumption  that 
indirect  fire  weapons  would  have  fired  their  normal  daily  loads  and  identi¬ 
cal  effects  per  round. 

n.  Final  AFP  combat  potentials  are  weighted  sums  across  16  combat  en¬ 
vironments.  A  result  from  a  single  combat  environment  is  called  a  partial 
combat  potential.  Weighted  summation  may  produce  the  same  final  potential 
for  divisions  with  different  partial  potentials.  From  the  AFP  potential 
point  of  view,  the  two  divisions  are  equally  "good"  or  "bad"  on  (weighted) 
average.  Yet  no  one  would  want  to  use  the  divisions  interchangeably,  given 
any  better  prior  knowledge  of  environment  on  one's  own  or  the  enemy's  part. 
Here,  "to  use"  involves  not  just  battlefield  choice  but  also  choice  in  fur¬ 
ther  combat  analyses  and  force  comparisons  where  combat  environments  differ 
markedly. 

15.  This  section  has  been  about  AFP  in  general  and  is  not  a  summary  of 
this  guide.  The  complete  guide  is  primarily  a  collection  of  appendices  and 
annexes  for  AFP  system  operators  and  programers.  The  contents  are  organized 
by  major  and  minor  module.  Unclassified  examples  of  input,  output,  run- 
streams,  and  programs  are  included.  Production  versions  of  some  parts  must 
necessarily  differ  from  the  examples  shown  in  order  to  achieve  secure  pro¬ 
cessing.  Examples  shown  may  include  obsolete  user  IDs;  it  was  easier  to 
retain  the  IDs  current  at  documentation/example  time  than  to  issue  new 
examples  every  time  a  user  changed. 


V.  ORGANIZATION  OF  GUIDE 

16.  Application  of  the  complete  AFP  System  involves  preparation  of  many 
different  data  sets  specific  to  the  System's  different  modules,  preparation 
of  module  runstreams,  execution  of  modules,  and  review  of  output.  Some  of 
the  output  of  a  module  may  become  input  to  another  module.  Some  modules 
may  be  executed  many  times  during  a  "single"  system  application  and  within 
a  single  runstream.  Finding  particular  information  about  these  AFP  matters 
within  this  guide  to  AFP  may  be  difficult.  Several  reference  aids  are  pro¬ 
vided. 


a.  At  the  highest  level,  the  guide  is  organized  by  module  and  submodule 
(with  some  extras).  The  tables  of  contents  reflect  this  macrostructure. 

b.  Figure  7  is  the  official  "road  map"  to  the  AFP  System  and  its  docu¬ 
mentation.  It  goes  a  step  beyond  macrostructure.  Figure  7  shows  which 
parts  of  the  documentation  correspond  to  which  parts  of  the  AFP  System. 
Similar  figures  appear  at  the  beginnings  of  many  appendices  to  help  orient 
the  reader.  Figure  7  includes  many  clues  to  the  names  of  programs,  data 
sets,  runstream  generaors,  runstreams,  and  reports.  The  clues  are  not 
described  here,  but  they  will  gain  in  value  as  an  operator  or  programer 
uses  the  guide. 
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c.  Although  each  AFP  module  is  different  from  the  others,  the  descrip¬ 
tions  of  the  modules  follow  a  common  pattern;  hence,  this  guide's  principal 
appendices  and  annexes  are  similarly  organized  in  the  following  order: 
OVERVIEW,  INPUT,  OUTPUT,  RUNSTREAM,  and  PROGRAM. 
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Figure  7.  Key  to  Descriptions  of  Principal  Data,  Modules,  Other  Components, 
and  Products  of  the  Analysis  of  Force  Potential  (AFP)  System 
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(1)  Overview.  A  module  (or  submodule  or  special  processor)  overview 
describes  a  module's  position  to  the  AFP  System  in  total.  Some  of  the 
overviews  include  background  information.  For  example,  the  overview  for 
the  Firepower/Counterf irepower  Module  (Combat  Module)  in  Appendix  D  delves 
into  a  philosophy  of  combat  representation  and  interpretation  especially 
useful  for  AFP  purposes. 

(2)  Input.  A  module's  input  data  are  described  (apart  from  "input" 

to  the  modules 's  runstream  generator)  in  more  or  less  detail  as  appropriate. 
Examples  of  input  records  may  be  included.  Input  generated  as  the  output 
of  another  module  or  process  may  be  described  more  fully  for  the  generating 
program  than  for  the  receiving  program.  Appendix  C  provides  a  key  to  the 
locations  of  preprocessor  descriptions.  Most  of  the  AFP  System's  prepro¬ 
cessors  involve  preparation  of  input  data.  Hence,  Appendix  C  is  also  a  key 
to  discusssions  of  much  of  AFP  input.  The  central  table  of  Appendix  C  is 
included  here  as  Table  1.  The  input  to  the  Combat  Module  is  so  extensive 
and  involves  so  many  preprocessors  that  the  "input"  paragraphs  of  Appendix 
D  (on  the  Combat  Module)  are  limited  to  a  keyed  guide  to  separate  annexes 
containing  the  details  of  the  corresponding  data  and  preprocessors. 

(3)  Output.  A  module's  output  data  are  described  (apart  from  output 
of  the  module's  runstream  generator)  in  more  or  less  detail.  In  most 
cases,  examples  are  provided.  Some  output  are  optional.  Output  may 
include  intermediate  or  final  results,  diagonostic  information,  or  simply 
copies  for  record.  Appendix  J  provides  a  key  to  the  locations  of 
descriptions  or  examples  of  principal  AFP  output.  The  central  table  of 
Appendix  J  is  reproduced  here  as  Table  2. 

(4)  Runstream.  Most  of  the  AFP  System's  modules  may  be  executed 
using  runstreams  producible  by  runstream  generators  written  for  the  UNIVAC 
SSG  processor.  A  generator,  if  it  exists  for  a  given  module,  is  described 
in  the  runstream  section.  As  a  minimum,  the  SGS  section  of  the  generator 
is  discussed.  In  some  cases,  the  SKELeton  section  is  also  described.  In 
ideal  AFP  production,  only  SGSs  need  be  changed.  In  practice,  many  situa¬ 
tions  arise  in  which  it  is  most  convenient  to  modify  the  SKELeton  section 
as  well.  In  other  words,  the  generators  shown  are  not  perfectly  general 
and  should  be  regarded  as  specific  examples  subject  to  change  as  necessary 
or  convenient.  The  UNIVAC  system  editor  is  the  obvious  choice  for  making 
global  changes  of  user  IDs,  for  example.  Most  runstream  descriptions 
include  one  or  more  examples  of  generated  runstreams.  Any  example  run¬ 
stream  is  necessarily  specific  to  some  single  run.  Some  runstream 
generators  include  an  option  to  produce  a  runstream  as  an  @ADD  or  an  @START 
element.  Single  execution  of  some  runstream  generators  may  produce  several 
runstreams  for  separate  executions  of  one  or  more  modules.  Appendix  K  pro¬ 
vides  a  key  to  the  locations  of  descriptions  and  examples  of  runstream 
generators  and  generated  runstreams.  The  central  table  of  Appendix  K  is 
reproduced  here  as  Table  3. 


17 


CAA-D-84-14 


Table  1.  Key  to  Preprocessor  Descriptions 


Preprocess(or) 

Block  # 
in  Fig  7 

Parent 

module 

Location  of  main  description 
or  other  related  material 

Prepare  range 
distributions 

1 

Combat 

Annex  III  to  Appendix  D 

Prepare  participation 
factors 

2 

Combat 

Annex  V  to  Appendix  D 

Prepare  casualty  factors  3 

Combat 

Annex  IV  to  Appendix  D 

Prepare  SSPKs 

4 

Combat 

Annex  VI  to  Appendix  D 

Prepare  weapon-on- 
weapon  preferences 

5 

Combat 

Annex  II  to  Appendix  D 

Prepare  artillery  data 

6 

Combat 

Annex  I  to  Appendix  D 

Annex  VIII  to  Appendix  D 

Prepare  inventories  and 
related  data 

7 

Combat 

Annex  I  to  Appendix  D 

Prepare  sensor  data 

8 

Combat 

Annex  I  to  Appendix  D 

PREFGEN 

12 

Combat 

Annex  VII  to  Appendix  D 

RNGDSTGEN 

12 

Combat 

Annex  VII  To  Appendix  D 

PKSGEN 

12 

Combat 

Annex  VII  to  A  ~ndix  D 

PROJGEN 

12 

Combat 

Annex  VII  to  Appendix  D 

PRECSCSS 

9 

CS/CSS 

Annex  I  to  Appendix  E 
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Record  copy  or 
report 

Block  # 
in  Fig  7 

Related 

process 

Location  of  descriptions 
and/or  examples 

Basedata 

6-8 

Combat 

preproc 

Annex  I  to  Appendix  D 
Annex  VIII  to  Appendix  D 

Weapon  on  weapon 
preferences 

5 

Combat 

preproc 

Annex  II  to  Appendix  D 

Range  distribution 

1 

Combat 

preproc 

Annex  III  to  Appendix  D 

Casualty  factors 

3 

Combat 

preproc 

Annex  IV  to  Appendix  D 

Participation  factors  and  2 

engagement  characteristics 

Combat 

preproc 

Appendix  V  to  Appendix  D 

SSPKs 

4 

Combat 

preproc 

Annex  VI  to  Appendix  D 

Allocation  "scoreboard" 

21 

Combat 

preproc 

Appendix  D,  paragraph 
D-4c 

Killer/victim  scoreboard  20 

Combat 

preproc 

Appendix  D,  paragraph 
P-4d 

Quality  assurance  report  19 

(QAREP ) 

Combat 

Appendix  D,  paragraph 
D-4e 

CS/CSS  input 

9 

CS/CSS 

preproc 

Annex  I  to  Appendix  E 

CS/CSS  factors 

10 

CS/CSS 

preproc 

Annex  I  to  Appendix  E 
Annex  II  to  Appendix  E, 
Figure  E-II-9 

Special  CS/CSS  Module 

15 

CS/CSS 

Module 

Annex  II  to  Appendix  E, 
Figures  E - I I -2-8 

CS/CSS  moduli 

14 

CS/CSS 

Module 

Annex  II  to  Appendix  E, 
Figure  E-II-10 
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Table  2.  Key  to  AFP  Output  Record  Copy  and 
Report  Examples  and  Descriptions 
(page  2  of  2  pages) 


Record  copy  or 
report 

Block  # 
in  Fig  7 

Related 

process 

Location  of  descriptions 
and/or  examples 

Special  Merge  Module  input  16 

(CVALS  and  FRACTS) 

CBT/CS/ 
CSS  Merge 
Module 

Appendix  F,  Figures 

F-3  and  F-4 

Raw  combat  report 

17 

CBT/CS/  Appendix  F,  Figure  F-5 

CSS/Mearge 

Module 

Partial  combat 
potenti als 

18 

CBT/CS/ 

CSS/Merge 

Module 

Appendix  B,  Figure  B-7 
Appendix  F,  Figure  F-6 

Final  combat 
potential s 

24 

Rollup 
&  Stats 
Module 

Appendix  B,  Figure  B-6 
Appendix  G,  Figure  G-3 

Statistical  reports 

24 

Rol 1  up 
&  Stats 
Module 

Undocumented 

Division  comparison 

25 

Division 

Compare 

Reporter 

Appendix  H,  Figure  H-3 

Interpolated  final 
combat  potentials 

28 

Interpo- 
1 ation 
Module 

Appendix  I,  Figure  1-3 
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Descriptions  and  Examples 
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Runstream 

Block  # 
in  Fig  7 

Related 

process 

Location  of  descriptions 
and/or  examples 

Prepare  combat 
module  input  (many) 

1-8 

Combat 

preproc 

Annexes  I-VI  to  Appendix  D 

Prepare  CS/CSS  input 

9 

CS/CSS 

preproc 

Annex  I  to  Appendix  E 

GENMRGSSG/SKEL 

16 

CS/CSS 

Annex  II  to  Appendix  E 

MAINSSG/SKELREP 

MAINSSG/SGS 

11 

Combat 

Module 

Appendix  D,  paragraph 

D-4 

GENMRGSSG/SKEL 

16 

CBT/CS/  Appendix  F,  paragraph  F-4 

CSS  Merge 

LONGROLLSSG/SKELOPTSX 

data 

22 

Rol 1  up 
&  Stats 

Appendix  G,  Section  IV 

Example  only 

25 

Division 

Compare 

Reporter 

Appendix  H,  paragraph 

H-4 

INTERPSSG/SKEL 

26 

Interpo- 
1  at  ion 
Module 

Appendix  I,  Section  IV 

(5)  Program.  The  final  sections  or  paragraphs  of  an  appendix  or 
annex  on  a  module  or  submodule  are  usually  a  description  of  the  correspond¬ 
ing  computer  program  in  whole  or  in  part.  The  description  may  include  a 
general  discussion,  a  logic  flow  diagram,  source  listing,  definitions  and 
indexing  of  principal  arrays,  line-by-line  comments,  and  MAP  element,  as 
appropri ate. 
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APPENDIX  B 
THE  AFP  SYSTEM 


B-l.  OVERVIEW 

a.  Figure  B-l  presents  the  AFP  system  at  the  level  of  nondetail  usually 
sufficient  for  executives  and  system  users.  At  that  level,  the  AFP 
approach  may  be  viewed  simply  as  a  one-time  decomposition  of  combat  from 
combat  support  and  combat  service  support,  independent  one-time  processing 
within  the  corresponding  modules,  and  finally  a  merge  of  CBT/CS/CSS  results 
to  yield  equipment  and  organizational  combat  potentials.  There  is  a  clue 
in  Figure  B-l  to  something  more  complicated.  The  term  "ROLL  UP"  within  the 
MERGE  and  ROLL  UP  Module  implies  that  just  maybe  the  results  of  several 
applications  of  the  Combat  Module  (routinely,  16  distinct  executions  and 
sometimes  as  many  as  160),  and  the  CS/CSS  Module  (usually  only  four 
executions)  must  be  combined  to  produce  complete  estimates  of  combat 
potential  for  a  single  friendly  and  a  single  threat  division  and  their 
constituent  equipment.  Also  from  Figure  B-l,  it  appears  that  an  AFP 
"customer"  need  do  little  else  than  provide  an  equipment  inventory,  sit 
back  for  a  while,  and  then  receive  results.  It  also  appears  that  a  threat 
inventory  and  sufficient  information  about  item  engagement  characteri sti cs 
are  available  off-the-shelf  just  as  needed  for  easy  AFP  exploitation.  Any 
such  impressions  are,  of  course,  gross  oversimpl ications.  AFP  operators 
and  programers  must  face  the  grim  reality  of  AFPSYS  as  it  really  is.  That 
reality  is  presented  in  the  following  paragraphs  and  appendices  of  this 
volume.  The  presentation  begins  with  a  (very  low)  resolution  view  of 
Figure  B-l. 
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Figure  B-l.  A  Simplified  View  of  the  Analysis  of  Force  Potential 
(AFP)  System  and  Its  Relation  to  Customers,  Data  and  Products 
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b.  Figure  B-2  represents  the  principal  parts  of  the  AFP  System  at 
higher  resolution  in  a  stylized,  compact  form.  Major  input,  intermediate, 
and  output  data  files  are  represented.  Major  program  modules  and  some 
utility  programs  are  also  shown.  In  addition,  ^-symbols  key  special 
runstream  generation  steps  and  some  of  the  principal  runstream  examples. 
Names  of  many  principal  absolute  elements  are  included.  The  purpose  of 
this  appendix  is  to  introduce  Figure  B-2  as  a  map  of  the  AFP  System.  The 
following  paragraphs  of  this  appendix  provide  examples  of  the  notation  and 
conventions  used  and  of  the  kinds  of  considerations  the  operator/progratner 
should  keep  in  mind  throughout  the  remainder  of  the  volume.  The  following 
appendices  describe  the  parts  of  Figure  B-2  in  more  detail. 
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Figure  B-2.  The  Relation  Among  Principal  Data,  Modules,  Other  Components, 
and  Products  of  the  Analysis  of  Force  Potential  (AFP)  System 
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c.  Figure  B-2  does  not  portray  a  single,  unambiguous  system  entry. 
Indeed,  scrutiny  of  the  diagram  reveals  a  number  of  possible  entry  points. 
The  ambiguity  is  intentional.  Depending  on  the  task,  the  system  may  have 
to  be  entered  many  times  and  perhaps  at  different  points.  The  arrows  in 
Figure  B-2  make  it  appear  that  everything  necessary  may  be  accomplished  in 
a  "single  pass."  This  is  not  the  correct  impression.  For  the  sake  of 
simplicity,  this  diagram  has  been  kept  free  of  the  several  "loops"  usually 
required  to  make  full-scale  application  of  AFPSYS. 

(1)  Estimation  of  the  combat  potential  of  a  single  division  requires 
that  much  of  the  AFP  System  be  applied  at  least  16  times,  once  for  each  of 
the  16  combat  environments  treated  by  AFP.  In  order  to  achieve  greater 
statistical  significance  within  each  environment  and  overall,  the  system 
operator  may  apply  the  Combat  Module  several  times  using  different  seeds 
for  the  pseudorandom  number  generator.  For  example,  two  seeds  and,  hence, 
two  executions  of  the  Combat  Module,  were  routine  for  each  environment 
through  most  of  the  system  development  and  testing.  In  experimental  pro¬ 
duction,  10  replications  were  performed  for  each  combat  environment  for 
each  of  two  stylized  US  divisions.  Among  other  things,  the  10-seed 
approach  meant  that  the  Combat  Module  (.870MAIN,  block  12)  and  CBT/CS/CSS 
Merge  Module  (.870CXPS,  block  17)  were  executed  160  times  for  each  division 
considered.  Once  the  160  (16  environment  x  10  seeds)  ENV  files  had  been 
produced  for  a  division,  the  ROLLUP  &  STATS  Module,  block  23,  was  executed 
only  once  to  produce  the  combat  potentials  and  statistical  analysis  for 
that  division,  symbolized  as  DIV  A  (block  24)  in  Figure  B-2. 

(2)  The  AFP  system  is  intended  for  estimation  of  the  combat 
potentials  of  different  divisions.  The  differences  may  involve 
unmodernized  and  modernized  versions  of  the  otherwise  same  division.  The 
differences  may  involve  alternative  inventories  of  weapons  at  essentially 
the  same  level  of  technology.  Also,  of  course,  there  may  be  interest  in 
the  differences  between  friendly  and  threat  divisions  or  among  US  and 
allied  divisions.  In  general,  each  different  division  analysis  requires 
exercise  of  all  or  nearly  all  parts  of  the  AFP  System.  Hence,  interest  in 
a  new  division,  say  the  one  symbolized  as  DIV  B  (block  24)  in  Figure  B-2, 
implies  generation  of  some  but  not  necessarily  all  new  data  and  execution 
of  the  Combat  and  Merge  Modules  16  to  160  or  more. 

(3)  At  such  time  as  two  or  more  sets  of  division  potentials  have  been 
developed  (represented  as  D:DIV  A  and  D:DIV  B  in  Figure  B-2,  block  24), 
then  the  Division  Compare  Module  (.COMPARE,  block  25)  may  be  executed  to 
produce  a  comparative  summary  of  the  potentials  of  the  equipment  in  two 
divisions. 

(4)  Full  system  execution  with  16  (to  hundreds  of)  applications  of 
the  Combat  and  Merge  Modules  remains  more  labor  and  computer  intensive  than 
desired.  If  two  divisions  have  already  been  processed  and  if  those 
divisions  (again  let  us  say  they  are  DIV  A  and  DIV  B)  are  related  as 
extremes  on  an  inventory  continuum,  then  the  AFP  Interpolation  Module 

( . INTERPO,  block  27)  provides  a  means  to  approximate  the  combat  potential 
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of  an  "intermediate"  division,  say  DIV  X  (block  28),  in  a  few  minutes 
instead  of  in  several  hours  of  computer  time.  Division  combat  potentials 
for  an  evolving  division  at  five  different  times  have  been  "interpolated" 
in  roughly  10  minutes,  wall  time. 

d.  A  runstream  to  produce  results  for  a  single  combat  environment  from 
the  Combat  and  Merge  Modules  may  include  150  statements.  Sixteen  such  run- 
streams  involving  critical  differences  from  runstream  to  runstream  are 
required  to  produce  results  for  all  16  combat  environments  for  a  single 
division.  Thus,  2,400  runstream  control  statements  must  all  be  correct  to 
do  just  part  of  the  work  for  a  single  division.  Block  11  in  Figure  B-2 
presents  a  highly  abbreviated  reference  to  one  of  the  utility  functions 
within  AFPSYS.  The  first  statement,  @ADD,ABEIK. . . ,  invokes  an  SSG  program 
that  generates  all  runstreams  for  the  appropriate  number  of  random  number 
seeds  for  a  division.  The  second  statement  in  block  11,  0START...,  is  a 
generic  representation  of  a  statement  to  start  the  runs. 

e.  Blocks  1-8  provide  highly  oversimplified  references  to  the  seven 
broad  categories  of  data  required  by  the  AFP  Combat  Module.  Over  all  16 
AFP  combat  environments,  blocks  1-8  may  entail  generation  of  hundreds  of 
thousands  of  data  elements. 

B-2.  AFP  PRODUCT 

a.  Because  the  only  purpose  of  AFP  is  to  produce  estimates  of  combat 
potential,  the  only  AFP  product  of  concern  must  be  combat  potentials.  The 
remainder  of  this  volume  should  be  viewed  in  the  perspecti ve' of  producing 
the  intended  product.  Toward  that  view,  the  rest  of  this  appendix  is 
devoted  to  a  preview  of  the  types  and  form  of  AFP  products. 

b.  All  AFP  combat  potentials  provide  estimates  of  the  killing  or 
casualty-producing  capability  of  equipment  or  organizations  relative  to  one 
or  more  measures  of  the  resources  lost  or  expended  in  attaining  that 
capability.  The  resource  lost  may  be  a  weapons  platform,  a  quantity  of 
munitions,  or  time.  For  any  one  weapon,  the  resource  is  just  one  of  these 
types.  For  an  organization,  because  it  usually  includes  many  types  of 
weapons,  the  organization's  potential  probably  involves  all  three  types  of 
resource  expenditure. 

c.  AFP  combat  potentials  are  expressed  in  two  ways: 

(1)  The  first  expression  of  combat  potential  is  in  terms  of  four  com¬ 
ponents.  This  representation  of  combat  potential  is  often  called  the 
four-valued  or  four-vector  potential.  On  option,  these  components  may 
include  target  value  weights.  If  so,  the  "personnel"  component  then 
includes  weighted  other  weapons  (e.g.,  small  arms). 

(a)  Personnel.  The  personnel  component  provides  an  estimate  of 
personnel  kills  and  casualties  including  dismounted  troops  and  the  crews  or 
passengers  of  weapon-  or  troop-carrying  platforms.  In  general ,  the  kill  or 
damage  of  a  target  contributes  to  the  personnel  component  of  potential  de¬ 
pending  on  input  factors  that  may  vary  by  both  target  and  shooter. 
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(b)  Light  Armored  Vehicles.  The  second  component  of  the  four¬ 
valued  potential  provides  an  estimate  of  killed  or  damaged  equipment, 
including  the  range  of  lightly  armored  vehicles  from  personnel  carriers  to 
self-propelled  artillery  and  many  air  defense  systems.  Within  the  AFP 
System,  mobility,  firepower,  and  total  kills  are  not  differentiated. 

(c)  Heavy  Armored  Vehicles.  The  third  component  of  the  four-valued 

potential  provides  an  estimate  of  killed  or  damaged  tanks  of  all  types. 

Mobility,  firepower,  and  total  kills  are  not  differentiated. 

(d)  Aircraft.  The  fourth  component  of  the  four-valued  combat 
potential  provides  an  estimate  of  killed  or  damaged  aircraft  including  both 
rotary  and  fixed  wing.  As  for  the  second  and  third  components,  the  types 
of  kills  are  not  differentiated. 

(2)  The  second  form  of  expression  of  combat  potential  is  single¬ 

valued.  It  is  often  called  the  scalar  combat  potential.  The  scalar 
potential  is  a  weighted  sum  of  estimated  kills  and  damage  to  target 

categories.  Each  of  up  to  60  target  types  may  correspond  to  a  distinct 

target  category,  but  in  practice,  about  a  dozen  categories  seem  sufficient. 
The  weight  (or  "value")  of  a  target  is  an  input  to  AFP;  it  is  not  a  result 
derived  by  the  AFP  System.  Let  us  be  clear  about  an  important  distinction. 
The  values  of  targets  are  input.  The  combat  potentials  of  shooters  are 
derived  by  the  AFP  System  but  do  depend  on  the  input  values  of  targets. 
Combat  potentials  are,  in  effect,  values  of  shooters.  A  possible  source  of 
confusion  is  that  most  shooters  can  also  be  targets.  Hence,  a  weapon  may 
have  one  value  as  a  shooter  and  a  different  value  as  a  target. 

(3)  Both  the  four-valued  and  scalar  forms  of  combat  potential  are 
frequently  presented  within  a  single  computer  or  printed  record.  Because 
both  forms  so  often  appear  side  by  side,  it  has  become  common  to  refer  to  a 
five-valued  or  five-vector  combat  potential.  However,  because  this 
involves  nothing  more  than  appending  the  scalar  form  to  the  four-valued 
form,  there  is  no  need  to  define  a  third  means  of  expressing  combat 
potenti al . 

d.  AFP  combat  potentials  are  expressed  at  two  levels: 

(1)  The  potentials  of  a  weapon  type  may  be  expressed  as  combat  scores 
or  combat  item  potentials.  The  latter  are  often  referred  to  as  CIPs. 

(a)  A  weapon  score  is  the  sum  of  the  potentials  of  all  the  weapons 
of  that  type  within  a  division. 

(b)  The  potential  of  a  single  weapon  of  given  type  is  the  CIP  of 
that  weapon. 

(c)  If  there  are  N  weapons  of  a  given  type  within  a  division, 


SCORE  =  N  *  CIP 
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(d)  The  CIP  of  a  weapon  is  the  same  for  all  weapons  of  that  type 
within  the  division.  In  other  words,  the  CIP  is  a  mean  potential  for  all 
weapons  of  that  type  within  the  division. 

(2)  The  potentials  of  an  entire  organization  (division)  are  referred 
to  as  combat  organizational  potentials  or  COPs.  A  COP  is  simply  the  sum  of 
the  scores  of  all  weapons  within  the  organization. 

e.  Taken  strictly,  the  terms  "scores,"  "CIPs,"  and  "COPs"  imply  that 
combat  support  and  combat  service  support  effects  have  been  accounted  by 
the  process  called  CS/CSS  modulation.  However,  because  quantities  in  the 
format  of  scores,  CIPs,  and  COPs  are  available  at  an  intermediate  stage 
before  CS/CSS  modulation,  it  has  become  common  practice  to  save  and  report 
such  intermediate  values  along  with  the  final  ones.  The  terms  "unmodu¬ 
lated"  and  "modulated"  have  been  prefixed  to  scores,  CIPs,  and  COPs  in 
order  to  provide  the  corresponding,  necessary  distinctions. 

f.  Also  in  strict  terms,  "scores,"  "CIPs,"  and  "COPs"  refer  to  combat 
potentials  weighted  over  16  distinct  combat  environments.  However,  because 
numbers  in  exactly  the  same  formats  appear  for  each  combat  environment 
before  the  weighted  summation  over  all  environments  is  performed,  it  has 
become  common  practice  to  refer  to  the  results  for  a  single  environment  as 
scores,  CIPs,  and  COPs,  too. 

g.  The  foregoing  few  paragraphs  make  it  clear  that  AFP  provides  many 
opportunities  for  confusion  in  terminology  and  among  computer  and  printed 
records  of  "potential."  To  avoid  ambiguity,  AFP  assigns  numeric  identi¬ 
fiers  to  combat  potential  records.  An  identifier  appears  in  the  first 
field  of  each  combat  potential  record.  Figure  B-3  provides  the  keys  to 
safe  recognition  of  all  related  records.  Note  that  separate  identifiers 
are  provided  for  friendly  and  threat  records.  Note  too  that  there  is  no 
need  (or  use)  for  records  at  divisional  level  that  simply  sum  CIPs.  At 
divisional  level,  only  sums  of  scores  are  significant. 

h.  With  the  preceding  several  paragraphs  as  preparation,  the  reader 
should  now  be  prepared  for  a  first  look  at  an  example  of  AFP  output  at  the 
very  end  of  the  AFP  process,  that  is,  following  a  rollup  across  all  16 
combat  environments  for  a  single  division  and  its  opposing  threat.  Figure 
8-4  includes  two  ovals  showing  where  such  results  emerge  in  relation  to  the 
total  system.  The  ovals  enclose  three  possible  data  files.  0 : D I V  A  and 
D:DIV  B  emerge  as  the  result  of  a  full  system  application.  D : DI V  X  emerges 
at  the  point  where  interpolation  is  possible  only  because  two  previously 
generated  files  (A  and  B)  "bound"  the  inventory  of  DIV  X.  The  next 
paragraph  presents  extracts  from  an  example  file  that  could  be  any  one  of 

D : DI V  A,  D:DIV  B,  or  D : DI V  X.  However,  the  results  of  interpolation  do  not 
include  Red  side  potentials. 

i.  Figure  B-5  displays  records  extracted  from  a  sample  output  file  of 
AFP  combat  potential  for  a  notional  division  inventory  and  the  opposing 
threat  division  inventory.  Only  a  subset  of  the  192  records  of  the 
complete  file  is  shown  in  Figure  B-5.  In  the  example,  the  first  four 
components  of  potential  do  not  include  target  values  (other  than  1.0). 
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AFP  OUTPUT 

RECORD  TYPE  IDENTIFIERS 
(FIELD  1=ISCNT) 
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Figure  B-4.  Points  Within  the  AFP  System  at  Which  Final 
Combat  Potentials  Are  Produced 
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FIELD 
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Figure  B-5.  Example  Extract  Records  from  Sample  File  of  Final 
Combat  Potentials  Produced  by  the  AFP  System 


(1)  Fi  eld  1  contains  the  identifiers  corresponding  to  the  keys  tabu¬ 
lated  in  Figure  3-3.  Note  that  the  file  must  be  a  representation  of  poten¬ 
tial  relative  to  all  16  combat  environments  because  the  identifiers  are 
greater  than  100. 


(2)  Records  25  through  40  present  potentials  for  four  Blue  or 
friendly  weapons.  Records  169  through  180  present  potentials  for  three  Red 
or  threat  weapons.  There  are  four  records  for  each  weapon.  Records  189 
through  192  present  the  COPs  for  the  Blue  and  Red  divisions;  respecti vely. 


(3)  The  subfields 
zeros.  These  subfields 
that  may  be  applied  but 
first  place. 


of  fields  2  and  9  may  be  filled  with  blanks  or 
provide  the  means  to  include  special  identifiers 
are  not  needed  if  files  are  carefully  named  in  the 
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(4)  Fi  eld  3  contains  a  number  corresponding  to  a  specific  weapon 
type.  Although  it  is  not  apparent  from  Figure  B-5,  Blue  and  Red  weapons 
may  have  the  same  number.  However,  because  the  identifiers  in  field  1 
uniquely  specify  Blue  and  Red  records,  there  is  no  ambiguity  with  respect 
to  weapon  type. 

(5)  Fi  eld  4  contains  the  first  or  personnel  component  of  the  four¬ 
valued  potential  for  each  weapon  or  division. 

(6)  Field  5  contains  the  second  or  light  armored  vehicle  component  of 
the  four-valued  potential  for  each  weapon  or  division. 

(7)  Field  6  contains  the  third  or  heavy  armored  vehicle  component  of 
the  four-valued  potential  for  each  weapon  or  division. 

(8)  Field  7  contains  the  fourth  or  aircraft  component  of  the  four¬ 
valued  potential  for  each  weapon  or  division. 

(9)  The  literal  interpretation  of  the  values  in  fields  4  through  7  is 
as  estimates  of  kills,  casualties,  or  damage  given  the  expenditure  of  the 
corresponding  resource  (half-life,  basic  load,  or  fortnight). 

(10)  Fi  eld  8  contains  the  scalar  combat  potential  for  each  weapon  or 
division. 

(ID  As  noted  earlier,  because  the  four-valued  and  scalar  potentials 
appear  in  sequence,  fields  4  through  8  are  considered  together  as  a  five¬ 
valued  or  five-vector  representation  of  combat  potential. 

j.  The  next  example  of  an  AFP  product  is  an  intermediate  result. 

Figure  B-6  contains  an  oval  enclosing  symbols  representing  similar  files 
for  up  to  16  distinct  combat  environments.  If  the  Combat  Module  is 
exercised  M  times  for  each  random  number  seed,  then  M  *  16  files  would  be 
enclosed  in  the  oval  within  Figure  B-6.  Figure  B-7  presents  extracted 
records  from  just  one  of  the  16  (or  M  *  16)  example  files  so  symbolized. 
Note  that  Figure  B-7  is  very  much  like  Figure  B-5.  The  format  is  the  same. 
The  values  in  fields  4  through  8  differ  from  those  in  Figure  B-5.  Such 
differences  reflect  dependence  on  combat  environment  and  on  the  uncertain¬ 
ties  underlying  the  stochastic  steps  in  the  Combat  Module.  And  of  course, 
the  entries  in  field  1  differ  from  those  in  Figure  B-5.  Figure  B-7 
represents  a  single  combat  environment;  therefore,  all  the  identifiers  are 
less  than  100.  Note  that  entries  in  the  subfields  of  fields  2  and  9  are 
usually  not  blank  or  zero.  The  nonblank,  nonzero  characters  may  identify 
the  specific  posture,  visibility,  and  day/night  condition  to  which  the  file 
corresponds.  In  Figure  B-7,  the  first  four  components  of  partial 
potentials  do  not  include  target  value  weights  (other  than  implicit  1.0s); 
however,  an  AFP  option  permits  weighting  of  those  entries  by  target  values. 
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Figure  B-6. 


Point  Within  the  AFP  System  at  Which  Partial 
Combat  Potentials  Are  Produced 
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APPENDIX  C 

KEY  TO  AFP  PREPROCESSOR  DESCRIPTIONS 


C-l.  OVERVIEW.  The  AFP  System  consists  of  many  processes:  computer  pro¬ 
grams,  runstream  generators,  runstreams,  and  input,  intermediate,  and  out¬ 
put  data.  Among  all  processes  and  programs,  AFP  draws  somewhat  arbitrary 
distinctions  between  major  and  minor  modules.  This  short  appendix  provides 
a  key  to  those  minor  modules  considered  preprocessors.  In  AFP  terms,  a 
preprocessor  does  not  identify  something  preliminary  to  AFP.  Instead,  a 
preprocessor  is  part  of  AFP  but  involves  something  preliminary  to  a  major 
module.  Figure  C-l  presents  the  standard  view  of  the  AFP  System  as  dis¬ 
played  in  many  other  appendices  of  this  document.  The  major  modules  are 
labeled: 

a.  Combat  Module 

b.  CS/CSS  Module 

c.  CBT/CS/CSS  Merge  Module 

d.  Rollup  and  Stats  Module 

e.  Interpolation 

C-2.  PREPROCESSOR  KEY.  Table  C-l  lists  the  AFP  preprocessors  and  the 
locations  of  the  principal  corresponding  descriptive  material  within  this 
documentation.  Many  descriptions  include  material  on  the  related  data, 
both  input  and  output,  of  preprocessors.  Any  one  preprocessor  may  consist 
of  more  than  one  computer  program.  Runstream  generators  have  not  been 
included  among  the  AFP  preprocessors.  The  AFP  System's  runstream 
generators  are  separately  keyed  in  Appendix  K. 
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Table  C-l.  Key  to  Preprocessor  Descriptions 
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in  Fig  C-l 

Parent 
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or  other  related  material 
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APPENDIX  D 

AFP  FIREPOWER  AND  COUNTERFIREPOWER  MODULE 


D-l.  OVERVIEW 

a.  Purpose.  This  appendix  and  its  annexes  are  intended  to  help  clarify 
many  of  the  concepts  applied  within  the  AFP  System,  especially  in  the  AFP 
Firepower  and  Counterf irepower  Module.  Although  the  AFP  Firepower  and 
Counterf irepower  Module  represents  little  more  than  detection  and  the  ex¬ 
change  of  fire,  the  module,  for  the  sake  of  brevity,  is  usually  labeled  the 
"Combat  Module."  The  relation  of  the  AFP  Combat  Module,  and  its  pre-  and 
postprocessors ,  to  the  AFP  System  in  general  is  portrayed  in  Figure  D-l. 

(1)  The  AFP  Combat  Module  is  a  computer  program  for  estimating  kills 
achievable  by  the  weapons  of  two  opposing  sides  under  very  special  circum¬ 
stances.  By  the  usual  definitions,  the  Combat  Module  is  not  a  combat  model 
or  a  combat  simulation.  However,  the  Combat  Module  does  involve  the  appli¬ 
cation  of  some  data  and  techniques  of  the  kinds  typically  applied  in  combat 
modeling  and  simulation.  To  a  modest  degree,  the  Combat  Module  does  repre¬ 
sent  many  of  the  aspects  of  combat  addressed  in  most  combat  models  and  sim¬ 
ulations.  Final  products  of  the  AFP  System  are  measures  of  the  static 
combat  potentials  of  equipment  and  units.  Although  heavily  "static"  in  its 
emphasis,  the  AFP  System  in  general,  and  the  Combat  Module  in  particular, 
do  not  completely  disregard  battlefield  time.  The  AFP  treatment  of  time  is 
much  less  sophisticated  than  would  be  required  if  the  AFP  System  were  to 
produce  "dynamic"  measures  of  combat  potential. 

(2)  The  AFP  approach  decomposes  the  military  battlefield  in  several 
ways.  Detection  and  firing  are  separated  from  other  combat  and  the  combat 
support  and  combat  service  support  (CS/CSS)  operations  and  functions.  This 
separation  led  to  the  development  of  the  separate  Combat  Module  and  CS/CSS 
Module  within  the  AFP  System.  Such  separation  forced  development  of  a 
third  module,  the  CBT/CS/CSS  Merge  Module,  to  then  combine  the  results  of 
the  Combat  and  CS/CSS  Modules.  Detection  and  firing  were  further  decomposed 
in  several  ways  leading  to  a  special  hierarchical  representation.  Many  of 
the  steps  and  elements  involved  in  and  resulting  from  this  process  have 
been  given  their  own  names  and  definitions.  The  names  are  old  words  with 
new  meanings.  The  old  words  were  chosen  to  be  suggestive,  but  inevitably, 
some  of  the  names  suggest  too  much  and  others  suggest  too  little.  Terms 
involving  or  implying  time  tend  to  be  particularly  awkward  because  of  the 
primarily  "static"  nature  of  AFP. 
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Figure  D-l.  The  Relation  of  the  AFP  Firepower  and  Counterfirepower 
Module  and  Its  Pre-  and  Postprocessors  to  the 
AFP  System  in  General 
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(3)  The  developer  of  a  combat  model,  a  combat  simulation,  or  an  AFP 
System  has  to  figure  how  best  to  carve  up  or  decompose  the  battlefield  whole 
into  logically  separable  parts.  Part  of  the  decomposition  usually  involves 
invention  of  a  scheme  of  taxonomy  or  categorization.  Because  of  many  kinds 
of  limitations,  the  developer  usually  accepts  fewer  than  the  "ideal"  number 
of  categories  and  then  struggles  to  fit  enormous  variety  into  too  few  cate¬ 
gories.  The  combat  analyst’s  art  is  very  much  involved  with  choosing  neces¬ 
sary  and  sufficient  categories.  The  categories  must  balance  the  often  con¬ 
flicting  demands  of  specificity  and  generality.  And  the  assignments  of 
particular  entities  must  satisfy  everyone  as  reasonable--no  entities  fall 
between  categories  and  no  entity  belongs  in  two  or  more  categories  at  the 
same  time--everything  maps  uniquely  and  correctly. 

b.  Detection  and  Firing  Engagements.  The  Combat  Module  must  permit 
weapons  to  engage  one  another  as  both  shooters  and  targets.  There  are  only 
two  ways  in  which  weapons  may  engage  targets  within  the  Combat  Module:  as 
direct  firers  or  as  indirect  firers.  The  basic  engagement  is  a  direct  fire 
engagement.  A  direct  fire  engagement  lasts  an  AFP  "day." 

(1)  A  d  irect  fire  engagement  is  one  in  which  one  or  more  direct  fire 
weapons  of  a  single  given  type  engage  one  or  more  opposing  direct  fire 
weapons  of  a  single  given  type.  In  AFP  terms,  if  weapons  of  each  of  10 
different  types  engage  opposing  weapons  of  each  of  10  different  types  on  a 
given  day,  then  10  x  10  =  100  distinct  engagements  would  be  generated.  In 
usual  AFP  practice,  something  less  than  100  engagements  would  occur  because 
of  a. type-on-type  preference  and  allocation  scheme  that  may  preclude  some 
pairings  of  weapon  types.  There  may  be  too  few  weapons  of  some  types  to 
generate  a  full  set  of  nonzero  engagements.  Although  pref erencing, 
participation,  and  allocation  steps  precede  engagements  in  the  Combat 
Module  sequence,  these  processes  are  not  described  until  after  many  of  the 
features  of  engagements  have  been  introduced.  Even  though  the  Combat 
Module  must  allocate  specific  numbers  of  weapons  to  engagements  before  the 
engagements  begin,  it  is  the  author's  choice  to  describe  engagements  first 
as  though  weapons  allocation  has  already  occurred.  This  is  partly  to 
emphasize  first  those  aspects  of  the  Combat  Module  closest  to  the  killing 
of  targets--the  only  way  that  weapons  can  earn  combat  potential.  This 
emphasis  helps  demonstrate  the  importance  of  the  earlier  allocation 
process.  The  allocation  of  too  many  superior  weapons  to  an  engagement  can 
"deny"  those  weapons  full  opportunity  to  earn  potential  if  the  weapons  run 
out  of  targets  early.  The  allocation  of  too  few  weapons  to  an  engagement 
may  cause  them  to  be  destroyed  largely  as  the  result  of  a  locally  adverse 
force  ratio.  Even  though  the  formal  allocation  process  is  described  much 
later,  the  reader  is  invited  to  begin  to  think  about  the  two-sided  problem 
of  balancing  weapon  allocation  among  possibly  hundreds  of  different 
weapon-type-on-weapon-type  engagements . 

(a)  The  case  of  10  TOWs  and  15  T-62  tanks  firing  at  one  another 
comprise  a  permissible  engagement.  It  is  an  ordinary  direct  fire 
engagement  in  that  each  weapon  must  detect  a  target  before  firing. 

(b)  Two  M-l  tanks  firing  at  one  unarmed  command  vehicle  also  define 
a  permissible  engagement,  even  though  that  command  vehicle  cannot  be  a 
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shooter.  Every  "direct  fire"  platform  is  a  target,  even  though  it  may  be  a 
weaponless  platform.  Nevertheless,  AFP  still  refers  to  such  platforms  as 
direct  fire  weapons  because  they  are  subject  to  the  normal  direct  fire  pro¬ 
cessing  logic  of  the  Combat  Module.  Again,  all  AFP  direct  fire  weapons  are 
always  targets  but  are  not  always  shooters. 

(c)  Six  (Blue)  155mm  howitzers  and  six  (Red)  122mm  howitzers  firing 
at  one  another  are  also  a  permissible  "direct  fire"  engagement--though  of  a 
special  kind.  Counterbattery  fire  is  considered  direct  fire  in  AFP  terms. 

A  counterbattery  engagement  is  special  in  that  a  weapon  does  not  "detect" 
before  firing.  It  is  assumed  that  the  firing  mission  has  been  defined  and 
given  beforehand,  i.e.,  it  is  assumed  that  detection  occurred  sometime  be¬ 
fore  the  engagement  begins.  Weapons  opposing  one  another  in  the  counter¬ 
battery  version  of  direct  fire  engagements  are  both  shooters  and  targets. 

(d)  The  case  of  10  TOWs  and  10  T-62  and  5  T-64  tanks  firing  at  one 
another  cannot  be  a  permissible  single  AFP  engagement  because  the  Red  side 
consists  of  two  different  weapon  types.  "10  -  X"  TOWs  versus  10  T-62s  and 
"X"  TOWs  versus  5  T-64s  are  permissible  as  two  separate  direct  fire  engage¬ 
ments. 


(e)  Direct  fire  weapons,  then,  may  be  any  of  the  usual  small  arms, 
free  AT  rockets,  ATGMs,  tanks,  IFVs/CFVs,  aircraft,  CLGP,  f ire-and-f orget 
rockets,  tube  AAA,  SAMs,  and  counterbattery  assigned  artillery. 

(f)  Direct  fire  engagements  usually  are  complicated  by  having 
"indirect  fire"  fall  upon  them.  The  mortars  and  artillery  (both  tube  and 
rocket)  not  engaged  in  direct  fire  (counterbattery)  missions  may  fire  on 
the  full  range  of  direct  fire  engagements  including  counterbattery  direct 
fire  engagements.  If  the  Blue  side  possesses  10  types  of  indirect  fire 
weapons  and  the  Red  side  also  possesses  10  types  of  indirect  fire  weapons, 
then  20  different  types  of  indirect  fire  weapons  may  all  fire  on  a  single 
direct  fire  engagement  in  which  only  two  types  of  direct  fire  weapons  are 
permitted  to  fire.  In  this  extreme  case,  the  Combat  Module  manages  the 
fire  of  22  weapon  types  in  a  single  "direct  fire"  engagement.  The  direct 
fire  weapons  shoot  only  at  one  another;  they  do  not  fire  at  the  indirect 
fire  weapons.  The  indirect  fire  weapons  are  totally  "immune"  in  this  role; 
they  can  kill  but  cannot  be  killed.  This  concept,  permitting  indirect  fire 
weapons  to  fire  upon  the  direct  fire  engagements,  extends  to  the  counter¬ 
battery  direct  fire  engagements.  In  this  special  case,  the  extreme  permits 
(for  the  above  example)  only  a  maximum  of  20  weapon  types  to  fire.  However, 
two  of  those  types  may  be  firing  in  two  senses — as  counterbattery  and  as 
indirect  weapons.  Any  one  weapon,  of  course,  cannot  be  both  a  counterbat¬ 
tery  and  indirect  firer  in  that  engagement.  Some  weapons  of  its  type  fire 
exclusively  in  the  counterbattery  role;  some  other  weapons  of  that  type 
fire  exclusively  in  the  indirect  role.  Both  the  counterbattery  and  indirect 
fire  weapons  may  kill  the  counterbattery  weapons;  but,  as  usual,  no  one  can 
kill  the  indirect  fire  weapons  (until  perhaps,  on  another  "day,"  some  of 
them  become  assigned  counterbattery  roles).  The  weapons  in  the  counterbat¬ 
tery  role  are  both  shooters  and  targets  in  the  counterbattery  version  of 
direct  fire  engagement.  The  weapons  (which  may  be  of  the  same 
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types  as  those  in  the  counterbattery  role)  in  the  indirect  fire  role  are 
shooters  but  not  targets  in  the  counterbattery  (as  well  as  the  normal) 
version  of  direct  fire  engagements. 

(2)  The  direct  fire  engagement  is  not  the  smallest  combat  action 
represented  within  the  AFP  Combat  Module.  The  next  smaller  action  is 
called  a  "conflict."  And  the  action  next  smaller  than  a  conflict  is  called 
a  "duel."  An  AFP  duel  is  the  smallest  combat  action  at  which  direct  fire 
is  represented.  In  a  sense,  a  duel  is  the  basic  building  block  of  AFP  com¬ 
bat  representation.  AFP  may  take  liberties  with  the  term  "duel."  The 
standard  definition  limits  fighting  to  two  persons  or  parties.  AFP  duels 
may  generalize  the  classic  one-on-one  encounter  all  the  way  to  a  50-on-l 
extreme.  (That  extreme  is  an  alterable  program  parameter.)  In  review,  an 
engagement  may  consist  of  one  or  more  conflicts;  and  a  conflict  may  consist 
of  one  or  more  duels.  In  the  AFP  scheme  of  things,  engagements  are  decom¬ 
posed  into  duels,  duels  are  distributed  by  range  and  environment,  and  all 
the  duels  at  a  given  range  in  a  given  environment  are  combined  as  a  con¬ 
flict.  Conflicts  and  duels  are  described  at  greater  length  in  the  follow¬ 
ing  paragraphs.  A  conflict  cannot  last  longer  than  an  input-specified 
maximum  time  (2.01  minutes  is  the  standard  maximum).  The  survivors  of  a 
conflict  may  fight  one  another  again  in  another  conflict  on  that  day  at  the 
same  range  in  the  same  environment.  Provided  that  there  continue  to  be 
survivors,  conflicts  can  continue  on  that  day  to  an  input-specified  maximum 
number  (four  conflicts  is  the  standard  maximum).  Survivors  may  be  assigned 
to  different  opponents,  ranges,  or  environments  only  at  the  beginning  of  a 
following  "day." 

(3)  The  weapons  allocated  to  a  direct  fire  engagement  may  not  all 
find  their  way  into  duels.  Some  weapons  may  be  lost  to  other  (nonengage¬ 
ment)  causes  as  "external  losses"  imposed  in  accord  with  input-specified 
factors.  Weapons  not  lost  may  be  diverted  or  delayed  in  accord  with 
input-specified  participation  factors.  With  allowance  for  external  losses 
and  nonparticipation,  suppose  net  quantities  of  m  Blue  and  n  Red  weapons 
(each  of  single  type)  assigned  to  an  engagement  are  available  for  assign¬ 
ment  to  duels.  The  in  and  n  weapons  are  grouped  by  the  Combat  Module  into 
min(m,n)  distinct  duels.  This  is  an  AFP  rule  not  an  international  rule  of 
engagement.  That  is,  there  are  as  many  duels  as  there  are  weapons  on  the 
less  numerous  side.  In  AFP  terms,  in  an  S:1  duel  (S  weapons  opposing  one 
weapon),  "S"  is  called  the  "odds  class"  of  the  duel.  Inasmuch  as  there  are 
to  be  as  many  duels  as  there  are  weapons  on  the  less  numerous  side,  the 
less  numerous  side  provides  the  "1"  in  every  S:1  odds  class.  For  any  pair 
of  numbers,  m  and  n,  there  need  be  no  more  than  two  odds  classes. 

(a)  Let  q  =  INT(max(m,n)/min(m,n)) 


r  =  max(m,n)  -  q  x  min(m,n) 
q  and  r  are  both  integers. 


(b)  There  need  be,  at  most,  the  two  odds  classes:  q  and  (q+1). 
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(c)  The  number  of  duels  at  q:l  is  (min(m,n)  -  r). 
The  number  of  duels  at  (q+l):l  is  r. 


Clearly,  the  second  of  these  numbers  may  be  zero. 

(4)  Once  the  number  of  duels  by  odds  class  has  been  determined,  the 
duels  must  be  distributed  by  range  and  environment.  In  all  work  to  date, 
only  one  environment  per  Combat  Module  run  has  been  represented.  Each  com¬ 
bat  environment  of  interest  forced  a  separate  Combat  Module  run.  For  the 
rest  of  this  description,  it  is  assumed  that  there  is  always  only  one  com¬ 
bat  environment  per  Combat  Module  run.  Then  the  duel  distribution  problem 
reduces  to  one  of  distribution  to  six  ranges.  The  standard  AFP  practice  is 
to  limit  direct  fire  shooting  engagements  to  the  first  five  ranges:  250, 
500,  1,000,  1,500,  and  2,500  meters.  The  sixth  range,  well  beyond  2,500 
meters,  is  reserved  as  a  "deep  area"  subject  only  to  indirect  fire  against 
mid-  to  rear-area  targets.  Figure  D-2  presents  a  graphic  representation  of 
the  standard  range  protocol.  The  symbols  represent  tank-on-tank  engagements 
with  the  usual  indirect  fire.  The  figure  oversimplifies  indirect  fire  in 
the  sense  that  indirect  fire,  much  as  for  direct  fire  weapons,  must  be  dis¬ 
tributed  by  range.  For  all  possible  direct  fire  versus  direct  fire  weapon 
type  engagements,  input  to  the  Combat  Module  specify  the  intended  fractional 
distributions  of  duels  by  range  for  each  type-on-type  pairing.  The  duels 
previously  assigned  to  the,  at  most,  two  odds  classes  are  distributed 
roughly  in  proportion  to  the  input-specified  fractions  by  range.  Only 
whole  duels  are  distributed.  This  means,  for  example,  that  a  solitary  duel 
can  be  assigned  to  only  one  range  leaving  five  ranges  unoccupied.  Such  a 
solitary  duel  would  be  assigned  to  the  range  with  the  largest  fraction 
within  the  input  distribution.  In  the  event  of  equal  fractions  (ties),  a 
duel  is  assigned  to  the  shorter  (or  shortest)  range  with  that  fraction. 

Each  odds  pool  is  distributed  independently  of  the  other.  If  two  odds 
pools  contain  exactly  one  duel  each,  both  of  these  duels  will  be  assigned 
to  the  same  range  band.  Now  suppose  an  odds  pool  contains  two  duels. 

Again,  tied  fractions  are  broken  by  assignments  to  shorter  before  longer 
ranges.  The  first  duel  is  assigned  as  already  described.  The  second  duel 
is  assigned  to  the  range  with  the  second  highest  fraction.  Obviously,  an 
odds  pool  must  contain  at  least  six  duels  before  each  range  can  receive  at 
least  one  duel.  The  fractional  range  distributions  are  input  as  two-place 
decimal  values.  Thus,  something  seemingly  as  innocent  as  a  "uniform"  dis¬ 
tribution  may  produce  surprises.  Six  equal  nonnegative  two-place  decimal 
fractions  cannot  be  made  to  total  1.0.  In  practice,  input  for  the 
so-called  uniform  distribution  consists  of  four  0.17s  and  two  0.16s.  The 
shortest  range  with  0.17  receives  singleton  duels.  For  very  large  engage¬ 
ments  with  dozens  of  duels  in  each  odds  class,  the  result  of  distributing 
duels  comes  close  to  the  input-specified  distribution.  Once  the  duels  have 
been  distributed  by  range,  all  the  duels  at  a  given  range  comprise  a  con¬ 
flict,  with  an  obvious  maximum  of  six  "simultaneous"  conflicts,  one  for 
each  range.  From  one  conflict  to  the  next  on  the  same  day,  survivors  must 
remain  at  their  starting  ranges,  but  survivors  may  be  shifted  between  odds 
classes  at  the  fixed  range. 
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Figure  D-2.  AFP  Standard  Ranges  of  Engagement 


(5)  For  an  ordinary  (noncounterbattery)  direct  fire  duel,  detection 
or  an  input-specified  number  of  opponent's  shots  must  precede  any  firing  by 
a  direct  fire  weapon.  At  the  beginning  of  the  duel,  the  Combat  Module 
"draws"  a  detection  time  "at  random"  for  each  direct  fire  weapon  from  a 
detection  distribution.  For  the  detection  time  to  be  finite,' the  potential 
shooting  weapon  must  be  able  to  resolve  a  target.  This  means  that  the  po¬ 
tential  shooter's  detection  system  must  be  able  to  achieve  at  least  an 
input-specified  number  of  resolvable  cycles  for  the  given  target  size  in 
the  given  posture  and  under  the  given  seeing  conditions.  A  weapon  gets  one 
detection  draw  per  target  up  to  an  input-specified  maximum  number  of  tar¬ 
gets  within  the  duel.  The  distribution  is  implemented  within  the  Combat 
Module. by  a  subroutine  developed  by  Night  Vision  Labs  as  part  of  its 
detection/acqui si tion  modeling.  Arguments  of  the  detection  routine  include 
target  size,  range,  brightness,  contrast,  attenuation,  and  sensor  type. 

With  other  arguments  being  equal,  the  more  numerous  side  almost  always 
should  have  the  weapon  with  the  shortest  detection  time,  and  hence,  get  off 
the  first  shot.  The  expected  minimum  of  S  draws  (S  >  1)  is  less  than  the 
expected  minimum  of  fewer  draws  (from  the  same  distribution)  whenever  the 
distribution  has  nonzero  variance.  Within  broad  practical  limits  of  re¬ 
solvable  cycles,  the  detection  routine  is  rather  insensitive  to  target 
size.  In  AFP  practice,  the  outnumbered  side  in  a  duel  is  usually  in  defen¬ 
sive  positions  and  should,  in  principle  and  if  equipped  with  the  appropriate 
sensors,  make  the  vast  majority  of  first  detections.  For  sufficient  resol¬ 
ution,  the  routine  returns  a  time-to-detect .  Nondetection  is  flagged. 
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(6)  Notice  how  time  has  crept  into  the  Combat  Module  even  though  it 
is  not  a  combat  model  or  combat  simulation.  "Statics"  is  about  to  receive 
yet  another  temporal  shock.  The  shooting  sequence  is  important  enough  to 
real  combat  outcomes  to  force  attention  to  shot  sequencing 
Module.  The  Combat  Module  depends  on  a  sequencing  index, 
will  notice  that  a  sequencing  index  is  really  just  time  by 
The  events  in  the  sequence  are  direct  fire  shots  or  bursts 
"stages"  or  a  little  more  openly  as  the  critical  events  in 
In  general,  the  underlying  times  between  consecutive  stages 
so  the  sequencing  index  is  not  a  fixed  time  unit  after  all. 


into  the  Combat 
(Perhaps  no  one 
another  name.) 
masquerading  as 
"shot  cycles." 
are  not  equal ; 


(7)  How  long  should  a  conflict  last?  Input  to  the  Combat  Module  im¬ 
poses  one  limit:  an  actual  time  limit,  typically  2.01  minutes.  (That  0.01 
minute  is  there  to  avoid  some  awkward  counting  problems  that  have  never 
been  observed  but  remain  a  theoretical  worry.  The  0.01,  though,  may  be  a 
cure  for  a  nondisease.)  The  Combat  Module  does  keep  book  against  that  max¬ 
imum  time.  But  it  also  keeps  book  on  shot  cycles.  Before  shooting  begins, 
the  Combat  Module  computes  a  permissible  number  of  shot  cycles  within  the 
conflict. 


SHOT  CYCLES  =  T  *  (1/R( INF )  +  MAX(S1 , S2 )/R(SUP ) ) 


where 


T 

R(INF) 

MAX( SI , S2 ) 
R(SUP) 


is  the  maximum  time  of  a  conflict 

is  the  refire  time  of  the  weapon  in  use  by  the 
numerically  inferior  side 

is  the  larger,  nonempty  odds  class 

is  the  refire  time  of  the  weapon  in  use  by  the 
numerically  superior  side 


All  of  which  simply  gives  an  estimate  of  how  many  direct  fire  rounds  would 
be  fired  if  no  weapon  were  killed  and  if  firing  occurred  at  the  mean  refire 
times.  Weapons  may  be  killed  and  retiring  times  are  drawn  from  a  log-normal 
distribution  with  the  result  that  the  computed  SHOT  CYCLES  alone  often  does 
not  limit  duels  to  maximum  time  duration  T.  Even  without  kills,  duels  at 
the  smaller  odds  class  would  tend  to  exceed  the  time  limit  T.  These  are 
the  principal  reasons  that  the  Combat  Module  keeps  book  on  both  shot  cycles 
and  time.  At  most,  only  one  direct  fire  round  (or  burst)  is  fired  per  shot 
cycle.  If  no  direct  fire  weapon  has  detected  a  target,  no  direct  fire  shot 
is  taken,  and  no  "time"  elapses  against  maximum  direct  fire  time.  (Indirect 
fire  may  occur  on  the  direct  fire  cycle  even  though  no  direct  shot  is  taken.) 


(8)  The  direct  fire  weapon  that  shoots  first  in  a  duel  is  the  one 
with  the  shortest  drawn  or  arbitarily  set  detection  time.  That  weapon 
shoots  at  the  first  shot  cycle,  which  "occurs"  in  real  time,  at  the  detec¬ 
tion  time.  The  round  (or  burst)  has  zero  flight  time.  The  SSPK  of  the 
weapon/round  combination  is  compared  with  a  randomly  drawn  number  to 


D-8 


CAA-D-S4 - 14 


determine  whether  a  kill  occurred.  If  a  kill  occurred,  a  randomly  chosen 
"live"  target  is  tallied  as  a  kill.  That  target  cannot  detect  or  shoot 
evermore.  A  refire  time  is  drawn  for  the  weapon  that  just  fired;  that  in¬ 
crement  is  saved  for  reference  in  determining  at  which  later  shot  cycle 
that  weapon  gets  to  fire  again  if  it  is  not  killed  in  the  meantime.  Before 
the  current  shot  cycle  is  completed,  weapons  which  have  not  yet  detected  a 
target  again  have  detection  times  drawn  from  the  detection  distribution.  A 
successful  detection  puts  that  weapon  in  line  to  fire  at  a  later  shot  cycle. 

A  nondetection  leaves  the  weapon  flagged  as  unable  to  fire;  it  will  get 
another  chance  at  detection  in  the  next  shot  cycle.  A  weapon  that  has  not 
detected  a  target  by  the  input-specified  nth  shot  by  an  opposing  side  is 
then  assumed  to  detect  (n  is  weapon  specific).  Notice  that  the  weapon  that 
just  fired  may  draw  a  very  short  refire  time  from  the  refire  distribution. 

If  its  refire  time  is  short  enough,  it  may  capture  the  next  shot  cycle  and 
fire  again  before  any  other  weapon  fires.  In  the  "long"  run,  weapons  with 
shorter  mean  refire  times  as  input  will  draw  shorter  refire  times  from  the 
distribution  and  capture  more  of  the  shot  cycles  than  will  equal  numbers  of 
slower  firing  weapons.  On  the  other  hand,  very  numerous  slow  firing  weapons, 
by  their  sheer  numbers,  get  many  draws  from  their  refire  distribution  with 
the  increased  chance  that  one  of  the  weapons  will  draw  a  short  time  and 
thereby  capture  an  early  shot  cycle.  Both  for  detection  and  refire  times, 
sheer  numbers  of  weapons  increase  the  chance  that  some  of  them  may  preempt 
time  from  technically  superior  but  numerically  inferior  weapons.  During  a 
single  shot  cycle,  all  the  duels  of  a  conflict  are  processed.  Although  the 
sequence  index  is  the  same  for  all  the  duels,  each  duel  may  be  at  a  differ¬ 
ent  clock  time  at  that  cycle.  Notice  that  the  probability  distributions 
for  detection  and  refiring  are  referenced  in  ways  that  depend  on  the  numbers 
of  weapons  and  the  results  of  prior  drawings.  The  net  effect  should  be  for 
the  shots  by  both  sides  to  interweave  (subject  to  chance)  properly  over  the 
shot  cycles.  Although  direct  fire  ceases  in  a  duel  if  all  of  one  side's 
weapons  are  lost,  the  shot  cycles  continue  in  order  that  indirect  fire  con¬ 
tinue  to  be  represented.  As  noted  above,  indirect  fire  weapons  may  fire  at 
the  dueling  direct  fire  weapons.  Weaving  indirect  fire  into  the  direct 
fire  shot  cycle  sequence  is  the  subject  of  the  next  paragraph. 

(9)  The  current  version  of  the  AFP  System  in  general,  and  Combat 
Module  in  particular,  permits  up  to  10  types  of  indirect  fire  weapons  per 
side  to  fire  on  the  two  weapon  types  of  a  normal  or  counterbattery  version 
of  a  direct  fire  engagement.  Each  of  the  20  indirect  fire  weapon  types  may 
have  a  refire  time  different  from  the  rest.  Hence,  the  Combat  Module  must 
be  capable  of  interweaving  20  different  indirect  fire  rates  within  the 
framework  of  direct  fire  cycles.  Some  indirect  fire  weapons  may  fire  more 
rapidly  than  either  of  an  engagement's  two  direct  fire  weapon  types.  Of 
course,  some  indirect  fire  weapons  may  fire  more  slowly  than  the  direct 
fire  weapons.  And  if  the  direct  fire  weapons  fire  at  different  rates, 
there  may  be  some  indirect  fire  weapons  which  fire  at  intermediate  rates. 

All  three  of  these  cases  may  apply  within  a  single  direct  fire  engagement. 
Indirect  fire  is  latched  to  the  normal  direct  fire  shot  cycles.  Whereas 
only  one  direct  fire  shot  is  permitted  per  direct  fire  cycle,  indirect  fire 
weapons  of  a  type  may  fire  zero,  one,  or  more  volleys  within  a  single  direct 
fire  shot  cycle.  An  indirect  fire  weapon  type  with  refire  times 
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longer  than  the  average  time  between  direct  fire  shot  cycles  is  permitted 
to  fire  only  every  R ( IND )/R (DIR )  shot  cycles.  Inasmuch  as  this  ratio  is 
not  necessarily  an  integer,  some  compromise  has  to  be  made  by  the  Combat 
Module.  An  indirect  fire  weapon  with  refire  times  shorter  than  the  average 
time  between  direct  fire  shot  cycles  is  permitted  to  fire  R ( D IR )/R ( IND ) 
times  per  shot  cycle.  This  ratio,  too,  is  not  necessarily  an  integer;  so 
again  some  compromise  is  necessary.  In  principle,  an  indirect  fire  weapon 
does  not  fire  its  first  shot  until  its  input-specified  refire  time  has 
elapsed.  However,  an  indirect  fire  weapon  with  refire  time  less  than  or 
equal  to  the  mean  time  between  direct  fire  shot  cycles  will  be  latched  to 
fire  on  the  first  direct  fire  shot  cycle.  But  because  the  first  direct 
fire  shot  depends  only  on  detection  time  and  not  the  direct  fire/refire 
time,  the  "time"  to  the  first  indirect  fire  shot(s)  may  be  much  shorter 
than  the  mean  indirect  refire  time.  In  fact,  if  no  direct  fire  weapon  has 
detected  a  target  on  the  first  direct  fire  shot  cycle,  no  direct  weapon 
will  fire  nor  will  any  direct  fire  time  elapse.  Thus,  in  the  extreme,  one 
or  more  volleys  by  an  indirect  weapon  type  may  occur  without  so  much  as  the 
first  tick  of  the  "direct  fire  clock."  For  all  known  weapons,  this  anomaly 
may  be  of  theoretical  interest,  but  it  is  not  a  practical  concern. 

(a)  Consider  1:1  direct  fire  duels  with  mean  refire  times  of  1.9 
minutes  for  each  of  the  direct  fire  weapon  types.  Also  consider  an  indirect 
fire  weapon  type  with  a  mean  refire  time  of  1.5  minutes.  Let  the  conflict 
duration  be  2.01  minutes.  Combat  Module  logic  will  assign  two  shot  cycles 
to  the  duel.  The  implied  average  time  between  shot  cycles  is  2.01/2  =  1.005 
minutes.  Because  1.005  minutes  is  less  than  the  indirect  refire  time  of 
1.5,  the  indirect  fire  weapons  do  not  fire  on  the  first  shot  cycle.  The 
implied  time  of  the  second  shot  cycle  is  greater  than  1.5  minutes;  there¬ 
fore,  the  indirect  fire  weapons  do  fire  on  the  second  shot  cycle.  The 
"real"  time  of  the  second  shot  cycle  may  be  much  less  than  1.5  minutes; 
nevertheless,  the  indirect  fire  weapons  do  fire  on  the  second  shot  cycle. 

The  net  effect  of  all  these  times  is  that  the  indirect  fire  weapons  of  the 
assumed  type  fire  once  during  the  conflict. 

(b)  Consider  the  above  example  with  one  change.  Now  let  the  refire 
time  of  the  indirect  fire  weapons  be  0.9  minutes.  There  are  still  just  two 
direct  fire  shot  cycles  with  the  implied  average  time  of  1.005  minutes  be¬ 
tween  them.  But  because  0.9  minutes  is  less  than  1.005  minutes,  the  indirect 
fire  weapons  fire  on  the  first  shot  cycle.  And  because  2  x  0.9  is  less 

than  2  x  1.005,  the  indirect  fire  weapons  also  fire  on  the  second  shot  cycle. 
The  net  effect  of  all  these  times  is  that  the  indirect  fire  weapons  of  the 
assumed  type  fire  twice  during  the  conflict. 

(c)  Next  consider  the  first  example  with  a  different  kind  of  change. 
Suppose  the  duel  occurs  at  2:1  odds.  Refire  times  remain  unchanged.  The 
Combat  Module  logic  now  assigns  three  shot  cycles.  The  implied  average 
time  between  direct  fire  shot  cycles  is  now  2.01/3  =  0.67  minutes.  The 
input-specified  refire  time  of  the  indirect  fire  weapons  is  1.5  minutes. 

The  implied  time  of  the  first  shot  cycle  is  0.67  minutes.  Because  0.67  is 
less  than  1.5  minutes,  the  indirect  fire  weapons  do  not  fire  on  the  first 
shot  cycle.  And  because  2  x  0.67  is  less  than  1.5  minutes,  the  indirect 
fire  weapons  do  not  fire  on  the  second  shot  cycle  either.  Yet,  on  the 
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third  shot  cycle,  3  x  0.67  is  greater  than  1.5  minutes;  thus,  the  indirect 
fire  weapons  do  fire  on  the  third  (the  last)  shot  cycle.  The  net  effect  of 
the  interweaving  of  all  these  implied  and  real  times  is  that  the  indirect 
fire  weapons  fire  only  once  during  the  conflict. 

(d)  Fi  nally,  consider  the  second  example  with  one  change.  Suppose 
the  duel  occurs  at  2:1  odds.  As  in  the  third  example,  the  Combat  Module 
assigns  three  shot  cycles  with  the  implied  average  time  between  shot  cycles 
of  0.67  minutes.  The  input-specified  refire  time  is  0.9  minutes.  The  im¬ 
plied  time  of  the  first  shot  cycle  is  0.67  minutes;  because  this  is  less 
than  0.9  minutes,  the  indirect  fire  weapons  do  not  fire  on  the  first  direct 
fire  shot  cycle.  Because  2  x  0.67  is  greater  than  0.9  minutes,  the  indirect 
fire  weapons  do  fire  on  the  second  direct  fire  shot  cycle.  And  because  3  x 
0.67  is  greater  than  2  x  0.9  minutes,  the  indirect  fire  weapons  fire  again 
on  the  third  shot  cycle.  The  Combat  Module  logic  is  such  that  two,  and 
exactly  two,  volleys  are  fired  even  if  the  conflict  has  10  shot  cycles;  of 
course,  the  cycles  on  which  the  volleys  are  fired  does  depend  on  the  number 
of  shot  cycles. 

(e)  The  examples  just  described  may  seem  like  separate,  unrelated 
conflicts  of  more  theoretical  than  practical  concern.  Rounding  to  integral 
numbers  of  indirect  fire  volleys  is  a  practical  requirement  and  may  be  ex¬ 
pected  to  induce  some  differences  in  the  number  of  rounds  fired  from  engage¬ 
ment  to  engagement.  But  as  just  shown,  it  is  possible  for  the  number  of 
volleys  to  change  between  conflicts  within  the  same  engagement.  An  early 
conflict  may  involve  entirely  1:1  duels.  Attrition  in  the  early  conflict 
may  cause  a  later  conflict  on  the  same  day  to  occur  at  2:1  (or  higher 
odds).  A  change  in  the  odds  class  changes  the  number  of  shot  cycles  and 
can  (but  usually  does  not)  change  the  number  of  indirect  fire  volleys.  In 
the  example  above,  the  odds  increased  in  the  "later"  conflict.  An  example 
in  which  the  odds  decrease  can  be  contrived  just  as  easily.  The  point  is 
that  the  number  of  indirect  fire  volleys  may  change  upward  or  downward  or 
may  remain  the  same  for  conflicts  on  the  same  day  within  a  single  type-on- 
type  engagement.  Such  changes  are  primarily  artifacts  of  Combat  Module 
logic  for  latching  indirect  fire  to  direct  fire  shot  cycles.  That  logic  is 
a  potential  source  of  variation  in  AFP  results  largely  unrelated  to  the 
usual  issues  addressed  in  comparing  weapons  and  units.  The  bottom  line: 

BE  CAUTIOUS. 

(10)  Consider  a  direct  fire  shot  cycle  with  indirect  fire  latched  to 
it.  Because  of  the  possibly  different  refire  times  of  different  indirect 
fire  weapon  types,  less  than  all  indirect  fire  weapon  types  are  likely  to 
be  eligible  to  fire  in  this  direct  fire  shot  cycle.  Or,  if  noneligibility 
to  fire  is  considered  to  be  eligibility  to  fire  zero  rounds,  then  each  in¬ 
direct  fire  weapon  type  is  "eligible"  at  each  direct  fire  shot  cycle. 

Within  a  shot  cycle,  indirect  firing  is  processed  before  the  direct  firing. 
Each  indirect  fire  weapon  type  is  considered  in  turn.  Each  of  the  previously 
assigned  (the  assignments  are  not  described  until  later)  indirect  fire 
weapons  of  that  type  fires  its  "eligible"  number  of  rounds:  zero  if  its 
refire  time  ratio  to  the  direct  refire  times  does  not  "hit"  this  shot  cycle, 
one  round  if  the  refire  cycles  match,  more  than  one  round 
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if  the  indirect  weapon  is  a  rapid  firer.  All  assigned  weapons  of  that 
indirect  fire  weapon  type  fire  their  eligible  number  of  rounds,  say  E 
rounds  each.  The  net  effect,  if  there  are  A  assigned  weapons,  is  for 
weapons  of  that  type  to  fire  E  volleys  of  A  rounds  at  the  beginning  of  the 
otherwise  direct  fire  shot  cycle.  Each  such  round  is  credited  with  an 
input-specified  fractional  kill  capability  K.  Thus,  the  assigned  indirect 
fire  weapons  of  the  type  under  consideration  are  "expected"  to  kill  A  x  E  x 
K  =  T  targets.  Usually  T  is  not  an  integer.  INT(T)  kills  are  assessed 
directly  against  the  targets  within  the  conflict.  INT(T)  pointers  to  duels 
within  the  conflict  and  to  targets  within  the  duels  are  generated.  If  the 
target  "pointed  to"  had  not  been  killed  previously  in  an  earlier  or  this 
shot  cycle,  it  is  flagged  as  killed,  and  a  kill  is  credited  to  the  indirect 
weapon  type.  If  the  target  "pointed  to"  had  been  killed  previously,  no 
credit  for  a  kill  is  given,  and  the  round  is,  in  effect,  wasted.  In  one 
sense,  INT(T)  is  a  deterministic  number  of  kills  with  only  the  identity  of 
the  victim(s)  to  be  determined.  But  as  just  explained,  there  is  an  element 
of  uncertainty  inasmuch  as  there  may  be  fewer  that  INT(T)  live  targets. 

The  fractional  part,  if  any,  of  T  must  be  assessed.  Let  T'  =  T  -  INT(T)  be 
the  fractional  part  of  T.  Recall  that  only  whole  targets  can  be  killed  and 
credited.  T'  is  compared  with  a  randomly  drawn  number  to  determine  whether 
1.0  or  0.0  kill  is  to  be  attempted  to  be  credited.  There  is  obviously  no 
need  to  attempt  to  credit  0.0  kill.  However,  an  attempt  to  assign  1.0  kill 
may  succeed  or  fail.  A  pointer  to  a  conflict  and  duel  is  generated  random¬ 
ly;  if  the  pointer  points  to  a  live  target,  a  kill  is  flagged  and  credited; 
if  the  pointer  points  to  a  killed  target,  no  kill  is  credited.  Indirect 
fire  weapon  types  are  processed  in  numerical  index  order.  The  first  type 
has  the  greatest  opportunity  to  score  kills  in  the  sense  that  following 
types  may  face  fewer  live  targets.  Fortunately,  most  of  the  indirect  fire 
weapons  yield  such  small  T  values  that  "who  shoots  first"  is  more  of  a 
theoretical  than  practical  concern.  But  note  that  all  the  indirect  fire 
kills  are  taken  off  the  "top"  in  a  shot  cycle,  possibly  reducing  the 
opportunities  for  the  direct  fire  weapons  to  score  kills,  and  thereby  earn 
combat  potential.  Again,  the  small  T  values  of  typical  indirect  fire 
should  only  rarely  deny  opportunity  to  the  direct  fire  weapons  by  killing 
them  or  their  targets  "prematurely."  Even  after  one  side's  direct  fire 
weapons  have  been  killed  (by  indirect  or  direct  fire  of  their  combination), 
indirect  fire  will  continue  to  latch  on  following  shot  cycles.  Thus,  a 
surviving  side  may  continue  to  receive  indirect  fire  and  suffer  losses 
until  SHOT  CYCLES  is  reached.  Indirect  fire  is  not  limited  by  MAXIMUM 
TIME.  In  principle,  indirect  fire  should  stop  at  MAXIMUM  TIME,  but  book  is 
not  kept  on  time  after  the  direct  firing  has  stopped.  The  preceding  dis¬ 
cussion  is  keyed  to  indirect  fire  falling  on  direct  fire  duels  in  the  first 
five  ranges  where  direct  fire  weapons  may  fire  on  one  another  on  shot 
cycles.  At  the  deep  range,  the  so-called  direct  fire  weapons  do  not  fire 
on  one  another;  hence,  indirect  fire  is  latched  to  artificially  generated 
shot  cycles. 

c.  Weapon  Preference  and  Allocation.  The  preceding  paragraphs  have 
described  many  of  the  features  of  direct  fire  engagements  given  the  numbers 
of  engaging  direct  fire  weapons  and  the  numbers  of  indirect  fire  weapons 
firing  on  the  direct  fire  weapons.  This  paragraph  describes  the  processes 
by  which  those  supposedly  "given"  numbers  are  determined.  The  underlying 
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problem  is  very  close  to  ones  frequently  described  as  assignment  or  alloca¬ 
tion  problems--so  close  that  it  seems  useful  to  borrow  some  of  the  terms 
and  illustrations  of  that  field.  The  description  also  has  a  bit  of  game 
theoretic  flavor,  even  though  the  Combat  Module  itself  does  not. 

(1)  Suppose  a  sort  of  two-sided  game  in  which  one  side  possesses  two 
kinds  of  resources  (U  and  V),  and  the  other  side  possesses  two  kinds  of 
resources  (X  and  Y).  Let  there  be  a  game  board  divided  into  quarters 
marked  1,  2,  3,  and  4. 


Game  board  or 
matri x 


1 

2 

3 

4 

Side  1  may  put  some  of  U  in  cell  1  and  some  in  cell  2.  Side  1  may  put  some 
of  V  in  cell  3  and  some  in  cell  4.  Side  2  may  put  some  of  X  in  cell  1  and 
some  in  cell  3.  Side  2  may  put  some  of  Y  in  cell  2  and  some  in  cell  4. 


Allocation  matrix 


U1,X1 

U2,Y2 

V3,X3 

V4,Y4 

All  quantities  must  be  nonnegative,  and  they  should  satisfy  some  simple 
relations. 

U1  +  U2  <  =  UTOT 
V3  +  V4  <  =  VTOT 
XI  +  X3  <  =  XTOT 
Y2  +  Y4  <  =  YTOT 

i.e.,  neither  side  may  assign  more  of  a  resource  than  it  has  in  total. 

(2)  Next  suppose  that  Side  1  earns  points  in  accord  with  some 
f ormul a: 

51  =  Q1(U1,X1)  +  Q2(U2,  Y2)  +  Q3(V3,X3)  +  Q4(V4,Y4) 
and  that  Side  2  earns  points  in  accord  with  some  formula: 

52  =  R1(U1,X1)  +  R2(U2,Y2)  +  R3(V3,X3)  +  R4(V4,Y4) 

(3)  Presumably,  Side  1  would  like  to  assign  its  resources  (i.e.,  pick 
the  values  Ul,  U2,  V 3,  and  V4)  in  a  way  that  gives  high  assurance  of 
achieving  a  good  score  SI  for  itself  but  with  some  regard  for  the  score  S2 
achieved  by  the  other  side.  And  presumably,  Side  2  would  like  to  assign 
its  resources  (i.e.,  pick  values  XI,  X3,  Y2,  and  Y4)  in  a  way  that  gives 
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high  assurance  of  achieving  a  good  score  S2  for  itself  but  with  some  regard 
for  the  score  SI  achieved  by  the  other  side.  Game  theorists  know  how  to 
make  these  assignments  provided  some  very  special  circumstances  apply.  In 
AFP  those  special  circumstances  do  not  apply.  Nevertheless,  the  AFP  Combat 
Module  must  make  resource  (weapon)  assignments  in  cases  with  up  to  60  kinds 
of  resources  for  each  side,  implying  up  to  a  60  x  60  game  board.  In  AFP 
terms,  a  side  may  assign  only  one  type  of  direct  fire  weapon  to  a  cell,  but 
it  may  assign  all  of  its  indirect  fire  weapon  types  to  a  cell.  There  is  no 
AFP  assignment/allocation  algorithm  for  maximizing  a  side's  combat  potential 
much  less  while  simultaneously  minimizing  the  opponent's  combat  potentiat¬ 
or  vice  versa--or  both  together  in  a  two-sided  min-max  sense.  Nevertheless, 
there  is  an  AFP  algorithm  that  does  make  all  the  assignments.  More  accurate 
ly,  there  are  two  algorithms,  one  for  direct  and  another  for  indirect  fire 
weapon  assignment/allocation.  The  most  that  is  ever  said  for  the  algorithms 
is  that  they  usually  lead  to  "reasonable"  allocations.  And  in  those  cases 
where  allocation  results  are  objectionable,  the  AFP  customer  is  invited  to 
suggest  better  rules — hardly  a  trivial  matter. 

(4)  Consider  again  the  four-celled  game  board  appropriate  for  the 
special  case  in  which  each  side  possesses  only  two  types  of  resources.  And 
for  the  time  being,  suppose  that  there  are  equal  (or  standard)  quantities 
of  all  resources.  Then,  it  seems  helpful  to  think  in  terms  of  "pref erences . 


Fractional  preference  matrix 


p(U,X),p(X,U) 

P(U, Y) ,p(Y,U ) 

P(V,X),p(X,V) 

p(V,Y),P(Y,V) 

p(U,X)  represents  Side  l's  "fractional  preference"  to  have  resource  U 
engage  Side  2's  resource  X.  p(X,U)  represents  Side  2 1 s  fractional  prefer¬ 
ence  to  have  resource  X  engage  Side  l's  resource  U.  All  p()'s  should  be 
nonnegative.  For  ordinary  direct  fire  weapons,  it  is  intended  that: 

P(U,X)  +  p(U,Y)  =  1.0 

For  the  special  counterbattery  version  of  direct  fire,  the  corresponding 
relation  is: 

P(U,X)  +  p(U,Y)  =  f (U )  <  1.0 

with  the  implication  that  (1.0  -  f(U))  x  UTOT  of  weapon  type  U  will  be  as¬ 
signed  to  the  indirect  fire  role.  At  first,  it  may  seem  satisfactory  to 
let,  for  example  (here  again  assuming  ordinary  direct  fire): 

U1  =  p(U,X)  x  UTOT 

In  the  case  where  weapons  are  equal  in  quantity,  this  simple  expression  may 
be  sufficient.  But  the  allocation  method  should  also  produce  reasonable 
results  under  some  other  special  cases.  If  XTOT  =  0,  then  Side  1  should 
let  U1  =  0.  In  other  words,  do  not  waste  weapons  by  assigning  them  to 
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cells  empty  of  opponents.  Also,  if  Side  2 ' s  weapon  X  is  a  greater  killer 
of  Side  l's  weapon  U,  Side  1  must  be  prevented  from  escaping  free  simply  by 
choosing  p(U,X)  =  0.  Consider  the  generalizations  to  handle  these  special 
cases  in  reverse  order. 

(a)  The  first  generalization  is  intended  to  provide  some  recon¬ 
ciliation  of  two  sides'  differences  in  preference.  The  intent  is  to  force 
at  least  some  "reluctant"  weapons  to  engage  difficult  opponents  and  to 
preclude  at  least  some  "eager"  weapons  from  engaging  easy  targets.  This  is 
accomplished  by  modifying  fractional  preferences  in  such  a  way  that  two 
different  preferences  move  half-way  toward  their  mean  value.  For  example: 

p'(U.X)  =  (  mean  )  +  (half  the  difference  from  mean) 


=  0.5(p(U,X)  +  p(X  ,1) ) )  +  0.5(p(U,X)  -  0.5(p(U,X)  +  p(X,U))) 
=  0.75p(U,X)  +  0.25p(X,U) 


Incidenti al ly,  this  expression  is  correct  whether  p(U,X)  is  greater  than, 
equal  to,  or  less  than  the  mean  of  p(U,X)  and  p(X,U).  It  is  also  the  mean 
of  the  original  preference  with  the  mean  of  the  two  original  preferences. 

p'(U,X)  =  0.5(p(U,X)  +  0.5(p(U,X)  +  p(X,U))) 

The  result  of  performing  this  step  for  all  cells  will  usually  lead  to  a 
rel ation: 

p'(U,X)  +  p 1  ( U , Y )< >1.0  (orof(U)  in  the  general  case) 

Therefore,  the  first  modified  preferences  are  modified  again  by  renormaliz¬ 
ing  them  to  yield  the  original  totals.  For  example: 


p"(U,X)  =  (p'(U,X)  x  f(U))/(p'(U,X)  +  p 1 (U ,  Y ) ) 


The  renormalized,  modified  preferences  satisfy: 
P" (U,X)  +  p"(U,Y)  =  f (U ) 


The  Combat  Module  performs  these  steps  for  up  to  60  weapon  types  on  each 
side. 

(b)  The  second  generalization  makes  allocation  depend  not  only  on 
the  fractional  preferences  but  also  on  the  opponent's  inventory  quantities. 
The  intent  is  to  allocate  more  than  the  simple  fraction  of  one's  weapon 
type  if  the  opponent  has  more  than  "average,"  and  to  allocate  less  than  the 
simple  fraction  of  one's  weapon  type  if  the  opponent  has  less  than  the 
"average"  number  of  the  type  in  question.  This  is  why  it  was  suggested 
that  the  original  fractional  preferences  be  thought  of  in  the  special  con¬ 
text  of  equal  numbers  (or  standard  numbers)  of  weapons.  Analysts  seem  to 
waver  between  notions  of  equal  and  standard  numbers  of  opponents  as  they 
"fill  in  the  blanks"  on  a  fractional  preferences  input  forms.  Whatever 
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those  analysts'  feelings  were  during  input  data  generation,  the  Combat 
Module  adjusts  for  opposing  inventories;  for  example: 

(p"(U,X)  x  XTOT) 

U1  =  UTOT  x  - 

(p"(U,X)  x  XTOT)  +  (p"(U,Y)  x  YTOT) ) 


(p"(U,Y)  x  YTOT) 

U2  =  UTOT  x  - 

(p"(U,X)  x  XTOT)  +  (p"(U,Y)  x  YTOT)) 


These  allocations  have  many  of  the  intended  properties. 

1.  U1  +  U2  =  UTOT 

2.  The  renormalized,  reconciled  fraction  preferences  p"()  are 

used 


3.  If  there  is  no  opposing  weapon  (e.g.,  if  XTOT  =  0),  none  of 
resource  U  will  be  allocated  to  engage  it 

4.  If  the  original  fractional  preferences  have  been  picked  with 

an  underlying  notion  that  all  types  of  opposing  weapons  were  equal  in  number 
(i.e.,  XTOT  =  YTOT  =  ATOT),  the  expression,  for  example,  for  U1  above  be¬ 
comes: 


(p"(U,X)  x  ATOT) 

U1  =  UTOT  x  - 

(p"(U,X)  x  ATOT)  +  (p“ (U,Y)  x  ATOT)) 

p"(U,X) 

U1  =  UTOT  x  - 

P" (U,X)  +  p"(U,Y) 

where  for  the  usual  direct  fire  weapons 
p"(U,X)  +  p"(U,Y)  =  1.0 
yielding  the  original  "intuitive"  form 
U1  =  UTOT  x  p"(U,X) 

Hence,  the  generalized  procedure  includes  the  original  special  case. 
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(5)  The  allocated  weapons  need  not  all  get  into  conflicts.  As  noted 
later,  the  numbers  allocated  may  be  reduced  as  the  results  of  external 
losses  or  participation  factors  less  than  1.0. 

(6)  In  general,  application  of  the  allocation  procedures  described  so 
far  does  not  yield  integers.  Therefore,  the  Combat  Module  includes  addi¬ 
tional  steps.  The  integral  parts  of  allocations  are  left  "in  place."  The 
fractional  parts  are  redistributed  in  integer  parts  to  the  engagements  in 
order  of  descending  size  of  the  former  fractional  parts. 

(7)  The  allocation  of  indirect  fire  weapons  is  similar  to  the  process 
described  above  for  the  direct  fire  weapons.  For  indirect  fire  weapons, 
fractional  preferences  and  participations  are  input  as  a  single  combined 
number--one  for  each  direct  fire  weapon  (target)  type.  One  constraint  is 
relaxed,  however.  The  same  indirect  fire  weapons  may  be  considered  to  fire 
on  different  engagements  because  different  types  of  direct  fire  weapons  may 
be  collocated  within  the  same  target  area  even  though  the  Combat  Module  has 
artificially  segregated  all  direct  fire  weapons  into  pure- type-on-pure- type 
engagements:  conflicts  and  duels.  Recall  that  some  weapons  of  indirect 
fire  type  may  be  unavailable  as  indirect  firers  because  they  have  been 
treated  as  counterbattery  (i.e.,  special  direct  fire)  weapons.  As  usual, 
the  early  steps  of  allocation  may  produce  numbers  that  are  not  pure  inte¬ 
gers.  The  Combat  Module  includes  logic  to  distribute  fractional  parts  so 
that  only  integral  numbers  of  indirect  firers  are  finally  allocated. 

(a)  Not  all  of  the  indirect  fire  weapons  should  fire  on  every  en¬ 
gagement  cell  involving  the  given  type  of  direct  fire  weapons.  If  W1  weap¬ 
ons  of  a  total  of  WT  weapons  of  the  direct  fire  type  have  been  allocated  to 
engagement  cell  1,  then  only  Wl/WT  of  the  indirect  fire  weapon  type  are 
allocated  to  cell  1.  The  fraction  Wl/WT  is  determined  during  execution  of 
the  Combat  Module.  At  this  stage,  (Wl/WT),  of  the  indirect  fire  weapons 
have  been  allocated  to  engagement  cell  1.  The  Combat  Module  distributes 
those  indirect  fire  weapons  across  ranges  in  proportion  to  the  input-speci¬ 
fied  range  distribution  for  each  corresponding  indirect  fire  weapon  type. 

If  a  fractional  number  of  indirect  fire  weapons  is  assigned  to  a  range,  the 
number  is  rounded  up  or  down  stochastically  in  proportion  to  the  fractional 
part  of  the  assignment. 

(b)  The  indirect  fire  weapons  assigned  to  fire  on  engagement  cell  1 
do  so  under  the  assumption  that  rounds  fall  within  a  doctrinal  target  area 
against  targets  at  doctrinal  densities.  The  preprocessor  derived 
fractional  kills  per  round  for  this  assumption.  As  the  first  conflict  of  a 
day  runs  its  course,  some  of  the  direct  fire  weapons  may  be  killed  by 
direct  or  indirect  fire  weapons.  The  killed  weapons  remain  within  the 
implied  array,  thereby  maintaining  target  densities  consistent  with  the 
assumptions.  Hence,  it  is  appropriate  to  continue  to  use  the  same 
fractional  kills  per  round  and  the  same  number  of  direct  fire  weapons 
throughout  the  first  conflict.  The  Combat  Module  continues  to  distribute 
hits  in  accord  with  the  original  densities  but  does  not  give  credit  for 
killing  the  same  target  more  than  once.  If  subsequent  conflicts  occur  on 
the  same  day,  the  Combat  Module  removes  all  targets  killed  in  the  preceding 
conflict.  One  effect  is  to  reduce  the  target  density  below  that  assumed 
during  the  original 
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derivation  of  the  fractional  kills  per  round  input  to  the  Combat  Module. 

The  Combat  Module  continues  to  use  the  same  fractional  kills  per  round 
throughout  all  conflicts  during  a  day.  However,  the  Combat  Module  compen¬ 
sates  by  reducing  the  number  of  indirect  fire  weapons  firing  on  the  ensuing 
conflicts.  The  factor  Wl/WT  defined  above  is  generalized  such  that  W1 
represents  only  the  survivors  of  the  preceding  conflict.  Although  the  ad¬ 
justment  is  made  to  the  number  of  indirect  fire  weapons  assigned,  the  result 
is  equivalent  to  having  made  the  adjustment  to  the  fractional  kills  per 
round.  One  systematic  error  does  remain,  however.  No  attrition  occurs  to 
the  indirect  fire  weapons  during  the  course  of  a  Combat  Module  day.  The 
counterbattery  fire  weapons  are  attrited  during  the  course  of  a  day,  but 
such  attrition  cannot  affect  the  number  of  indirect  fire  weapons  until  the 
beginning  of  the  following  day. 

d.  Census  Space  Formalism 

(1)  The  "normal  viewpoint"  for  considering  the  estimation  of  AFP  com¬ 
bat  potential  is  that  of  an  observer  of  the  census  of  up  to  120  weapon 
types:  up  to  60  Blue  types  and  up  to  60  Red  types.  Column  A  of  Table  D-l 
represents  the  initial  number  of  m  Blue  weapon  types  by  the  symbols  x0(l), 
x0(2) , . . . ,xO(m)  and  the  initial  numbers  of  n  Red  weapon  types  by  the  sym¬ 
bols  yO(l),  y0(2) , . . . ,yO(n) .  Together  these  symbols  define  a  point  in  a 
census  space  of  (m+n)  dimensions.  Column  A  can  be  considered  the  position 
vector  of  the  starting  point  for  a  run  of  the  AFP  Combat  Module. 


(2)  Column  B  of  Table  D-l  represents  the  numbers  of  weapons  remaining 
or  surviving  at  the  end  of  a  run  of  the  AFP  Combat  Module.  Column  B  can  be 
considered  the  position  vector  for  the  ending  point  of  a  Combat  Module  run. 
The  Combat  Module  does  not  generate  much  more  information  than  the  equiva¬ 
lent  of  Columns  A  and  B.  (Actually,  the  Combat  Module  does  produce  the 
equivalent  of  Columns  A  and  B  for  each  "day"  of  a  Combat  Module  run. 
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And  because  the  module  decomposes  combat  into  weapon-type-on-weapon-type 
duels,  information  about  the  starting  and  ending  points  for  duels  is  also 
available.  However,  this  section  formally  introduces  decomposition  in  later 
paragraphs.  For  the  time  being,  the  reader  should  wait  patiently  for 
decomposition  to  appear  in  logical  order.) 

(3)  One  of  the  problems  faced  in  estimating  combat  potential  is  to 
make  the  measure  of  potential  depend  on  both  enemy  and  friendly  losses. 

The  losses  generated  in  an  AFP  Combat  Module  run  are  given  by  the  differ¬ 
ence  between  Columns  A  and  B  of  Table  D-l  as  the  ordinary  vector  difference 
A-B.  Some  analysts  favored  making  combat  potential  a  weighted  sum  of  se¬ 
lected  elements  of  the  vector  A-B.  It  was  clear  that  the  result  of  such  a 
computation  would,  in  general,  depend  too  strongly  on  the  number  of  "days" 
examined  in  an  AFP  Combat  Module  run.  A  result  so  strongly  dependent  on  a 
number  of  "days"  was  objectionable  on  the  grounds  that  the  measure  retained 
to  much  time-like  flavor  to  be  considered  a  static  measure.  Also,  static 
or  dynamic,  no  one  offered  a  sound  basis  for  picking  the  "correct"  number 
of  days.  Although  not  necessarily  objectionable,  the  fact  that  the  side 
whose  potential  was  being  estimated  generally  lost  different  fractions  of 
its  weapon  types  did  seem  to  confuse  interpretation  of  the  resulting  meas¬ 
ure.  To  have  unequal  fractional  losses  for  all  or  nearly  all  weapons  on 
both  sides  makes  division  or  force  comparisons  that  much  more  confusing. 
Letting  both  the  numerators  and  denominators  of  exchange-like  ratios  float 
implied  an  unspecified  standard  of  comparison.  The  need  to  consider,  at 
least  in  part,  exchange-like  ratios  arose  with  the  commitment  to  treat  both 
losses  inflicted  and  losses  suffered. 

(4)  The  concepts  and  operations  described  in  this  and  the  following 
subparagraphs  are  applied  in  the  AFP  CBT/CS/CSS  Merge  Module,  not  in  the 
Combat  Module.  The  Column  B  vector  in  Table  D-l  represents  a  point  in  cen¬ 
sus  space  in  which  all  surviving  strengths  correspond  to  a  single  instant 
in  Combat  Module  "time,"  the  end  of  the  last  module  "day."  That  point  is  a 
natural  one  in  the  sense  of  the  Combat  Module.  There  are  other  natural 
points  in  census  space--natural  from  other  points  of  view.  One  such  point 
is  the  one  representing  an  estimate  of  Red  (y)  surviving  strength  given 
that  exactly  (1-f)  of  each  Blue  (x)  weapon  strength  survives,  i.e.,  the 
point  for  which  all  Blue  coordinates  are  of  the  form  (l-f)xO(i)  for  i=l  to 
m.  The  obvious  question  is,  "What  are  the  corresponding  Red  (y)  coordi¬ 
nates  yl'(j)  for  j=l  to  n  of  the  point?"  The  position  vector  of  this 
point  is  represented  in  Column  C  of  Table  D-l.  In  general,  the  coordinates 
yl'(j)  must  be  functions  of  the  coordinates  (l-f)xO(i).  The  combat  poten¬ 
tial  (without  CS/CSS  modulation)  for  the  entire  Blue  force  (symbolized  as 
BCOP )  is  then  calculable  as  follows  (with  v(j)  the  assigned  value  of  target 
type  j): 

BCOP  = 

S  v(j)  (yO(j)  -  yl1  ( j ;( 1-f )x0( 1) ,( 1-f )x0(2) ,...,( 1-f )xO(m) ) ) 
j=l,n 
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This  formula  is  simply  the  weighted  difference  between  the  y  portions  of 
the  vectors  in  Columns  A  and  C.  As  yet,  nothing  has  been  revealed  about 
the  form  of  the  functional  dependence  of  the  yl '  on  the  fixed  coordinates 
(l-f)xO(i);  two  families  of  functional  forms  are  presented  in  paragraph 
D-le.  An  important  assumption  of  AFP  is  that  the  foregoing  expression  for 
BCOP  can  be  decomposed  as  follows: 


BCOP  = 

2  v(j)  2  (yO(j,i)  -  yl'(j,i;(l-f)xO(i))) 
j=l,n  i=l,m 


The  decomposition  reflected  in  this  expression  corresponds  to  the  way  in 
which  the  AFP  Combat  Module  decomposes  total  combat  into  engagements  be¬ 
tween  single  types  of  direct  fire  weapons.  The  generalized  notion  splits 
the  total  of  y-type  j  y(j)  into  components,  into  the  portions  engaging 
Blue  type  i  y ( j , i ) -  Similarly,  x(i,j)  represents  the  portion  of  Blue  type 
i  engaging  Red  type  j. 

(5)  CS/CSS  modulation  involves  multiplying  the  terms  in  the  preceding 
expression  by  the  moduli  appropriate  to  the  particular  weapon  type  i  and  j 
pairings.  The  modulated  Blue  COP  is  symbolized  as  BMODCOP  and  is  calcu¬ 
lated  in  accord  with  the  following  expression: 

BMODCOP  = 

£  v(j)  £  ( BCSCSS ( i , j ) )  (yO(j,i)  -  yl 1 ( j , i ; ( 1-f )x0( i ) ) ) 

j=l,n  i=l,m 


(6)  The  determination  of  unmodulated  and  modulated  Red  COPs  is  per¬ 
fectly  symmetrical  with  that  for  the  Blue  COPs  above.  The  corresponding 
expressions  may  be  generated  by  replacing  "B"  by  "R"  and  exchanging  y  and  x 
wherever  they  appear  above.  In  census  space,  the  operation  corresponds  to 
taking  the  difference  between  the  x  portions  of  the  vectors  in  Columns  A 
and  D  of  Table  D-l. 

(7)  The  unmodulated  Red  COP  is  given  by  (with  u(i)  the  assigned  value 
of  target  type  i): 

RCOP  = 

2]  u ( i )  (xO(i)  -  xl* (i ; (1-f )y0( 1) , ( 1-f )y0(2) ,...,( 1-f )y0( n) ) ) 
i  =  l,m 


(8)  Decomposition  of  the  foregoing  expression  to  correspond  to  the 
AFP  module's  weapon-type-on-weapon-type  duels  yields: 

RCOP  = 

2Z  u(i)  £  (x0( i , j )  -  xl '  ( i , j ; ( 1-f  )yO( j ) ) ) 

i=l,m  j=l,n 
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(9)  Modulation  of  the  unmodulated  Red  COP  requires  inclusion  of  the 
CS/CSS  moduli  corresponding  to  the  specific  j  and  i  type  weapon  pairings. 

RMODCOP  = 


( RCSCSS ( j , i ) )  (xO(i,j)  -  xl1 (i J;(l-f )yO(j))) 


i=l,m 


e.  Some  Examples  for  Two-dimensional  Vector  Fields 

(1)  The  AFP  Combat  Module  is  based,  among  other  things,  on  an  assump¬ 
tion  that  combat  in  a  census  space  of  up  to  120  dimensions  may  be  decomposed 
to  a  satisfactory  degree  of  approximation  as  independent  direct  fire  duels 
(with  some  intrusion  by  indirect  fire)  in  up  to  3,600  two-dimensional  sub¬ 
spaces.  At  its  most  fundamental  level,  AFP  combat  analysis  reduces  to  the 
consideration  of  highly  specialized,  two-dimensional  vector  fields.  The 
AFP  Combat  Module  generates  a  single  estimate  of  exchange  ratio  for  each 
day  for  each  two-dimensional,  type-on-type  engagement.  In  this  discussion, 
indirect  fire  is  ignored  for  purposes  of  simplifying  the  basic  explanation. 
The  fundamental  data  describe  just  two  points  in  the  two  space.  The  start¬ 
ing  point  of  an  engagement  is  represented  by  the  ordered  pair:  yO,  xO. 

The  ending  point  of  an  engagement  is  represented  by  the  ordered  pair:  yl, 
xl.  Hence,  yl  and  xl  simply  represent  the  surviving  strengths  at  an  engage¬ 
ment's  end.  Then  the  gross  exchange  ratio  is  simply:  (yO  -  yl)/xO  -  xl). 
The  AFP  Combat  Module  does  not  extend  or  shorten  an  engagement  to  force  any 
particular  fractional  lifetime  engagement  on  either  side.  That  is,  both 
(yO  -  yl)/y0  and  (xO  -xl)/x0  are  unconstrained  apart  from  the  obvious  re¬ 
quirement  that  yl>=  0  and  xl>=  0. 

(2)  The  current  AFP  method  imposes  a  fixed  fractional  lifetime  (or 
lifespace)  point  at  which  to  estimate  combat  potential.  All  combat  poten¬ 
tials  are  estimated  for  a  fixed  fraction: 

f  =  (xO  -  x)/x0  =  (xO  -  (1-f )xO)/xO 
for  the  x  side.  A  similar  rule  applies  to  the  y  side: 

f  =  (yO  -y)/yO  =  (yO  -  (l-f)yO)/yO 

Current  AFP  work  applies  f  =  0.50,  i.e.,  attention  is  confined  to  combat 
potential  over  half-lifetimes  or  lifespaces. 

(3)  Because  the  Combat  Module  does  not  automatically  halt  engagements 
at  y  strengths  of  (l-f)yO  or  at  x  strengths  of  (l-f)xO,  the  AFP  method  must 
estimate  exchange  ratios  for  the  surviving  strengths  (l-f)yO  and  (l-f)xO 
points  based  strictly  on  the  only  known  points:  yO,  xO  and  yl,  xl.  For 
example,  a  contribution  to  the  x-side  COP  should  have  the  form: 


z(xO,yO;f)  =  ((yO  -  y((l-f)  xO))/(xO  -  (l-f)xO))fxO  =  yO  -  y((l-f)xO) 
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This  result  depends  on  the  path  y(x)  presumed  to  emanate  from  the  starting 
point  yO,xO.  The  AFP  module  does  not  help  the  analyst  decide  which  to 
choose  among  the  many  possible  paths  passing  through  the  two  points  yO,  xO 
and  y 1,  xl,  the  only  two  points  assured  by  the  Combat  Module.  The  follow¬ 
ing  paragraphs  give  examples  for  two  assumed  one-parameter  families  of 
vector  fields  and  corresponding  paths  in  the  x,y  plane. 


(4)  Assumed  Vector  Field  Family  I, 

vector  field: 


Consider  the  time-derivative 


dx/dt  =  -  (ay)n 
dy/dt  =  -  (bx)n 

This  two-component  vector  is  the  derivative  of  positions  with  respect  to 
"time."  In  the  strictest  sense,  consideration  of  time  derivatives  violates 
the  AFP  principle  of  limiting  attention  to  static  measures.  Less  strictly, 
AFP  philosophy  permits  examination  of  a  time  derivative  at  some  fixed  time 
(a  "snapshot"  is  permissible)  as  long  as  no  attempt  is  made  to  integrate 
with  respect  to  time.  The  vector  field  is  shown  first  in  this  time-snapshot 
form,  primarily  to  clarify  the  origin  of  what  follows,  which  does  revert  to 
purely  spatial  considerations  with  integration  limited  to  space  (not  time) 
coordinates.  Inasmuch  as  neither  a  nor  b  varies  with  time,  the  vector 
field  itself  is  already  "static."  This  is  a  very  remarkable  and  limiting 
assumption.  Much  more  general  vector  fields  can  be  imagined.  Indeed, 
learning  and  logistic  phenomena  often  imply  not  only  that  a  and  b  should 
vary  with  time,  but  also  that  they  should  depend  on  the  path  and  time  spent 
on  that  path  in  reaching  the  particular  point  x,y.  The  time-derivative 
vector  field  generates  paths  across  the  x,y  plane.  Those  paths  have  tan¬ 
gents: 

dy/dx  =  (bx/ay)n 

The  tangents  are,  of  course,  also  vectors.  Hence,  there  is  still  a  direc¬ 
tion  and  length  associated  with  every  point  in  the  x,y  plane.  The  paths 
corresponding  to  the  tangent  field  have  the  form: 

(yO(n+l)  _  y ( n+1 ) )  =  k(xO(n+1)  -  x(n+1)) 

If  the  value  of  n  is  known  from  some  authoritative  source  outside  AFP,  then 
a  path  depends  on  the  single  parameter,  k  =  (a/b)  n.  Given  the  two  points 
yO,  xO  and  yl,  xl  generated  by  the  AFP  Combat  Module,  the  parameter  k  is 
determinable  as: 

k  =  (y0(n+1)  -  yl( n+1 ) )/ (x0( n+1 )  -  xl(n+1)) 

With  the  appropriate  substitutions,  the  contribution  to  the  x-side  COP  for 
a  particular  x,y  engagement  becomes: 


z(xO,yO;xl,yl;n,f)  = 

yO  -  (y0(n+1)  -  ( (y0( n+1 )  -  yl(n+1))/(xO(n+1)  -  xl(n+1))))* 
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(1  -  (1-f ) (n+1) )  *  xO(n+l))(l/(n+l)) 

(5)  Assumed  Vector  Field  Family  II 

(a)  Consider  the  time-derivative  vector  field: 

dx/dt  =  -(axy)n 

dy/dt  =  -(bxy)n 

(b)  As  above,  the  time-derivative  vector  field  corresponds  to  a 
field  of  tangents  and  paths  across  the  x,y  plane.  As  above,  a  and  b  are 
assumed  independent  of  position,  time,  and  path.  Regardless  of  the  value 
of  n,  the  paths  are  all  straight  lines: 

(yO  -  y)  =  k(xO  -  x) 

(c)  Given  the  two  points  yO,  xO  and  yl,  xl  generated  by  the  AFP 
Combat  Module,  the  parameter  k  is  determinable  as: 

k  =  (yO  -  yl)/ (xO  -  xl) 

(Cases  occur  with  xO  =  xl,  i.e.,  the  x  side  may  suffer  no  losses.  In  that 
event  and  if  the  y  side  does  suffer  losses,  AFP  sets  the  x-side  loss  to  an 
arbitrary  1.0.  If  neither  side  suffers  losses  (i.e.,  0/0),  k  is  set  to 
0.0.) 


(d)  With  the  appropriate  substitutions,  the  contribution  to  the 
x-side  COP  for  a  particular  x,y  engagement  becomes: 

z(xO,yO;xl,yl;f )  =  ((yO  -  yl)/(xO  -  xl))  *  f  *  xO 

This  expression  is  independent  of  n,  which  affects  the  rapidity  with  which 
a  path  would  be  traversed,  but  not  the  path  proper.  Recall  that  the  time 
at  which  x  and  y  occupy  a  particular  point  on  the  path  is  of  no  concern  in 
so-called  static  analysis.  The  parameter  n  need  not  be  established  (or 
guessed)  for  this  vector  field  f amily--unl ike  the  situation  for  the  example 
vector  field  family  I  above.  On  the  other  hand,  application  of  vector  field 
family  II  depends  on  the  very  strong  assumption  of  straight-line  paths  in 
the  x,y  space. 

(e)  It  is  basically  the  vector  field  family  II  approach  that  is 
applied  within  current  AFP  practice.  The  actual  approach  is  generalized  to 
admit  indirect  fire  losses  to  the  otherwise  pure  type-on- type,  x,y  direct 
fire  engagements.  Also,  if  suffered,  some  nonbattle  losses  are  included  in 
the  computation.  With  up  to  60  weapon  types  on  each  side  and  with  usually 
multiple  engagements,  the  COP  and  CIP  scoring  involves  some  special  averag¬ 
ing  procedures  that  introduce  some  complexities  ignored  in  the  above  examples. 

(6)  The  above  two  examples  cover  only  two  popular  one-parameter  tan¬ 
gent  fields.  The  first  is  Lanchester's  "square"  law;  the  paths  in  the 
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x,y  plane  are  quadratic.  The  second  is  Lanchester's  "linear"  law;  the 
paths  are  straight  lines.  There  are,  of  course,  many  other  imaginable 
one-parameter  fields  and  even  more  multi  parameter  fields.  As  currently 
employed,  the  AFP  Combat  Module  is  not  useful  for  determining  the  best 
field  family;  it  is  limited  to  a  single  parameter  estimation  for  an  assumed 
field  law.  In  the  longer  run,  some  changes  in  the  application  of  the  AFP 
Combat  Module  would  be  more  revealing  about  its  underlying  vector  fields. 

In  the  meantime,  the  linear  law  reigns  supreme. 

f.  Combat  Decomposition  Revisited 

.  Cl)  AFP  begins  by  decomposing  the  totality  of  CBT/CS/CSS  into  the 
artificially  separated  areas  of  CBT  and  CS/CSS.  Both  CBT  and  CS/CSS  are 
further  decomposed.  The  results  determined  from  the  separate  elements  are 
then  combined  to  yield  estimates  of  combat  potentials  at  several  levels  of 
aggregation. 

(2)  CBT  is  represented  as  conflict  among  as  many  as  m  Blue  and  n  Red 
weapon  types.  In  current  practice,  m=n=60.  Principal  concerns  are  the 
numbers  of  weapons  allocated,  participating,  surviving,  and  "killed."  All 
these  numbers  are  expressible  as  "points"  in  a  "space"  of  m+n  dimensions. 
Hence,  in  current  AFP  practice,  the  underlying  combat  framework  is  a  space 
of  120  dimensions.  Inasmuch  as  AFP  is  devoted  to  the  development  of  "static 
measures  of  combat  potential,  the  extent  to  which  different  points  in  the 
120  space  may  correspond  to  the  elapse  of  time  must  be  regarded  merely  as 

an  AFP  artifact.  Even  though  AFP  may  track  paths  of  points  in  the  120 
space,  it  must  do  so  largely  for  "static"  reasons.  That  some  of  the  same 
results  may  be  determined  by  integration,  with  respect  to  time  or  by  inte¬ 
gration  with  respect  to  the  coordinates  of  the  120  space,  is  a  fortunate 
coincidence.  However,  such  equivalences  should  serve  as  a  reminder  that 
some  of  the  distinctions  between  static  and  dynamic  may  be  matters  more  of 
form  than  substance. 

(3)  In  120  space,  the  value  of  the  ith  coordinate  corresponds  to  the 
surviving  quantity  of  the  ith  item  type.  If  track  is  to  be  maintained  of 
"live,"  "disabled,"  and  "killed"  items,  the  ith  coordinate  becomes  three 
coordinates.  That  is,  an  original  one-dimensional  subspace  becomes  a 
three-dimensional  subspace  of  a  new  360  space.  However,  the  only  admis¬ 
sible  points  in  a  three-dimensional  subspace  lie  on  the  three  plane  with: 

#live  +  #disabled  +  # k i 1  led  =  starting  strength 

It  is  assumed  that  all  assets  are  present  initially  within  the  starting 
strength. 

(4)  Many  of  the  matters  of  interest  to  AFP  may  be  shown  to  be  equiva¬ 
lent  to  concern  with  special  transformations  of  the  120  space  into  itself. 
The  narrowest  view  is  that  AFP  need  be  concerned  with  how  and  why  a  single 
point  in  120  space  becomes  another  point  in  that  space,  e.g.,  how,  through 
attrition,  engagements  transform  the  point  corresponding  to  starting 
strengths  into  the  point  corresponding  to  surviving  strengths. 
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This  narrow  view  leads  us  to  think  that  we  may  have  to  consider  a  different 
transformation  for  each  different  starting  point.  A  more  general,  and  in 
many  respects,  more  powerful  and  useful  viewpoint  is  to  consider,  as  sug¬ 
gested  in  the  first  sentence  of  this  paragraph,  transf ormations  of  the 
whole  space  into  the  whole  space.  The  starting  and  ending  points  in  the 
120  space  become  some  of  the  principal  intermediate  "results"  on  which 
final  estimates  of  combat  potential  are  based.  The  standard  AFP  practice 
of  examining  16  distinct  environments  corresponds  to  dependence  on  16  sets 
of  starting  and  ending  points  in  120  space.  If  the  different  environments 
correspond  to  different  force  levels  or  ratios,  the  starting  points  (and 
almost  certainly,  too,  the  ending  points)  would  differ. 

(5) .  In  the  following  paragraphs,  we  shall  consider  stochastic  and 
deterministic  transformations,  dynamic  and  static  transformations,  and 
decompositions  of  the  120  space  into  as  many  as  3,600  2-spaces.  All  these 
considerations  are  relevant  to  AFP.  That  is  not  to  say  that  AFP  achieves 
all  the  generality  implicit  in  such  consideration.  Rather,  we  will  try  to 
put  the  specializations  and  simpl icifi cations  of  AFP  in  a  "mature"  perspec¬ 
tive.  However,  our  so-called  mature  perspective  will  depend  much  more  on 
intuition  than  on  rigor. 

(6)  Everyone  agrees  that  combat  is  uncertain,  even  for  many  supposedly 
lopsided  conflicts.  Realism  then  should  lead  us  to  consideration  and  ap¬ 
plication  of  stochastic  transformations.  AFP  represents  some  but  relatively 
little  of  the  uncertainty  of  combat.  AFP  introduces  some  uncertainty  to 

the  detection,  firing,  and  killing  processes.  AFP  does  not  reflect  any 
uncertainty  in  the  starting  strengths  of  engagements.  Apart  from  a  need  to 
round  off  (or  up)  fractional  weapon  assignments  randomly,  the  AFP  engage¬ 
ment  preference  and  allocation  process  is  purely  deterministic.  Hence,  AFP 
transf ormations  may  be  characterized  as  transforming  completely  fixed  ini¬ 
tial  points  into  uncertain  end  points.  In  a  single  standard  execution,  the 
AFP  Combat  Module  transforms  a  single  fixed  initial  point  into  a  single 
uncertain  final  point;  the  result  is  not  a  distribution  of  final  points. 
However,  the  AFP  Combat  Module  can  be  operated  in  a  replicative  mode;  the 
collective  result  of  many  replications  is  a  distribution  of  final  points. 

In  principle,  generalization  of  AFP  replication  to  admit  different  starting 
points  (i.e.,  some  randomization  of  allocations  by  weapons  and  ranges  for 
the  same  engagement  preferences  and  range  fractions)  could  reduce  some  dif¬ 
ficulties  arising  from  relatively  small  numbers  of  weapons. 

(7)  Let  us  consider  a  very  "small"  deterministic  transf ormation  of 
the  120  space  into  itself.  We  associate  with  each  point  in  the  120  space  a 
very  short  (that  is  what  we  mean  by  "small")  arrow  pointing  to  where  the 
point  will  "go"  under  the  transformation.  The  120  space  is  filled  with 
such  arrows.  We  call  the  totality  of  these  arrows  in  120  space  the  "vector 
field."  In  this  field,  each  arrow  (vector)  possesses  position,  direction, 
and  length.  If  the  directions  and  lengths  of  the  vectors  do  not  change 
with  time,  we  say  the  vector  field  is  static. 
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(8)  Now  let  us  drop  a  marble  onto  the  vector  field.  The  marble  will 
land  exactly  where  we  want  it  to;  thus,  its  initial  position  is  determinis¬ 
tic.  Once  the  marble  has  landed,  it  will  move  in  120  space  in  accord  with 
the  directions  imposed  by  the  vectors  which  now  serve  as  direction  signs. 

Note  that  the  marble  moves  even  though  the  vector  field  is  static.  There, 
indeed,  can  be  marble  dynamics  in  a  space  that  is  static.  Much  more  general 
vector  fields  can  be  imagined.  The  directions  and  lengths  of  the  vectors 
may  change  with  time  relative  to  the  start  of  a  clock,  to  where  a  marble 
lands,  or  to  the  path  traversed  by  a  marble  in  reaching  the  point.  Even 
within  the  class  of  static  vector  fields  there  may  be  many  kinds.  The 
direction  and  length  of  vectors  may  or  may  not  depend  on  their  position. 

There  may  be  many  different  kinds  of  dependence  on  position.  Depending  on 
the  nature  of  the  field,  dropped  marbles  may  roll  in  the  120  space  with 
constant  or  changing  velocity  along  paths  of  constant  or  changing  direction. 
In  general,  we  will  want  to  ascribe  the  curvature  of  paths  of  dropped 
marbles  to  a  kind  of  curvature  of  the  underlying  vector  field  (even  though 
we  have  not  defined  exactly  what  we  mean  by  the  curvatures  of  paths  and 
fields).  Without  an  exact  definition  of  curvature,  however,  we  can  state 
that  the  "observation"  of  a  single  starting  and  a  single  ending  point  in 
120  space  will  not  be  sufficient  to  estimate  the  curvature  of  the  vector 
field.  And  we  should  not  fool  ourselves  about  what  happens  when  we  decom¬ 
pose  120  space  into  an  many  as  3,600  2-spaces.  It  may  appear  that  we  have 
observed  3,600  pairs  of  starting  and  ending  points,  and  that  we  should  have 
enough  information  to  estimate  curvature.  Unfortunately,  we  have  nothing 
more  than  the  equivalent  of  the  original  pair  of  points  in  120  space.  Also 
unfortunately,  years  of  combat  analysis  have  not  given  us  widely  accepted 
empirical  or  theoretical  evidence  about  the  curvature  of  the  vector  space. 

If  there  were  an  accepted  notion  of  curvature,  then  a  single  pair  of  points 
might  be  sufficient  (depending  on  the  number  of  parameters  needed  to  speci¬ 
fy  curvature).  In  particular,  one  pair  of  points  might  suffice  in  the  case 
of  a  known,  one-parameter  curvature.  AFP,  lacking  a  sound  theoretical  or 
empirical  foundation,  relapses  to  estimating  paths  of  zero  curvature  in  a 
vector  field  of  zero  curvature.  Lest  it  seem  that  all  this  "straightness" 
and  "flatness"  of  paths  and  fields  reduce  the  problem  to  perfect  trans¬ 
parency,  note  that  any  change  in  engagement  preferences  or  range  fractions 
may  correspond  to  a  different  static  vector  field. 

(9)  A  useful  analog  of  the  AFP  "curvature  problem"  is  the  following: 
Given  only  that  a  traveler  has  started  in  Washington,  DC  and  stopped  in 
Baltimore,  MD,  estimate  where  the  traveler  was,  is,  or  will  be  when  half  of 
the  fuel  remains.  It  has  not  been  established  what  the  traveler's  vehicle 
is,  if  any.  The  traveler's  final  destination  has  not  been  established. 

Does  it  help  to  know  that  Rte  29,  Rte  95,  Rte  1,  and  the  Bal timore-Washington 
Parkway  are  all  popular  routes  between  Washington  and  Baltimore?  In  general, 
AFP  would  know  that  the  traveler  started  with  full  fuel  in  Washington,  and 
AFP  would  know  how  much  fuel  remained  when  the  traveler  reached  Baltimore. 

All  other  possibly  relevant  information  would  remain  unknown.  In  quiet 
desperation,  AFP  would  draw  a  straight  line  between  Washington  and  Baltimore 
and  choose  an  interpolated  or  extrapolated  point  in  direct  proportion  to 
the  known  fuel  consumption. 
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(10)  In  general,  we  may  suspect  that  CS/CSS  should  influence  the  cur¬ 
vatures  of  the  vector  field  and  paths.  AFP  does  modulate  the  combat  paths 
in  120  space  for  CS/CSS.  Although  modulation  does  alter  the  direction  and 
length  of  paths,  such  modulation  does  not  alter  the  assumed  zero  curvature 
of  the  paths  and  underlying  vector  field. 

(11)  AFP  does  visualize  the  components  of  the  "real"  vector  field  as 
expressible  in  terms  of  functions  of  position  in  120  space.  Those  functions 
are  considered  to  consist  of  several  terms  of  possibly  increasing  complexity. 
The  first  and  perhaps  simplest  term  contributes  nothing  to  curvature. 

Hence,  any  approximations  involving  only  first  terms  of  the  components  of 
the  vector  field  are  necessarily  approximations  at  zero  curvature.  For  the 
simple  approximation  to  be  useful,  it  is  necessary  that  higher  order  terms 
contribute  relatively  little  to  the  real  field.  When  AFP  decomposes  the 

120  space  into  up  to  3,600  2-spaces,  the  first  terms  of  the  vector  com¬ 
ponents  are  assumed  to  be  independent  of  position  with  respect  to  any 
direct  fire  weapons  other  than  the  two  associated  in  the  2-space.  The 
effect  is  to  disregard  combined  arms  and  synergistic  influences!  Combined 
arms  and  synergistic  effects  could  appear  in  spaces  of  zero  curvature,  but 
in  many  respects,  it  seems  that  combined  arms  and  syngerism  would  most 
naturally  introduce  to  curvature.  But  here,  too,  AFP  lacks  sufficient 
theoretical  and  empirical  evidence  on  which  to  introduce  curvature  into  the 
zero-curvature  approximation  of  the  combat  vector  field.  To  the  extent 
that  the  presence  of  different  weapon  types  influences  the  allocation  of 
weapons  among  engagements,  the  starting  points  in  the  two  spaces  are  com¬ 
bined  arms-dependent.  However,  it  would  be  misleading  to  suggest  that  AFP 
provides  much  combined  arms  sensitivity. 

(12)  Once  AFP  has  decomposed  the  120  space  into  2-space  minibattles, 
it  reintroduces  indirect  fire  to  the  2-space  direct  fire  minibattles. 

Thus,  the  direct  fire  minibattles  are  represented  in  a  higher-dimensioned 
space.  Nevertheless,  the  practical  AFP  viewpoint  is  one  of  2-space  direct 
fire  minibattles.  The  minibattles  are  decomposed  into  "duels."  Each  duel 
involves  the  smallest  number  of  weapons  consistent  with  the  force  ratio.  A 
10-on-10  minibattle  decomposes  into  10  one-on-one  duels.  A  15-on-10  mini¬ 
battle  decomposes  into  5  two-on-one  and  5  one-on-one  duels.  The  direct 
fire  duels  allocated  to  a  2-space  minibattle  are  distributed  over  five 
range  points  from  250  m  to  2,500  m.  (Thus,  with  the  so-called  "deep  area," 
a  maximum  of  six  range  points  may  be  involved.)  There  is  no  interaction 
among  weapons  at  different  ranges.  The  weapons  separated  by  1,000  m  behave 
as  though  there  are  no  weapons  at  500  m  or  1,500  m.  Weapons  at  the  same 
range  separation  are  then  allocated  to  microbattles.  Implicit  in  this 
scheme  is  the  notion  that  force  ratio  may  be  important  but  that  force  mass 
is  unimportant.  If  force  mass  is  important,  then  all  weapons  should  be 
allocated  to  all  range  points  with  results  then  averaged  over  range  points. 

If  something  about  attrition  is  known  in  advance,  then  the  allocation  from 
longer  to  shorter  ranges  could  become  A(deep)=l .0 >  A(2,50Q)>  .  ,.>A(250). 

The  current  APF  method  of  averaging  results  for  C IPs  would  work  as  is.  The 
current  AFP  method  of  averaging  for  COPs  would  require  change. 
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D-2.  INPUT 

a.  Of  all  AFP  modules,  the  Combat  Module  requires  the  most  diverse  and 
voluminous  input  data.  Many  "raw"  data  undergo  transformations  before  being 
read  by  the  main  program  of  the  Combat  Module. 

b.  Figure  D-3  presents  a  highly  condensed  schematization  of  the  files 
and  procedures  involved  in  preparing  input  to  the  Combat  Module.  In  Figure 
D-3,  the  total  effort  is  shown  as  eight  separate  tasks. 


(1) 

RANGE 

(2) 

ENGAGE 

(3) 

PCAS 

(4) 

PKS 

(5) 

PREFS 

(6) 

ARTY 

(7) 

INVENTORY 

(8) 

SENSOR 

c.  Notice  that  the  first  five  tasks  shown  in  Figure  D-3  lead  to  the 
generation  of  mutually  exclusive  files  but  that  tasks  6-8  all  provide  in¬ 
formation  to  a  commonly  named  file,  H7BASEDATA.  The  AFP  authors  chose  to 
organize  the  description  of  AFP  input  data  and  their  preparation  in  the 
context  of  the  files  shown  at  the  right  of  each  task  in  Figure  D-3.  Those 
descriptions  are  provided  in  the  annexes  to  this  appendix.  In  Figure  D-3, 
the  products  of  tasks  are  files  given  names  in  the  generic  form 
M-H7aaaaa. (a) .  The  M  is  intended  to  signify  "machine-readable"  files  from 
some  other  file  with  L  prefixes  signifying  "labelled  human-readable"  files. 
In  the  following  paragraphs,  the  "M-H7"  portions  of  files  names  are  omitted 
without  ambiguity.  Figure  D-3  includes  some  other  symbols  intended  to  serve 
as  reminders:  (P)  is  a  reminder  that  different  data  are  usually  required 
for  different  combat  (p)ostures--usual ly  because  open/defilade  and  moving/ 
stationary  status  differs  among  postures  for  both  shooter  and  targets. 

(D/N)  is  a  reminder  that  different  data  are  usually  required  for  (d)aytime 
an  (n)ighttime  conditions.  (C/D)  is  a  reminder  that  different  data  are 
usually  required  for  (c)lear  and  (d)egraded  seeing  conditions.  (F)  is  a 
reminder  of  dependence  on  the  quantity  of  systems  in  a  (f)orce.  (A)  is  a 
reminder  of  probable  dependence  on  the  (a)rea  of  the  world  considered. 
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Figure  D-3. 


A  Task  and  File  Oriented  View  of  Preparation  of  Input  to  the 
AFP  Firepower  and  Counterfirepower  Module 
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d.  The  annexes  of  this  appendix  are  arranged  as  follows. 

(1)  Annex  I  treats  the  BASEDATA  file  involving  Tasks  6-8. 

(2)  Annex  II  treats  the  PREFerences  file  involving  Task  5.  The  in¬ 
cluded  data  provide  the  Combat  Module  with  information  about  the  "preferen¬ 
ces  for  targets"  that  different  weapons  systems  have  been  assigned  by  mili¬ 
tary  planners. 

(3)  Annex  III  treats  the  RNGDST  file  involving  Task  1.  The  included 
data  convey  to  the  Combat  Module  information  about  the  ranges  at  which 
weapon  types  are  intended  to  engage. 

(4)  Annex  IV  treats  the  PCAS  file  involving  Task  3  and  the  target 
categories  and  crew  loss  factors  assigned  to  different  weapon  systems. 

(5)  Annex  V  treats  the  ENGAGE  file  involving  Task  2. 

(6)  Annex  VI  treats  the  PKS  file  involving  Task  4.  The  included  data 
provide  the  Combat  Module  with  SSPKs  by  range  for  needed  combinations  of 
direct  fire  shooters  and  targets. 

(7)  Annex  VII  describes  several  programs  (preprocessors)  that  operate 
between  the  Combat  Module  and  several  of  the  products  of  the  tasks  identi¬ 
fied  above.  ' 

(8)  Annex  VIII  describes  many  of  the  details  of  the  program  which 
generates  expected  kills  per  artillery  round  within  Task  6  and  is  directly 
related  to  the  Task  6  portions  of  Annex  I. 

e.  It  is  discouragingly  easy  to  go  astray  in  the  preparation  of  input 
data.  Unf ortunately,  the  input  data  steps  cannot  be  approached  as  mutually 
exclusive  tasks.  As  a  general  rule,  the  overburdened  analysts  must  keep 
all  tasks  and  data  in  mind  at  all  times--well,  almost.  A  weapon  with  all 
other  data  but  invalid  sensor  specification  is  doomed  to  never  get  off  a 
first  shot.  Inasmuch  as  the  default  refire  time  is  "large,"  a  "weapon"  can 
become  little  more  than  someone  else's  target  unless  it  is  given  its  correct 
refire  time.  It  may  not  be  obvious  from  Figure  D-3,  but  both  Blue  and  Red 
data  must  be  provided.  It  should  be  easy  to  remember  this  requirement  dur¬ 
ing  the  initial  preparation  of  a  data  base.  However,  experience  has  shown 
how  easy  it  is  to  forget  to  make  two-sided  changes  during  updates.  Someone 
may  decide  to  extend  the  variety  of  targets  admissible  to  a  given  shooter 
type,  insert  that  shooter's  SSPKs  against  those  targets,  and  forget  to  let 
those  targets  become  "symmetric"  shooters  as  well.  The  inclusion  of  both 
labeled  and  unlabeled  versions  of  many  files  has  made  data  preparation 
easier  than  it  once  was.  But  it  would  be  grossly  misleading  to  describe 
data  preparation  as  a  user-f riendly  process.  There  is  even  a  pitfall  in 
human-readableness--it  is  possible  to  update  the  labeled  version  of  a  file 
and  forget  to  execute  the  utility  program  required  to  convert  the  new 
human-readable  version  into  a  new  unlabeled  machine  version. 
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D-3.  OUTPUT.  The  output  of  the  AFP  Combat  Module  falls  into  two  broad 
categories.  First,  each  Combat  Module  run  produces  three  data  elements  (or 
files)  usually  referred  to  as  TTLOS,  ALLOC,  and  FALLOC.  (In  practice,  each 
element  is  given  a  unique  name  identifying  the  force,  year,  combat  environ¬ 
ment,  and  replication.)  Those  elements  exist  in  order  to  transfer  informa¬ 
tion  about  weapon  allocations  and  kills  by  type-on-type  engagement  and  by 
"day"  to  the  AFP  CBT/CS/CSS  Merge  Module  for  development  of  partial  combat 
potentials.  Second  those  same  elements  plus  several  others  with  detailed 
shot  and  range  results  are  processed  optionally  within  a  Combat  Module  run 
to  produce  human-readable  summaries  of  type-on-type  weapon  allocations  and 
losses  in  the  form  of  allocation  and  killer/victim  scoreboards  or  much  more 
highly  detailed  reports.  All  the  human-readable  output  is  available  pri¬ 
marily  for  diagnostic  review.  Routine  production  of  all  the  reports  is 
impractical;  a  full  set  for  10  replications  of  each  of  16  combat  environ¬ 
ments  would  require  over  100  boxes  of  computer  paper!  A  (26)  full  set  of 
TTLOS,  ALLOC,  and  FALLOC  data  consists  of  480  uniquely  named  elements;  in 
the  interest  of  other  computer  users  and  the  site  files  manager,  these 
elements  are  retained  no  longer  than  absolutely  necessary. 


a.  Notes  on  ALLOC,  FALLOC,  and  TTLOS  Files 

(1)  File  Name:  ALLOC  Unit  Number:  3  (1U9) 

(a)  Type  of  File:  direct,  formatted 

(b)  Description:  This  file  contains  the  numbers  of  weapons  allo¬ 
cated  to  each  type-versus-type  conflict  at  the  start  of  each  day.  Under 
some  circumstances,  the  Combat  Module  may  not  write  some  records  to  the 
file,  which  will  cause  I/O  errors  when  another  program  attempts  to  read 
those  records.  An  error  of  this  type  can  be  intercepted  by  use  of  the  ERR= 
clause  in  the  READ  statement,  and  one  can  confirm  that  it  was  due  to  an 
attempt  to  read  a  dummy  record  by  testing  that  IOC ( )  is  equal  to  1053.  In 
such  a  case,  processing  should  proceed  as  if  all  the  data  in  the  record 
were  zero. 

(c)  Pointer  Calculation:  pointer  =  repsx  +  (daysx-1)  *  ireps, 
where  repsx  =  the  combat  module  internal  replication  number  (1) 

daysx  =  the  day  number  (1-2) 

ireps  =  the  total  number  of  internal  replications  (1) 

(d)  Written  by:  0UTPT  in  Main  Program  of  the  Combat  Module 

(e)  Read  by:  ALL0CN,  GETL0S  in  postprocessors 
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Description 

The  FORCE  array,  dimensioned 
(2,60,60)  and  written  in  row 

Major  order  (rightmost  sub¬ 
script  varies  most  rapidly): 
the  number  of  weapons  of  weapons 
of  type  "typel"  on  side  "sidex" 
allocated  against  weapons  of  type 
"type2"  on  the  other  side 

(2)  File  Name:  FALLOC  Unit  Number:  4  (IU10) 

(a)  Type  of  File:  direct,  formatted 

(b)  Description:  This  file  contains  the  participation  of  weapons 
in  each  type-versus-type  conflict  at  the  start  of  each  day.  Under  some 
circumstances,  the  Combat  Module  may  not  write  some  records  to  the  file, 
which  will  cause  I/O  errors  when  another  program  attempts  to  read  those 
records.  An  error  of  this  type  can  be  intercepted  by  use  of  the  ERR= 
clause  in  the  READ  statement,  and  one  can  confirm  that  it  was  due  to  an 
attempt  to  read  a  dummy  record  by  testing  that  IOC ( )  is  equal  to  1053.  In 
such  a  case,  processings  should  proceed  as  if  all  the  data  in  the  record 
were  zero. 

(c)  Pointer  Calculation:  pointer  =  repsx  +  (daysc-1)  *  (typslx-1) 

*  nlOl  where  repsx  =  the  combat  module  internal  replication  number  (1) 

daysx  =  the  day  number  (1-2) 

typslx  =  the  number  of  the  weapon  on  side  1 

nlOO  =  1 

nlOl  =  2 

(d)  Written  by:  MAIN  in  Main  Program  of  Combat  Module 

(e)  Read  by:  OPART,  GETLOS  in  postprocessors 


Description 

of  Fields: 

Name 

Format 

Type 

Description 

D 

500(50016) 

1 

The  array  D,  dimensioned 
(2,60)  and  written  in  row 
major  order  (rightmost 
subscript  varies  most 
rapidly) 

D(sidex,  typs2x)  =  the  participation  of  the  weapon  on  side  "sidex"  in  the 
conflict  between  weapon  type  "typslx"  (on  side  1)  and  weapon  type 
"typs2x"(on  side  2). 


(f)  Description  of  Fields: 
Name  Format  Type 

FORCES  500(50016)  1 

FORCES(sidex,  typel,  type2)  = 
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(3)  File  Name:  TTLOS  Unit  Number:  9  (IU13) 

(a)  Type  of  File:  sequential,  unformatted  (binary) 

(b)  Description:  This  file  contains  the  number  of  weapons  lost  in 

a  type-versus-type  conflict  due  to  both  direct  and  indirect  fire,  subdivided 
by  range  band.  The  programs  which  read  this  file  require  the  records  in  a 
different  order  than  that  in  which  they  were  originally  written,  so  a  pre¬ 
liminary  sort  is  required.  If  a  record  would  contain  only  zero  losses 
(i.e.,  if  the  TTLOS  array  described  below  contains  only  zeros),  the  record 
is  not  written  to  the  file,  in  order  to  conserve  file  space. 

(c)  Written  by:  MAIN  in  Main  Program  of  Combat  Module 

(d)  Read  by:  DIRLOS,  INDLOS  in  postprocessors 

(e)  Description  of  Fields: 


Name 

Word 

Type 

Description 

RESPX 

1 

I 

Combat  Module  internal  replication 
number,  normally  1 

DAYSX 

2 

I 

The  day  in  which  the  losses  occurred 
d-2) 

TYPS1X 

3 

I 

Side  1  weapon  number 

TYPS2X 

4 

I 

Side  2  weapon  number 

TTLOS 

5-136 

I 

The  TTLOS  array,  dimensioned  (2,11,1 
and  written  in  column  major  order 

(leftmost  subscript  varies  most  rapidly) 

TTL0S( si dex, 1 ,envirx,rangex)  =  the  number  of  direct  fire  losses  to  side 
"sidex"  in  the  type-versus-type  conflict  in  environment  "envirx"  (always  1) 
in  range  band  "rangex"  (1-6). 

TTLOS  (sidex, 1  +  iext, envirx,  rangex)  =  the  number  of  indirect  fire  losses 
to  side  "sidex"  in  the  type-versus-type  conflict  in  environment  "envirx" 
(always  1)  in  range  band  "rangex"  (1-6)  due  to  indirect  fire  shooter  "iext" 
(1-10). 

b.  Notes  on  EXT,  SHOTS,  and  TIMES  Files 

(1)  File  Name:  EXT  Unit  Number:  24  (IU5) 

(a)  Type  of  File:  sequential,  unformatted  (binary) 
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(b)  Description:  This  file  contains  the  allocations  of  indirect 
fire  weapons  to  individual  conflicts,  and  their  kills.  In  order  to  conserve 
file  space,  records  which  would  contain  only  zero  allocations  and  kills  are 
not  written  to  the  file.  When  the  file  is  first  written,  the  records  are 
not  in  the  order  required  by  the  routines  which  read  the  file,  so  a  preli¬ 
minary  sort  is  required. 

(c)  Written  by:  MAIN  in  Main  Program  of  the  Combat  Module 

(d)  Read  by:  INDALC  in  postprocessor 

(e)  Description  of  Fields: 


Name 

Word 

Type 

Description 

REPSX 

1 

I 

Combat  Module  internal  repli¬ 
cation 

number  (always  1) 

DAYSX 

2 

I 

The  day  (1-2) 

TYPS1X 

3 

I 

Side  1  weapon  number  (1-60) 

TYPS2X 

4 

I 

Side  2  weapon  number  (1-60) 

EXTN 

5-604 

I 

The  EXTN  array,  dimensioned 
(2,10,1,6,5)  and  written  in 
column  major  order  (leftmost) 
subscript  varies  most 
rapidly) 

EXTK 

605-1204 

I 

The  EXTK  array,  dimensioned 
(2,10,1,6,5)  written  in 
column  major  order  (leftmost 
subscript  varies  most 
rapidly) 

EXTN(sidex,iex,envirx,rangex,cnfx)  =  the  number  of  indirect  fire  weapons  of 
type  "iex"  (1-10)  allocated  on  side  "sidex"  (1-2)  in  environment  "envirx" 
(always  1),  range  band  "rangex"  (1-6),  conflict  "cnfx"  (1-5). 

EXTK(sidex, iex, envirx, rangex,cnfx)  =  the  number  of  kills  by  indirect  fire 
weapons  of  type  "iex"  (1-10)  ON  SIDE  "sidex"  (1-2)  in  environment  "envirx" 
(always  1),  range  band  "rangex"  (1-6),  conflict  "cnfx"  (1-5). 

(2)  File  Name:  SHOTS  Unit  Number:  33  (IU0UT3) 

(a)  Type  of  File:  sequential,  unformatted  (binary) 

(b)  Description:  This  file  contains  the  numbers  of  shots  fired  by 
both  direct  and  indirect  fire  weapons  in  each  type-versus-type  conflict,  by 
range  band.  In  order  to  conserve  file  space,  records  which  would  contain 
only  zero  shot  counts  are  not  written  to  the  file.  When  it  is  initially 
written,  the  file  is  not  in  the  order  required  by  the  routines  which  read 
it,  so  a  preliminary  sort  is  necessary. 

(c)  Written  by:  MAIN  in  Main  Program  of  the  Combat  Module 
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Name 

Word 

Type 

Description 

REPSX 

1 

I 

The  Combat  Module  internal 
replication  number  (always  1) 

DAYSX 

2 

I 

The  day  (1-2) 

TYPS1X 

3 

I 

The  side  1  weapon  number  (1- 
60) 

TYPS2X 

4 

I 

The  side  2  weapon  number  (1- 
60) 

ESHOTS 

5-124 

I 

The  ESHOTS  array,  dimensioned 
(2,10,1,6)  and  written  in 
column  major  order  (leftmost 
subscript  varies  most  rapidly) 

SHOTS 

125-136 

I 

The  SHOTS  array,  dimensioned 
(2,1,6)  and  written  in  column 
major  order  (leftmost  subscript 
varies  most  rapidly) 

ESHOTS(sidex,iex, envirx, rangex)  =  the  number 

of  shots  fired  by  indirect 

fire  shooter  number 

"iex"  (1-10)  on 

side  "sidex"  (1-2)  in  environment 

"envirx"  (always  1) 

on  the  conflict 

in  range 

band  "rangex"  (1-6). 

SHOTS(sidex, envirx, rangex)  =  the  number  of  shots  fired  by  the  direct  fire 
shooter  on  side  "sidex"  in  environment  "envirx"  (always  1),  range  band 
"rangex"  (1-6). 


(3)  File  Name:  TIMES  Unit  Number:  32  (IU15) 

(a)  Type  of  File:  sequential,  unformatted  (binary) 

(b)  Description:  This  file  contains  statistics  on  detection  and 
refire  times  for  type-versus-type  conflicts.  In  order  to  conserve  file 
space,  records  which  would  contain  only  zero  statistics  are  not  written  to 
the  file.  When  the  file  is  first  written  it  is  not  in  the  order  required 
by  the  routines  which  read  it,  so  a  preliminary  sort  is  necessary. 

(c)  Written  by:  MAIN  in  Main  Program  of  Combat  Module 

(d)  Read  by:  DUELTM  in  postprocessors 
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(e)  Description  of  Fields: 


Name 

Word 

Type 

Description 

REPSX 

1 

I 

The  Combat  Module  internal 
replication  number  (always  1) 

DAYSX 

2 

I 

The  day  (1-2) 

TYPS1X 

3 

I 

The  Side  1  weapon  number  (1- 
60) 

The  Side  2  weapon  number  (1- 
60) 

The  number  of  conflicts  which 
took  place  (1-5) 

TYPS2X 

4 

I 

NOCONF 

5 

I 

TMS 

6-305 

R 

The  TMS  array,  dimensioned 
(2, 1,6, 5, 5)  and  written  in 
column  major  order  (leftmost 
subscript  varies  most  rapidly) 

In  the  following,  "sidex"  is  the  shooting  side  (1-2),  "envirx"  the  environ 

ment  (always  1),  "rangex"  the  range  band  (1-6),  and  "cnfx"  the  cnflict  num 
ber  (1-5): 

TMS(sidex, envirx, rangex, cnfx, 1)  =  the  number  of  detections  attempted  by 

the  shooting  side 

TMo/S^ex,envirx*rangex,cnfx,2)  =  the  number  of  successful  detections 
TMS  sidex, envirx, rangex, cnfx,3)  =  the  total  defection  time  (minutes) 

TMS ( s i dex , envi rx , rangex , cnf x , 4)  =  the  number  of  refires 
TMS(sidex, envirx, rangex, cnfx, 5)  =  the  total  refire  time  (minutes) 

c.  Allocation  "Scoreboard."  Figures  D-4a  and  D-4b  are  a  "cut  and 
pasted  example  from  a  full-scale  allocation  report  or  "scoreboard."  The 
full-scale  report  fills  several  pages.  The  example  shown  in  Figures  D-4 
lacks  most  of  the  columns  corresponding  to  Red  weapon  types;  most  of  the 
columns  have  been  cut  out  with  the  remaining  columns  pasted  together.  A 
full  allocation  report  usually  corresponds  to  a  single  run  of  the  Combat 
Module  (on  option,  a  report  summing  results  over  two  or  more  runs  may  be 
produced.)  A  report  consists  of  two  main  parts:  a  weapon-by-weapon  sec- 
tion  and  a  category-by-category  summary  section. 
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Figure  D-4a.  Sample  Extract  from  Weapon-by-weapon  Type 
Section  of  AFP  Weapon  Allocation  Report 
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Section  of  AFP  Weapon  Allocation  Report 
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(1)  The  weapon-by-weapon  type  section  (Figure  D-4a)  contains  a 
separate  row  for  each  Blue  weapon  type  and  a  separate  column  for  each  Red 
weapon  type.  The  intersection  of  a  row  and  a  column  includes  two  entries. 
An  entry  of  represents  a  zero-value.  Consider  two  entries  symbolized 
by: 


r(i,j)  the  total  number  over  2  days  of  Red 

weapons  of  type  j  engaging  Blue  weapons 
of  type  i 

b(i,j)  the  total  number  over  2  days  of  Blue 

weapons  of  type  i  engaging  Red  weapons 
of  type  j 

Any  weapons  that  survives  the  first  AFP  "day"  may  be  allocated  again  on  the 
following  day.  Hence,  in  the  standard  2-day  Combat  Module  run,  there  may 
be  up  to  twice  as  many  allocations  as  there  are  weapons.  Any  weapon  attri¬ 
tion  on  the  first  day  will,  among  other  things,  reduce  allocations  on  the 
second  day. 


(2)  The  rows  and  columns  of  the  weapon-by-weapon  type  section  of  an 
allocation  report  are  labelled. 

(a)  Columns  possess  labels  of  the  form: 


N(j)  Rj 

Name( j ) 


where  N(j) 


Rj 

Name( j ) 


is  the  quantity  of  Red  weapon 
type  j  in  the  threat  starting 
inventory 

is  the  AFP  weapon  type  identification 
number 

is  a  short  nomenclature  for  Red  weapon 
type  j 


(b)  Rows  of  the  weapon-by-weapon  type  section  of  an  allocation  report 
possess  labels  of  the  form: 


N ( i )  B i  N  ame ( i ) 

is  the  quantity  of  Blue  weapon 
is  the  AFP  weapon  type  identification 
number 

is  a  short  nomenclature  for  Blue  weapon 
type  i 

(c)  The  two  rightmost  columns  of  the  weapon-by-weapon  type  section 
are  labelled  "RED  TOTAL  DIR"  and  "RED  TOTAL."  These  labels  are  misleading. 
The  allocation  report  applies  labels  first  devised  for  the  killer/victim 
(K/V)  scoreboard,  where  the  labels  make  sense.  The  allocation  report  was 


where  N( i ) 
Bi 

N  ame ( i ) 
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something  of  a  killer/victim  afterthought  and  was  implemented  in  the  most 
economical  way  at  obvious  expense  in  the  labelling.  All  the  Red  entries 
are  for  zero.  The  lower  members  of  entry  pairs  are  the  only  ones  that 
can  be  nonzero.  These  lower  values  are  the  total  allocations  of  the  Blue 
weapon  type  across  the  entire  row.  (Note  that  the  row  totals  shown  in  Fig¬ 
ures  D-4  may  greatly  exceed  the  sums  of  values  to  their  left  because  many 
columns  were  deleted  in  the  cut  and  paste  construction  of  the  figure.) 

(d)  The  two  lowest  rows  of  the  weapon-by-weapon  type  section  are 
labelled  "BLUE  TOTAL  DIR"  andd  "BLUE  TOTAL."  Just  as  for  the  two  rightmost 
columns,  the  two  lowest  row  labels  are  misleading.  The  values  shown  are 
the  sums  of  Red  weapon  allocations  in  the  columns  above. 

(3)  The  upper  left  corner  of  an  allocation  report  contains  a  key  to  a 
special  feature  of  the  Combat  Module.  The  feature  is  usually  referred  to 
as  "super-trooping."  Most  weapons  are  represented  individually  within  the 
Combat  Module.  However,  some  very  numerous  weapons  are  aggregated  in  order 
to  save  computer  time.  Weapons  so  grouped  are  said  to  be  super-trooped. 

In  AFP  practice  to  date,  super-trooped  weapons  are  grouped  by  tens.  In 
Figure  D-4a,  the  key  specifies  that  a  super-troop  consists  of  10  weapons. 
Eight  of  the  Blue  and  five  of  the  Red  weapon  types  were  super-trooped. 

Next,  the  AFP  weapon  type  identifier  numbers  are  given  for  the  Blue  and  Red 
super-trooped  weapons.  Note  that  the  entries  in  the  main  parts  of  an  allo¬ 
cation  report  are  adjusted  to  give  the  correct  counts  of  individual 
(unsuper-trooped)  weapons  as  appropriate. 

(4)  Just  below  the  super-troop  key  in  an  allocation  report,  the 
report  itself  is  identified.  In  the  example  of  Figure  D-4a,  the  report 
represents  results  for  the  Blue  force  "JM84"  in  combat  environment  "09"  for 
the  second  replication  (SEED  2). 

(5)  The  weapon  category-by-category  section  (Figure  D-4b)  of  an  al¬ 
location  report  is  similar  in  format  to  the  weapon-by-weapon  type  section 
described  above.  The  category-by-category  section  gives  subtotals  by  weap¬ 
on  categories.  For  example,  tanks  of  all  types  are  lumped  together  as  "ARM 
VEH."  Weapons  of  all  types  in  the  deep  area  are  included  in  the  special 
category,  "DEEP." 

d.  Killer/Victim  Scoreboard.  Figures  D-5a  and  D-5b  are  a  "cut  and 
pasted"  example  extracted  from  a  full-scale  killer/victim  scoreboard  re¬ 
port.  The  full-scale  report  fills  several  pages.  The  example  shown  in 
Figures  D-5  lacks  most  of  the  columns  corresponding  to  Red  weapon  types; 
most  of  the  columns  have  been  cut  out  of  the  original  report,  and  the  re¬ 
maining  columns  have  simply  been  pasted  together.  A  full  killer/victim 
scoreboard  corresponds  to  a  single  run  of  the  Combat  Module.  The  format  of 
a  killer/victim  scoreboard  is  similar  to  that  of  an  allocation  report; 
indeed,  both  reports  are  printed  by  the  same  output  program.  However,  the 
numbers  of  columns  and  rows  normally  is  not  the  same  in  allocation  and 
killer/victim  reports.  The  allocation  report  includes  columns  and  rows  for 
all  weapons  allocated,  usually  all  weapons  included  in  the  starting  inven¬ 
tories.  The  killer/victim  scoreboard  includes  columns  and  rows  only  if  the 
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corresponding  weapon  types  score  at  least  one  kill  or  suffer  at  least  one 
loss.  Any  weapon  whose  column  or  row  would  contain  all  "."/s  (i.e.,  zeros) 
is  suppressed  by  the  killer/victim  scoreboard  print  program.  A  killer/victim 
scoreboard  consists  of  two  main  parts:  a  weapon-by-weapon  type  section  and 
a  weapon  category-by-category  summary  section.  The  formats  of  the  two  sec¬ 
tions  are  similar.  The  killer/victim  scoreboard  is  designed  to  show  the 
losses  of  each  weapon  type  to  each  weapon  type.  Such  losses  are  also  sum¬ 
marized  by  weapon  category.  On  option,  a  report  summarizing  results  over 
two  or  more  Combat  Module  runs  may  be  produced. 

(1)  The  weapon-by-weapon  type  section  (Figure  D-5a)  contains  a  sep¬ 
arate  row  for  each  Blue  weapon  type  and  a  separate  column  for  each  Red 
weapon  type.  The  intersection  of  a  row  and  a  column  corresponds  to  engage¬ 
ments  between  two  weapon  types  and  consists  of  two  entries.  An  entry  of 
represents  a  zero  value.  The  appearance  of  two  "."/s,  however,  is 
ambiguous  in  the  sense  that  zero  losses  may  have  occurred  because  the  two 
weapon  types  engaged  without  loss  or  did  not  engage  at  all.  The  ambiguity 
may  be  removed  by  reference  to  the  corresponding  elements  in  the  allocation 
report.  Consider  two  entries  symbolized  by: 


the  total  number  over  2  days  of  Red 
weapons  of  type  j  lost  to  Blue  weapons 
of  type  i 


b(1J) 


the  total  number  over  2  days  of  Blue 
weapons  of  type  i  lost  to  Red  weapons  of 
type  j 


Any  individual  weapon  can  be  lost  only  once.  Hence,  total  losses  cannot 
exceed  total  inventory.  In  the  allocation  report,  total  allocations  may 
exceed  inventory  because  weapons  that  survive  the  first  day  may  be  allo¬ 
cated  again  (and  counted  again)  on  the  second  day. 

(2)  The  rows  and  columns  of  the  weapon-by-weapon  type  section  are 


labelled. 


(a)  Columns  possess  labels  of  the  form: 

N(j)  rj 
Name(j ) 


where  N(j) 


is  the  quantity  of  Red  weapon 
type  j  in  the  starting  inventory 
is  the  AFP  weapon  type  identification 
number 


Name( j ) 


is  a  short  nomenclature  for  Red  weapon 
type  j 
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Figure  D-5a.  Sample  Extract  from  Weapon-by-weapon 
Type  Section  of  AFP  Weapon  Killer/Victim 
Scoreboard  Report 
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(b)  Rows  possess  labels  of  the  form: 


from: 


N(i)  Bi 
Name(i ) 


where  N(i) 


is  the  quantity  of  Blue  weapon 
type  i  in  the  starting  inventory 
is  the  AFP  weapon  type  identification 
number 

is  a  short  nomenclature  for  Blue  weapon 
type  i 


Bi 


Name(i ) 


(c)  The  three  rightmost  columns  of  the  weapon-by-weapon  type 
section  are  labeled  "RED  TOTAL  DIR,"  "RED  TOTAL  AREA,"  and  "RED  TOTAL." 

The  entries  in  these  colulmns  show  the  sums  of  losses  of  Blue  weapons  by 
Blue  weapon  type  (row).  Again  there  are  two  entries  for  each  column/row 
intersection.  The  upper  entry  should  always  be  no  Red  weapons  are 

lost  to  Red  weapons.  The  column  headed  "RED  TOTAL  DIR"  displays  the 
numbers  of  each  Blue  weapon  type  (row)  lost  to  Red  direct  fire  weapons  of 
all  types.  Indirect  fire  weapons  lost  to  counterbattery  fire  are  included 
in  this  "direct  fire"  column.  The  column  headed  "RED  TOTAL  AREA"  displays 
the  numbers  of  Blue  weapons  by  type  (row)  lost  to  Red  area  fire  of  all 
types  (i.e.,  to  Red  indirect  fire  weapons  firing  in  the  indirect  or  area 
fire  role).  The  column  headed  "RED  TOTAL"  displays  the  numbers  of  Blue 
weapons  by  type  lost  to  both  direct  and  indirect  (area)  Red  fires;  values 
shown  in  this  column  are  the  sum  of  the  values  (in  the  same  row)  in  the 
preceding  two  columns. 

(d)  The  three  lowest  rows  of  the  weapon-by-weapon  type  section  are 

labeled  "BLUE  TOTAL  DIR,"  "BLUE  TOTAL  AREA,"  and  "BLUE  TOTAL."  The  entries 
in  these  rows  show  the  sums  of  losses  of  Red  weapons  by  Red  weapon  type 
(column).  As  usual,  there  are  two  entries  for  each  row/column  inter¬ 
section.  The  lower  entry  should  always  be  no  Blue  weapons  are  lost  to 

Blue  weapons.  The  row  labeled  "BLUE  TOTAL  DIR"  displays  the  total  numbers 
of  Red  weapons  of  each  given  type  (column)  lost  to  all  Blue  direct  fire 
weapon  types.  Red  indirect  fire  weapons  lost  to  Blue  counterbattery  fire 
are  included  in  this  Blue  direct  fire  row.  The  row  labeled  "BLUE  TOTAL 
AREA"  displays  the  numbers  of  Red  weapons  of  each  given  type  (column)  lost 
to  Blue  area  fire  of  all  types  (i.e.,  to  Blue  indirect  fire  weapons  firing 
in  the  indirect  or  area  fire  role).  The  row  labeled  "BLUE  TOTAL"  displays 
the  numbers  of  Red  weapons  by  type  (column)  lost  to  the  direct  and  indirect 
(area)  Blue  fires;  values  shown  in  this  row  should  be  the  sum  of  the  values 
(in  the  same  column)  in  the  preceding  two  rows. 
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(3)  The  upper  left  corner  of  a  kill er/vi ct im  scoreboard  contains  a 
key  to  a  special  feature  of  the  Combat  Module.  This  feature  is  usually 
referred  to  as  "super-trooping."  Most  weapons  are  represented  individually 
within  the  Combat  Module.  However,  some  very  numerous  weapons  are  aggre¬ 
gated  to  save  computer  time.  Weapons  so  grouped  are  said  to  be 
super-trooped.  In  AFP  practice  to  date,  super-trooped  weapons  are  grouped 
by  tens.  In  Figure  D-5a,  the  key  specifies  that  a  super-troop  consists  of 
10  weapons.  Eight  of  the  Blue  and  five  of  the  Red  weapon  types  were 
super-trooped.  Next  the  key  gives  the  weapon  type  identification  numbers 
of  the  Blue  and  Red  super-trooped  weapons.  Entries  in  the  main  parts  of  a 
killer/victim  scoreboard  are  always  adjusted  to  give  the  correct  counts  of 
individual  (unsuper-trooped)  weapons  as  appropriate. 

(4)  Just  below  the  super-troop  key  in  a  killer/victim  scoreboard,  the 
report  itself  is  identified.  In  the  example  in  Figure  D-5a,  the  report 
represents  results  for  Blue  force  "JM84"  in  combat  environment  "09"  for  the 
second  replication  (SEED  2). 

(5)  The  weapon  category-by-category  section  (Figure  D-5b)  of  a 
killer/victim  scoreboard  is  similar  in  format  to  the  weapon-by-weapon  type 
section  described  above.  The  category-by-category  section  gives  subtotals 
by  weapon  categories.  For  example,  tanks  of  all  types  on  a  side  are  lumped 
together  as  "ARM  VEH." 
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e.  QA  Report.  Given  that  the  Combat  Module  decomposes  the  full  battle¬ 
field  into  as  many  as  60  x  60  type-on-type  direct  fire  engagements  (of 
ordinary  or  counterbattery  versions),  the  casual  analyst  might  suppose 
that  any  one  type-on-type  engagement  be  trivial.  While  it  is  true  that  any 
one  type-on-type  direct  fire  engaement  is  less  complicated  than  the  full  60 
x  60  set,  one  engagement  is  far  from  trivial.  Recall  that  engagement  is 
preceded  by  a  pref erence/al location  process  to  determine  just  how  many  of 
each  direct  fire  weapon  type  meet  in  the  day's  engagement.  The  weapons  so 
allocated  are  then  assigned  to  pure  duels  of  one  or,  at  most,  two  odds 
classes.  The  duels  are  distributed  by  range.  The  duels  at  one  range  are 
collected  into  a  conflict.  Several  conflicts  in  succession  (four  has  been 
the  standard  maximum  in  work  to  date)  may  be  represented  provided  there  are 
survivors  of  the  preceding  conflicts.  The  last  conflict  on  a  day  may  be 
followed  by  another  day  starting  with  fresh  pref erence/al location  of  the 
preceding  day's  survivors  and  continuing  through  another  duel/conflict 
succession.  A  conflict  may  have  up  to  10  types  of  indirect  fire  weapons 
from  each  side  firing  on  the  opposing  direct  fire  weapon  types.  The 
indirect  fire  weapons  too  must  be  allocated  to  the  engagement  from  a 
weapons  pool.  The  indirect  fire  weapons  so  allocated  must  be  distributed 
by  range  of  targets.  And  the  firing  of  up  to  all  22  weapon  types  must  be 
sequenced  without  unacceptable  sacrifice  of  realism.  The  process  is 
complicated  by  the  treatment  of  detection  in  the  case  of  direct  fire 
weapons  and  by  the  disregard  of  detection  by  indirect  fire  weapons.  The 
appropriate  sensing  data  must  be  used  for  the  direct  fire  weapons.  Correct 
refire  rates  must  be  applied  for  different  weapons.  Correct  SSPKs  and 
fractional  kills/round  must  be  used  for  the  direct  and  indirect  fire  weap¬ 
ons,  respectively.  Kills  must  be  tallied.  With  so  much  to  be  considered, 
it  is  not  easy  for  an  analyst  to  judge  the  correctness  of  results  simply  by 
inspecting  final  weapon  and  division  combat  potentials  following  rollup 
over  16  combat  environments.  The  analyst's  role  is  made  a  little  easier  by 
an  engagement  quality  assurance  reporter  (QAREP).  The  basic  reporter  dis¬ 
plays  a  useful  variety  of  type-on-type  input  data  and  results  from  a  single 
execution  of  the  Combat  Module.  The  report  for  a  single  pairing  of  direct 
fire  types  for  four  conflicts  on  each  of  2  days  fills  four  pages.  Calling 
for  the  report  on  several  hundred  engagements  in  each  of  16  combat  environ¬ 
ments  generates  more  paper  than  anyone  can  digest.  Nevertheless,  the 
report  is  probably  the  most  powerful  single  tool  available  to  the  AFP 
analyst. 

(1)  Figure  D-6  reproduces  a  QAREP  for  a  fictional  example  of  2  days' 
engagements  between  Blue  type  23  and  Red  type  24  weapons.  The  following 
paragraphs  describe  much  of  the  contents  of  Figure  D-6  by  way  of  illustrat¬ 
ing  many  of  the  points  introduced  earlier  in  this  appendix  and  of  delving  a 
bit  more  deeply  into  some  matters. 

(2)  The  heading  of  Figure  D-6  identifies  the  direct  fire  weapons 
involved  as  Blue  type  23  and  Red  type  24.  At  user  option,  short  weapon 
nomenclatures  may  be  included  in  the  QAREP  heading  line. 

(3)  The  second  line  shows  that  both  weapon  types  belong  to  WEAPON 
CATEGORY  5,  which  is  usually  reserved  for  tanks. 
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Figure  D-6.  Example  of  an  AFP  System  QAREP  Report  of  Combat  Module 
Input  and  Results  for  a  Single  Direct-fire- type  on 
Direct-fire- type  Pairing 
(page  1  of  5  pages) 
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(4)  NUMBER  OF  WEAPON  TYPE  displays  the  numbers  of  the  two  weapon 
types  input  in  total  to  the  Combat  Module.  In  general,  these  numbers  are 
larger  than  those  allocated  to  this  particular  type-on-type  engagement. 

(5)  EXTERNAL  LOSSES  shows  how  many  weapons  of  each  type  are  to  be 
regarded  as  "lost"  prior  to  any  engagement.  Here  neither  side  suffers  any 
external  losses. 

(6)  NEAR/FAR  RANGE  shows  the  ranges  within  which  the  corresponding 
weapon  types  are  to  be  permitted  to  fire.  Recall  the  Combat  Module  repre¬ 
sents  six  ranges  from  250  to  2,500  meters,  or  from  250  to  2,500  meters  and 
"deep."  Figure  D-6  illustrates  the  first  case.  Range  1  corresponds  to  the 
shortest  range.  In  the  example,  the  Blue  weapon  type  is  permitted  to  fire 
at  all  six  ranges.  The  Red  weapon  type  is  permitted  to  fire  at  the  first 
three  ranges.  In  this  case,  the  Red  weapon  was  denied  the  opportunity  to 
fire  at  greater  ranges  because  the  AFP  analyst  had  looked  at  the  SSPK  data 
and  noted  that  Red  type  24  had  0.0  PK  against  Blue  type  24  at  1,500  meters. 
Limiting  Red  firing  to  the  first  three  ranges  saves  some  computing  time. 

(7)  REFIRE  TIME  specifies  the  mean  times  (in  minutes)  to  refire. 
Refire  time  is  assumed  to  be  lognormal ly  distributed  with  the  given  means 
and  standard  deviations  equal  to  one-half  the  given  means.  Refire  times  do 
not  affect  first  shots  of  the  usual  direct  fire  weapon  types.  However, 

"ref ire"  times  do  affect  the  times  (shot  cycles)  to  the  first  shots  of 
weapons  in  the  counterbattery  versions  of  direct  fire  engagements. 

(8)  The  section  DETECTION  provides  input  values  affecting  detection: 
whether  there  is  detection  at  all  and  the  times  to  detect. 

(a)  SENSOR  TYPE  provides  two  entries  per  weapon  type.  The  first 
entry  is  the  index  of  the  sensor  type.  The  second  entry  specifies  whether 
the  sensing  is  in  the  optico-visual  (1)  or  thermal  (2)  bands. 

(b)  RESOLVABLE  CYCLES  gives  the  minimum  number  of  resolvable  cycles 
required  for  a  detection  to  be  successful  in  the  sense  that  a  target  is 
considered  sufficiently  well  identified  to  be  fired  upon. 

(c)  SENSING  SIZE  gives  the  apparent  sizes  in  meters.  The  sizes 
depend  on  weapon  type  and  posture.  In  the  example,  all  the  Blue  weapons 
are  in  the  open,  and  all  the  Red  weapons  are  in  defilade. 

(d)  LIGHT  specifies  the  light  level  in  foot  candles.  Values 
greater  than  100.0  are  reset  to  100.0  within  the  Combat  Module. 

(e)  CONTRAST  provides  two  entries  per  weapon  type.  The  first  entry 
is  the  optico-visual  contrast.  The  second  entry  is  the  temperature  differ¬ 
ence  for  thermal  sensing. 
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(f)  ATTENUATION  gives  the  extinction  coefficients. 

(g)  MAGNIFICATION  gives  the  magnification  (in  diameters)  for  the 
corresponding  sensors. 

(h)  BRIGHTNESS  specifies  the  sky  over  ground  brightness  ratio. 

(9)  DISTRIBUTION  OF  INDIRECT  WEAPONS  applies  if  one  or  both  weapons 
are  mortar,  artillery,  or  rockets  used  as  counterbattery  weapons--i .e. ,  in 
the  special  version  of  direct  fire  engagement.  Then  the  entry  specifies 
the  fraction  of  the  weapon  type  devoted  to  counterbattery  actions.  (There 
should  be  no  engagements  in  which  only  one  weapon  type  is  in  the 
counterbattery  role.) 

(10)  EXPECTED  FRACTIONAL  DAMAGE  applies  if  one  or  both  weapons  are 
mortar,  artillery,  or  rockets  used  as  counterbattery  weapons.  (There 
should  be  no  engagements  in  which  only  one  weapon  type  is  in  the 
counterbattery  role.)  Then  each  entry  specifies  the  fractional  damage  per 
round  for  the  one  given  weapon  type  opposing  the  other  given  weapon  type. 
However,  counterbattery  kills  in  the  Combat  Module  do  not  depend  on  these 
numbers  but  on  the  following  Blue  and  Red  PK  entries. 

(11)  BLUE  PK  specifies  the  single  shot  PK  for  the  given  Blue  weapon 
type  against  the  given  opposing  Red  weapon  type  at  each  of  the  six 
identified  ranges.  The  PKs  take  into  account  the  posture  of  shooter  and 
target:  stationary  or  moving,  open  or  defilade.  The  same  PKs  are  used  for 
first  and  all  subsequent  shots. 

(12)  RED  PK  specifies  the  single  shot  PK  for  the  given  Red  weapon 
type  against  the  opposing  Blue  weapon  type  at  each  of  the  six  identified 
ranges.  Other  remarks  on  Blue  PK  apply  here  as  well. 

(13)  RANGE  DISTRIBUTION  specifies  the  intended  fractional 
distribution  of  duels  in  each  (if  there  are  two)  odds  class.  The  entries 
shown  are  the  AFP  version  of  a  "uniform"  distribution.  In  the  event  of 
"tied"  fractions,  duels  are  inserted  from  shorter  to  longer  ranges.  Duels 
are  distributed  independently  from  each  odds  class.  Note  that  fewer  than 
six  duels  within  an  odds  class  inevitably  leaves  at  least  one  range  empty. 

(14)  ORIGINAL  PREFERENCE  specifies  fractional  preferences  from  the 
shooters'  points  of  view  without  regard  to  targets'  preferences  or  to 
possibly  very  different  numbers  of  weapons  of  each  and  other  types. 

(15)  MODIFIED  PREFERENCE  specifies  fractional  preferences  after 
reconciliation  of  possibly  different  shooter  and  target  views.  The  entries 
have  been  moved  half-way  toward  the  mean  of  the  original  preferences  and 
then  renormalized  across  weapon  types.  Recall  that  these  modified 
preferences  generally  do  not  directly  show  the  fractions  of  weapons  that 
are  to  be  allocated  to  this  type-on-type  engagement  because  the  net 
fractions  depend  also  on  the  total  inventories  of  these  and  other  weapon 
types. 
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(16)  PARTICIPATION  (first  occurrence)  specifies  the  fractions  of 
allocated  weapons  to  be  engaged.  Participation  is  intended  to  vary  from 
0.0  to  1.0,  but  more  than  100  percent  participation  is  accepted  by  the 
Combat  Module.  Participation  is  intended  to  provide  a  factor  for  adjusting 
engagement  levels  in  accord  with  any  of  many  practical  realities.  For 
example,  aircraft  and  air  defense  weapons  may  have  very  high  preferences 
for  one  another;  but,  if  the  speeds  at  which  aircraft  move  are  so  great  as 
to  make  aircraft  and  air  defense  engagements  relatively  infrequent  and/or 
of  very  short  duration,  a  participation  factor  less  than  1.0  yields  a 
reduced  activity  level.  Or  reduced  participation  may  be  considered 
necessary  as  a  way  to  represent  the  fact  that  many  intended  enqaqements  do 
not  occur. 

(17)  ENGAGEMENT  DURATION  is  specified  in  minutes.  The  example  sets 
duration  to  2.01  minutes. 

(18)  ENGAGEMENTS  PER  DAY  should  be  "1".  Fractional  engagements  have 
no  significance. 

(19)  #  TIMES  SURVIVOR  IN  CONFLICT  specifies  the  number  of  conflicts 
per  day.  Fewer  than  the  specified  number  of  conflicts  may  occur  if  there 
are  no  survivors  of  early  conflicts. 

(20)  CREW  LOSSES  SUFFERED  PER  KILL  specifies  the  number  of  the 
casualties  assessed  for  each  weapon  killed  of  the  corresponding  type. 

(21)  BLUE  INDIRECT  REFIRE  TIMES  lists  the  input-specified  times 
between  rounds  for  the  Blue  indirect  fire  weapon  types  by  weapon  type.  The 
times  are  given  in  minutes.  The  time  6.66  minutes  is  a  default  value  input 
for  nonexistent  weapon  types.  The  values  0.5  and  1.0  correspond  to  single 
round  sustained  refire  times  of  ordinary  tube  weapons.  The  0.16  minute 
time  is  artificial  in  the  sense  that  it  leads  to  the  expenditure  of  a  full 
12-round  load  of  rockets  from  a  launcher  within  2  minutes  without  an 
implied  pod  reload.  The  artifice  is  liable  to  some  abuse  by  the  integer 
roundup  and  roundoff  rules  used  in  latching  indirect  fire  volleys  to  the 
direct  fire  shot  cycles. 

(22)  BLUE  FRACTION  FOR  AREA  FIRE  lists  the  input-specified  fractions 
of  total  indirect  fire  weapons  by  type  to  be  devoted  to  indirect  fire 
roles.  It  is  intended  that  counterbattery  and  indirect  fractions  sum  to 
1.0.  However,  it  is  possible  to  override  this  limit  permitting  more  or 
less  than  the  total  number  of  weapons  to  be  allocated.  In  the  example,  the 
fractions  range  from  0.5  to  1.0. 

(23)  BLUE  INDIRECT  KILLS/RND  specify  the  "lethalities"  of  indirect 
fire  rounds  in  order  by  weapon  type  for  each  direct  fire  range  band.  The 
values  in  the  example  are  arbitrary  values  input  for  test  purposes.  Recall 
that  these  data  are  in  the  form  of  fractional  kills  per  round  not  SSPKs, 
whose  values  must  not  exceed  1.0. 
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(24)  RED  INDIRECT  REFIRE  TIMES,  RED  FRACTION  FOR  AREA  FIRE,  and  RED 
INDIRECT  KILLS/RND  for  Red  all  are  similar  to  the  Blue  counterparts 
described  in  ( 21 ) - ( 23 )  above. 

(25)  DAY  1 

(a)  ALLOCATIONS  shows  the  numbers  of  the  weapons  of  the  given  types 
allocated  to  this  type-on-type  engagement  on  the  first  day. 

(b)  PARTICIPATION  (second  occurrence)  shows  the  numbers  of  weapons 
of  the  given  types  assigned  to  the  type-on-type  engagement  after 
application  of  the  participation  factors  given  in  line  PARTICIPATION  (first 
occurrence)  above.  In  the  example  shown,  because  the  participation  factor 
is  1.0  for  both  weapon  types,  the  numbers  of  weapons  participating  are 
exactly  equal  to  the  numbers  of  weapons  allocated. 

(c)  EXTERNAL  LOSSES  shows  how  many  losses  (if  any)  were  assessed  as 
preengagement  losses  in  accord  with  input-specified  factors.  In  the 
example.  Blue  and  Red  external  loss  factors  were  both  0.0;  hence,  0.0 
weapons  were  charged  as  external  losses.  External  losses  are  assessed  each 
day  at  the  input-specified  fraction  of  allocations. 

(d)  BLUE  DIRECT  LOSSES  lists  the  numbers  of  Blue  weapons  of  the 
given  type  killed  by  the  opposing  Red  direct  fire  weapon  type  at  each  of 
the  six  ranges.  (The  numbers  of  weapons  assigned  to  each  range  are  listed 
later  in  the  QAREP.)  The  losses  are  the  totals  over  all  conflicts  on  the 
first  day. 

(e)  RED  DIRECT  LOSSES  lists  the  numbers  of  Red  weapons  or  the  given 
type  killed  by  the  opposing  Blue  direct  fire  weapon  type  at  each  of  the  six 
ranges.  (The  numbers  of  weapons  assigned  to  each  range  are  listed  later  in 
the  QAREP.)  The  losses  are  the  totals  over  all  conflicts  on  the  first  day. 

(f)  BLUE  DIRECT  SHOTS  records  the  number  of  shots  (or  bursts)  fired 
by  Blue  direct  fire  weapons  of  the  given  type  at  each  range.  The  entries 
are  the  totals  over  all  conflicts  between  these  two  types  on  the  first  day. 

(g)  RED  DIRECT  SHOTS  records  the  number  of  shots  (or  bursts)  fired 
by  Red  direct  fire  weapons  of  the  given  type  at  each  range.  The  entries 
are  the  totals  over  all  conflicts  between  these  two  types  on  the  first  day. 

(h)  BLUE  INDIRECT  LOSSES  tabulates  the  losses  suffered  by  the  Blue 
direct  fire  weapon  type  to  each  of  10  (columns)  Red  indirect  fire  weapon 
types  (usually  fewer  than  10  types  are  active)  by  range  (rows).  Ranges 
with  no  associated  losses  are  suppressed.  Totals  by  range  and  by  indirect 
fire  weapon  type  are  included.  The  results  are  totals  over  all  conflicts 
on  the  first  day.  Clearly,  a  loss  recorded  in  a  column  implies  that  the 
corresponding  Red  indirect  fire  weapon  type  must  be  assigned  to  the 
engagement.  However,  the  absence  of  a  loss  in  a  column  implies  nothing; 
the  corresponding  indirect  fire  weapon  type  may  or  may  not  have  been 
assigned.  Fortunately,  other  tables  in  QAREP  identify  exactly  how  many 
weapons  and  rounds  are  involved  in  the  losses  shown. 
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(i)  RED  INDIRECT  LOSSES  tabulates  Red  indirect  fire  weapon  losses 
in  a  fashion  just  like  that  described  for  BLUE  INDIRECT  LOSSES  in  (h) 
above. 


(j)  BLUE  INDIRECT  SHOTS  tabulates  the  rounds  fired  by  Blue  indirect 
fire  weapons  against  the  corresponding  Red  direct  fire  weapon  type.  The 
rounds  are  recorded  for  each  of  10  (columns)  Blue  weapon  types  and  by  range 
(rows).  Total  rounds  by  range  and  firing  weapon  type  are  included.  The 
results  are  totals  over  all  conflicts  on  the  first  day.  The  rounds  fired 
are  usually  fractions  of  the  totals  that  could  be  fired  by  the  given 
numbers  of  tubes  at  the  given  rates  and  in  the  times  available.  The 
smaller  numbers  of  rounds  fired  reflect  adjustment  for  the  fact  that 
usually  only  a  fraction  of  the  targets  of  the  given  type  are  committed  to 
the  engagement  displayed. 

(k)  RED  EXPECTED  INDIRECT  LOSSES  tabulates  the  products  of  Blue 
indirect  rounds  fired  (from  the  table  above)  and  the  expected  "fractional 
kills  per  round"  (separately  reported  below).  The  expected  losses  are 
totals  over  all  conflicts  on  the  first  day.  Indirect  fire  rounds  may 
"strike"  already  killed  targets.  No  credit  is  given  for  overkill.  In 
general,  expected  indirect  kills  may  exceed  the  number  of  available 
targets. 

(l)  RED  INDIRECT  SHOTS  and  BLUE  EXPECTED  INDIRECT  LOSSES  present 
counterpart  information  to  that  just  described  for  BLUE  INDIRECT  SHOTS  and 
RED  EXPECTED  INDIRECT  LOSSES  above.  Again,  the  tables  cover  all  conflicts 
on  the  first  day. 

(m)  CONFLICT  1  begins  a  section  of  tables  providing  more  detailed 
information  about  the  activities  of  the  first  conflict  on  the  first  day. 

The  first  table  under  CONFLICT  1  provides  information  about 
the  direct  fire  duels  by  range  (rows).  The  two  columns  headed  DUELS  show 
how  many  duels  at  the  corresponding  odds  classes  (1:1  and  2:1  ratios)  were 
allocated  to  the  first  conflict  on  the  first  day.  At  250  m  it  should  be 
clear  that  22  duels  at  1:1  and  one  duel  at  2:1  translates  to  a  total  of  24 
Blue  and  23  Red  direct  fire  weapons.  From  the  duels/odds  data,  it  is 
always  possible  to  determine  how  many  weapons  are  involved.  The  columns 
headed  DETECTIONS  show  ATTEMPTed  detections,  SUCCESSful  detections,  and 
AVeraGe  TiMes  to  detect.  The  number  of  successes  should  not  exceed  the 
number  of  weapons.  However,  because  not  all  attempts  are  successful,  the 
number  of  attempts  may  exceed  the  number  of  weapons.  The  Combat  Module 
notes  when  a  detection  failure  is  the  result  of  too  few  resolvable  cycles; 
additional  attempts  are  not  made  inasmuch  as  the  same  (insufficient)  number 
of  resolvable  cycles  would  be  recur.  The  last  column  in  the  table  (UP 
BOUND  ON  SHOTS)  list  the  number  of  shot  cycles  at  each  range.  In  the 
example,  24  shot  cycles  are  permitted  at  each  range.  Recall  that  the 
number  of  shot  cycles  depends  on  both  direct  refire  times  and  the  odds 
classes.  Because  the  Combat  Module  includes  a  "shoot  back"  feature, 
weapons  may,  outside  the  normal  detection  process,  return  fire  after 
receiving  an  input-specified  number  of  rounds  from  otherwise  "undetected" 
opponents . 
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2.  BLUE  INDIRECT  SHOOTERS  lists  the  numbers  of  Blue  indirect  fire 
weapons  by  type  and  in  total  (columns)  assigned  to  each  range  and  in  total 
(rows)  for  the  first  conflict  on  the  first  day.  All  indirect  firers  are 
considered  assigned,  even  though  less  than  all  targets  of  the  given  type 
may  be  committed  to  the  currently  displayed  engagement.  (Counterbattery 
firers  of  the  same  weapon  type  are  not  considered  "indirect  firers"  in  the 
special  AFP  sense.)  Adjustment  for  target  numbers  is  made  to  the  rounds 
fired — not  to  the  tubes  considered  to  be  firing. 

3.  RED  INDIRECT  SHOOTERS  lists  counterpart  information  for  Red 
similar  to  that  for  Blue  described  in  the  immediately  preceding  paragraph. 

(n)  CONFLICT  2  begins  a  set  of  three  tables  for  the  second  conflict 
on  the  first  day.  The  tables  are  similar  to  those  for  CONFLICT  1  and  sub¬ 
sequent  conflicts  3  and  4.  However,  the  values  in  the  tables  may  differ 
markedly  from  those  of  the  preceding  and  later  conflicts.  Because  of 
attrition  in  conflict  1,  conflict  2  generally  begins  with  fewer  direct  fire 
weapons.  Different  numbers  of  direct  fire  weapons  will  usually  force  a 
change  in  the  odds  classes  of  duels.  Differences  in  odds  classes  in  turn 
may  change  the  number  of  shot  cycles  relative  to  the  first  conflict. 
Furthermore,  even  though  all  indirect  firers  survive  the  entire  day  intact, 
the  indirect  fire  weapons  are  assigned  to  the  conflicts  only  in  proportion 
to  r/R,  where  r  is  the  number  of  targets  at  the  beginning  of  a  conflict  and 
R  is  the  number  at  the  beginning  of  the  day.  Throughout  a  day  the  R-value 
remains  fixed.  However,  the  r-value  is  diminished  by  the  kills  in  preced¬ 
ing  conflicts.  In  the  example,  r/R  is  smaller  for  the  second  conflict  than 
for  the  first  one  on  the  first  day. 

(o)  CONFLICT  3  includes  tables  similar  to  those  described  above  for 
conflicts  1  and  2.  However,  because  no  direct  fire  weapons  survived  con¬ 
flicts  1  and  2  at  ranges  250  through  1,000  meters,  those  ranges  are 
"vacant"  in  conflict  3. 

(p)  CONFLICT  4  includes  tables  similar  to  those  described  above. 

As  in  conflict  3,  the  shorter  range  bands  are  vacant  as  the  result  of  total 
attrition  at  those  ranges  in  the  first  two  conflicts. 

(q)  REDrBLUE  EXCHANGE  RATIO  presents  the  net  exchange  ratios  for 
the  first  day's  conflicts. 

(26)  DAY  2  provides  information  about  the  second  day's  conflicts 
between  the  same  two  direct  fire  weapon  types.  The  formats  are  the  same  as 
for  DAY  1.  The  Combat  Module,  between  the  first  and  second  days,  performs 
the  important  step  of  pooling  survivors  of  direct  fire  engagements  of  all 
types  and  repeating  the  allocation  of  direct  and  indirect  fire  weapons  to 
engagements  using  the  new  availabilities.  Strongly  divergent  attrition 
patterns  on  the  first  day  may  lead  to  vastly  different  weapons  assignments 
on  the  second  day,  even  though  the  preference  factors  remain  the  same  on 
all  days.  The  reason  for  the  differences  in  allocations  is  that  net  allo¬ 
cations  depend  not  only  on  the  preferences  but  also  on  the  inventories;  it 
is  the  inventories  that  may  have  changed  greatly  from  one  day  to  the  next. 
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The  indirect  firers  are  not  attrited  during  a  day,  but  the  counterbattery 
weapons  generally  are  attrited.  Between  days,  the  indirect  and 
counterbattery  weapons  of  a  type  are  pooled  before  applying  the  original 
counterbattery  and  area  fire  fractions  again.  Hence,  the  numbers  of 
indirect  fire  weapons  allocated  to  indirect  and  counterbattery  roles  may 
both  change. 

D-4.  RUNSTREAM.  This  paragraph  describes  the  SSG  program  which  generates 
runstreams  to  execute  the  preprocessors  PREFGEN,  RNGDSTGEN,  PKSGEN,  and 
PROJGEN,  the  Combat  Module  MAIN,  and  the  postprocessors  QA  Report, 
Killer/Victim  Scoreboard,  Allocation  Report,  and  CXPS  Module.  A  runstream 
will  be  generated  for  each  environment  selected.  Multiple  executions  of 
the  preprocessor,  MAIN  module,  and  postprocessors  will  be  in  the  runstream 
if  different  random  number  seeds  are  requested.  Familiarity  with  the 
UNIVAC  Symstream  language  and  SSG  processor  is  assumed. 

a.  INTENT.  SSG  generation  of  runstreams  is  intended  to  simplify 
changes  to  element  names  and  parameters  which  are  needed  when  creating 
runstreams.  Execution  of  the  AFP  Combat  Module  requires  11  different  input 
files,  5  output  files  which  are  saved,  and  several  parameters  per  program. 
During  production  runs,  there  are  16  runstreams,  each  with  10  repetitions. 
Chances  of  missing  an  element  name  or  parameter  are  great.  A  generator 
minimizes  naming  errors  and  would  eliminate  keying  errors. 

b.  SSG  Section.  The  SSG  statements  are  the  parameters  for  the  SSG 
skeleton.  Their  order  is  not  important,  because  the  first  variable  on  the 
line  is  a  keyword.  Figure  D-7  is  an  example  of  the  SSG  statements 
required.  Explanations  of  each  SGS  follow. 

(1)  RUNID  -  user  ID  on  @RUN  statement. 

(2)  USERID  -  user  ID  for  permanent  files  which  will  be  created  during 

run. 

(3)  PFILES  -  permanent  files  where  absolute  programs  are  stored. 

(4)  FORCE  -  f our-character  force  code  for  permanent  file  names  and 
report  titles. 

(5)  FORCE1CH  -  one-character  force  code  for  permanent  file  names  and 
version  names. 

(6)  ENV  -  all  possible  environments;  this  SGS  does  not  change. 

(7)  ENVFIRST  -  first  environment  for  which  a  runstream  should  be 
generated. 

(8)  ENVLAST  -  last  environment  for  which  a  runstream  should  be 
generated;  runstreams  will  be  generated  for  the  range  of  first  through  last 
environments. 
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SC'S 

RUNIO  3C 
USERID  H7 

PFILES  *H7  A rP  «9fAFP 
FORCE  H*'bo 
FORCE  1CH  H 

E f!V  0  1  02  03  n4  05  P6  Q7  08  09  10  11  12  13  14  15  16 
n.VFIRST  1 
EHVLAST  3 

SUPP  Cl  06  11  C4  01  06  11  04  01  Of  11  04  01  06  11  04 
P NAMES  PAPD  S  TA  r  7  r  FADE  b  A  PD  RAPD  STATIC  PAPE  BA PD  ; 

R  A  PD  STATIC  9 ADE  BAPO  RAPD  STATIC  PACE  BJpO 
LIGHT  DDDDf  NNNDODDNNNN 
BPIV  !  1  1  3  1  »  1  T  !  1  1  3  1  1  1  3 

ROIV  31413’4T3i41314l 

ALPHA  ABCDEFGHIJKLMNOP 

N  DE  P  S  1 

KVCOPIEF  3 

BASE  *H7B  ASEC  AT* 

PKS  H7PKS 

RNGDST  SH7RN6DST 

PPEF  *H7PREF 

CSCSS  *H7CSCSS 

E  PC  AG  E  ‘-J'H  7E  NG  AGE  P  A  "D 

PTAS  *H7PCAS  H 

CVALS  *H7GL0EAL  CVALS 

F FAC T  S  *H7GLQP AL  FP’CTS 
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Figure  D-7.  SGS  Statements  Example 
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(9)  SUPP  -  environment-related  suffix  for  CSCSS  elements;  four  CSCSS 
elements  are  created  to  correspond  to  the  four  postures;  all  RAPO 
environments  will  use  01;  STATIC  environments  use  06;  RADE  environments  use 
11;  BAPD  environments  use  04. 

(10)  PNAMES  -  postures  for  all  16  environments;  this  SGS  does  not 
change. 

(11)  LIGHT  -  day/night  conditions  for  each  of  16  environments. 

(12)  BDIV  -  Blue  force  ratio  for  all  16  environments;  Blue  inventory 
is  for  one  division,  if  the  force  to  be  played  is  larger,  the  force  ratio 
is  a  multiplier. 

(13)  RDIV  -  Red  force  ratio  for  all  16  environments. 

(14)  ALPHA  -  5th  character  of  run  ID. 

(15)  NREPS  -  random  number  seeds  for  replications;  each  runstream 
created  will  use  all  seeds  listed  here. 

(16)  BASE  -  basedata  file;  element  names  using  FORCE  and  ENV  SGS 
statements  will  be  generated. 

(17)  PKS  -  SSPK  file;  element  names  using  PNAMES,  LIGHT,  and  F0RCE1CH 
SGS  statements  will  be  generated. 

(18)  RNGDST  -  range  distribution  file;  element  names  using  PNAMES  and 
F0RCE1CH  SGS  statements  will  be  generated. 

(19)  PREF  -  preference  file;  element  names  use  PNAMES,  F0RCE1CH. 

(20)  CSCSS  -  CSCSS  file;  element  names  use  FORCE,  SUPP. 

(21)  ENGAGE  -  engagement  file  and  element  name;  element  name  does  not 
change  by  environment  or  posture. 

(22)  PCAS  -  PCAS  file  and  element  name;  element  name  does  not  change 
by  environment  or  posture. 

(23)  CVALS  -  file  and  element  name  of  CVALS  input  to  CXPS  Module. 

(24)  FRACTS  -  file  and  element  name  of  FRACTS  input  to  CXPS  Module. 

(25)  GDNSTY1  -  density  reductions  Side  1  for  all  16  environments; 

T  =  reduction  occurs,  F  =  no  reduction. 

(26)  GSNSTY2  -  density  reduction  Side  2  for  all  16  environments. 

(27)  TYPLIM  -  types  entering  combat. 

(a)  Lower  and  upper  limit  Side  1  types. 
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(b)  Lower  and  upper  limit  Side  2  types. 

(28)  SUPERTRP  -  super-troop  parameter  for  allocation  reports;  enclose 
in  quotes 

(a)  Super-troop  multiplication  factor 

(b)  Total  number  of  Blue  super-troops 

(c)  Total  number  of  Red  super-troops . 

(29)  SUPERB  -  AFP  number  of  Blue  super-troop  items;  enclose  in 
quotes. 

(30)  SUPERR  -  AFP  number  of  Red  super-troop  items;  enclose  in  quotes. 

(31)  QAREP  -  this  SGS  is  for  the  QA  report;  if  removed  or  misspelled 
no  report  will  be  generated. 

(32)  QAPKS  -  SSPK  print  parameters  for  QA  report;  0  =  suppress 
SSPK  values  in  report;  1  =  print  SSPK  values  which  makes  QA  report  SECRET 
cl assif ication. 

(33)  RPTPS1  -  AFP  number(s)  of  Blue  type(s)  to  be  shown  in  QA 
report;  this  SGS  may  be  repeated  to  accommodate  all  AFP  numbers  needed; 
enclose  in  quotes. 

(34)  RPTPS2  -  AFP  number(s)  of  Red  type(s)  to  be  shown  in  QA  report; 
this  SGS  may  be  repeated;  enclose  in  quotes. 

(35)  AIR1  -  Side  1  aircraft  types;  enclose  in  quotes. 

(36)  AIR  2  -  Side  2  aircraft  types;  enclose  in  quotes. 

(37)  OJTPD  -  A  year  symbol  to  appear  in  output  records. 

(38)  OKTHTR  -  A  theater  symbol  to  appear  in  output  records. 

(39)  OJVIS  -  Symbols  correspondi ng  to  clear  (1)  and  degraded  (2) 
visibility  for  the  AFP  standard  16  combat  environments.  A  symbol  appears 
in  output  records  and  may  appear  in  the  input  CS/CSS  moduli  records. 

(40)  OJDAY  -  Symbols  corresponding  to  daytime  (1)  and  nighttime  (2) 
for  the  AFP  standard  16  combat  environments.  A  symbol  appears  in  output 
records  and  may  appear  in  the  input  CS/CSS  moduli  records. 

(41)  OJPOS  -  Symbols  corresponding  to  RAPD  (1),  STATIC  (2),  RADE  (3), 
and  BAPD  (4)  postures  for  the  AFP  standard  16  combat  environments.  A 
symbol  appears  in  output  records  and  may  appear  in  input  CS/CSS  moduli 
records . 
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(42)  IBFOR  -  Specifies  a  four-  to  six-digit  division  identifier  to  be 
included  in  output  records.  A  TPSN  is  a  logical  choice  for  division 
identifier. 

(43)  IRFOR  -  Specifies  a  four-  to  six-digit  threat  identifier  to  be 
included  in  output  records. 

(44)  ICOMBO  -  A  case  symbol  appearing  in  CS/CSS  moduli  input  and 
partial  combat  potential  output  records. 

(45)  TVALON  -  Controls  the  weighting  of  the  first  four  components  of 
combat  potential.  TRUE  =  apply  target  value  weights.  FALSE  =  apply 
weights  of  1.0. 

c.  SKEL  Section.  The  SSG  Skeleton  is  a  program  which  will  generate  ECL 
statements  using  the  SGS  parameters  and  internal  looping  directives.  The 
skeleton  shown  in  Figure  D-8  will  generate  a  standard  AFP  runstream  which 
can  be  modified  for  special  cases  or  conditions.  Or,  the  skeleton  itself 
can  be  modified  to  generate  a  special  case.  Points  of  interest  about  the 
skeleton  include  the  following: 

(1)  The  skeleton  creates  additional  SGS  statements  which  are  used 
during  runstream  generation.  These  new  SGS  statements  are  element  names 
which  change  by  environment  name  and/or  posture. 

(a)  COMBAT  -  environment  for  which  this  runstream  is  being 
generated;  skeleton  will  loop  from  ENVFIRST  through  ENVLAST. 

(b)  PREFIX  -  USERID  and  FORCE  are  prefixed  to  permanent  file  names. 

(c)  CXPS  -  environment  part  of  element  name  to  which  CXPS  output  is 
saved;  name  also  uses  NREP. 

(d)  CSELT  -  FORCE  and  SUPP  used  to  create  CSCSS  element  name. 

(e)  BASELT  -  FORCE  and  ENV  used  to  create  BASEDATA  element  name. 

(f)  PKSELT  -  PNAMES  and  LIGHT  used  to  create  PKS  element  name  with 
version  F0RCE1CH. 

(g)  RNGELT  -  PNAMES  used  to  create  range  distribution  element  name 
with  version  F0RCE1CH;  name  has  format  PNAME  -  DEEP/F0RCE1CH. 

(h)  PRFELT  -  PNAMES  used  to  create  preference  element  name  with 
version  F0RCE1CH. 

(i)  INVNTR  -  file  name  where  inventory  elements  are  kept;  FORCE 
used  to  create  inventory  element  name  with  version  PNAMES:  if  inventory 
does  not  change  by  posture,  remove  version  from  generated  runstream  or 
change  skeleton. 
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♦CREATE  SGS 

♦  CREATE  SGS 
♦CREATE  SGS 
♦CREATE  SGS 
♦CREATE  SGS 
♦CREATE  SGS 
♦CREATE  SGS 

♦  CREATE  SGS 
♦CREATE  SGS 
♦CREATE  SGS 

♦  CREATE  SGS 
♦CREATE  SGS 


SKEL 

♦  INCREMENT  IE  FROM  CENV FIRST, 1,1, 10  TO  CENVL A  ST  ,  1 f 1  ,  1 0 

♦  CREATE  SGS:  C0"BAT  CENV,l,IEtl3 
PR-FTX  CUSERIOflfl,l 3CF0PCE, 1,1, 13 
CXPS  C  FN V, 1 , IE *13 

CSELT  FF0RCE,1,1.13ECSUPP,  1  ,  IE  f 1 3 
BASFLT  C FORCE, 1,1 ,13ECENV,  lfIE,13 

“EHS"!  FPNAMES,!,^,  n-CLfGHT,  1,  IE*  13/T  FORCE  1CH,  1,1,  13 
RN5ELT  CPNAMCS* 1, IE, 1  3-DEE  P/TFOR  CE  1  CH,  1 ,1,13 
PRFELT  CPNAMES, 1,IE, 13/CF0RCE1CH ,1,1,13 
INVNTR  H7AFPFILES  IN  VC FORCE, 1,1* 13 
NDIV1  CBOI V  *  I  *IE ,13 
ND?  V2  CRDI V,1,IE,13 
DNSTY1  CGDNSTY1,1  ,IE  ,13 
DNSTY2  CGDNSTY2*1,IE*13 

♦  EDITT6n  H7RUNS*G0cr0RCE:»1*I*l^E[:c0MBAT  *  1*1*1  JNCNREPS  *1*1*13 

2  A ^TP5^0CC  5U*ID»  1 ,  1, 13CACPHA,  1  ,IE,  I3TNPEPS  ,1  ,  1  *  1  3 ,  E 1 89 9P2277D  ,  C 

SECRET , 60 G *6300  .  KNOX  «703)  476-4923 

#OUAl  unclassified 

ft  ASG , A  H7AFPFILrS/AFP/AFP. 

#ASG,A  H7RUNS/ArP/AFP. 

♦INCREMENT  L  TO  CPFTLES3 

♦  INCREMENT  M  TO  CPF TLES  T 1 3 
»ASG,A  EPFILE  S, L , M,  13. 

♦  LOOP 
♦LOOP 

ft  HO  G  ,  S  ♦♦♦♦  C  FOR  CE  *  1  *  1*  1  3  ENV  C  COMB  A  T  ,  1  , 1  , 1  3  SEEDS  CNREPS*-13  ♦♦♦♦ 
#PRT,S  H7RUNS  .G?C FORCE* I , 1 ,13ELC0MBAT ,1  ,1 ,1 3NTNR EPS , 1  * 1  ,13 
ft  .  SAVE  THE  PROGRAMS 
ft ASG , T  ABS-FILE. ,///iaaOO 

ft COPY  ,AC  ♦H7AFP.8  7QPKSGEN  ,A8S-FILE.8  70PKSGEN 

ft COPY  , AC  ♦« 7 A FP. 87QPR OJ 6EN ,ABS-F I LE. 8 70  PRO JGEN 

*CO*Y  ,AC  ♦H7AFP.870',REFGENf  ABS-FILE.87QPREFGEN 

ft COPY , AC  ♦H7AFP. 870 PNGDST6EN, ABS-FILE .a 70RNGD ST G E N 

ft  COPY  *A  C  ♦H7AFP*  8 70 MAIN  * ABS-FILE •  870MAI N 

ft COP Y  t AC  ♦98AFP. 87 Q CE NK V , ABS-FILE  .870GENKV 

ft  COPY  ,  AC  ♦98AFP.P7QGENAL , ABS-FTLE  .870  G£  NAL 

ft  COPY , A  C  ♦98AFP.87DnRTKV, ABS-FILE  .870 TK  V 

ft COPY  ,AC  ♦H7AFP»870CXPS,ABS-FILE .8 70 CXPS 

ft  COPY  ,  A  C  ♦H7AFP.8  7DC'EP0RT  ,  ABS-FILE. 8  7DREP0RT 

ft  COP Y  ,AC  ♦H7AFP.PAUSE .ABS-FILE .PAUSE 

♦INCREMENT  L  TO  CPFTLES3 

♦INCREMENT  M  TC  CPFTLES,13 

ft FREE  CPFILES*L*M,13. 

♦  LOOP 

♦  LOOP 

♦  IF  C  COMB  A  T  3 

ft  ASG , T  2C.,///4rnn 
ft  ASG  *  T  21 • * // /4  3  00 
ft  AS G , T  22 • , // /4^00 
ft  ASG , T  23 • *// /4BD0 
ft  ASG  *  T  24  .  *  /  /  /5n0C 

ft asg , t  25'. ,///rr P 

ft  ASG , T  26 • , // /40 DC 
ft  ASG  ,  T  3.,/// 23m 
ft  ASG  *  T  4.»///2"00 
ft  AS G  *  T  7 • , // /230C 

ft  .  UNIT  35  I*  USPO  FOR  TEMPORARY  STORACE 
ft  ASG , T  35 • ,// /2000 
ft  AS G  *  T  34 • , / / /2C OCQ 
ft  AS G  *  T  9 • * // /5n0 

-  "  31.*///7000 

32. ,///! 300C 
33. Ty //^CDO 
TO  1 

I  V  P  U  T 


ft  ASG*  T 
ft  ASG.T 
ft  ASG  ,  T 
♦  SET  £ 
ft  • 
ft 
ft 
ft 

ft ASG, A  CBASE, 1,1 ,13. 
ft  ASG , T  15. 
ft  ED  CBASE  ,1*1 ,13  BA SELT ,1,1,13,15. 
ftPR T , S  CBASE,  1,1 ,13. CBASEtT,!, 1,13 
ft  FREE  CBASE, 1  ,1,13. 

ft  A  SG , A  C  PK  S  * 1 *1*1 3/ XXX/ XXX .  .  PKS 


files 

LOCATE  THE  ELEMENTS  FOR  ENVIRONMENT  DEPENDENT  FILES 

.  3ASEDATA  FILE 


Figure  D-8.  SSG  Skeleton 
(page  1  of  4  pages) 
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H  ASG  *  T  10.  . 

HED  CPKS, 1,1, 13. CPKSELT* 1,1*13*10  . 

#AS6^ACCRN50STl”l,t3.  .  RANGE  DISTRIBUTION 

#EQGt?  RNGDST*!  *1*  13.TRNGELT  *1*1,13*11. 

H  FREE  CRNGDST, 1.1,13.  _ 

♦  ASG , A  CPREF  *1*1 *13.  •  PREFERENCE  FILE 

H  ASG  *  T  12. 

HED  CPREF ,1.1 *13. CPPFELT* 1*1 ,13*12. 

H  FREE  EPREF*1*1* 13. 

H ASG*  A  ECSCSS ,1,1.13. 

5eDGCCSCSS.1,1,T  3. cr SELT, 1,1, 13* 14. 

#ASG*A^CEN6A6E*?  *1*13.  •  ENGAGEMENT  FILE 

HASG.T  13. 

If  ED  C  ENGAGE  ,1 ,1,  13. FENG  AGE  *1*2,1  3,13. 

#FREE  C ENGAGE  ,1*1,13.  ocnrftllljri  ^,e11A,Tv  rn  r 

A  ASG  *  A  CPCAS* 1*1  *  13 •  •  PERSONNEL  CASUALTY  FILE 

HASG.T  16. 

HED  CPCAS ,1*1,13 .CPCAS* 1*2,13,16. 

f ASG*ACcSsEPIDilil*!3KVCF0RCE,l*l,13/XXX/XXX.  .  KV  FILE 
HER  S  20. 

HERS  21. 

HERS  25. 

HFRS  26. 

HXQT  ABS-FILE  .87CPREFGEN 
111111 

HXQT  ABS-FILE •870RNGDSTGEN 
111111 

HXQT  ABS-FILE  .S^OPK  rGEN 
1  I  1  1  1  1 

HXQT  ABS-FILE  .eTOPROJGEN 
111111 

♦INCREMENT  IR  T3  rNPEPS*l3 

♦  CREATE  SGS:  RE3S  C NREPS *  1  , IR , 1 3 

♦  SET  R  TO  CRE  PS* 1*1*13 
HERS  22. 

HERS  23. 

HERS  24. 

HERS  3. 

HERS  4. 

HERS  9. 

HERS  31 ^ 

HERS  32. 

HERS  34. 

HXQT  ABS-FILE .870MATN 
111111 
C  ♦R  3 

CCNSTY1 *1 *E,13  rrNSTY2* l.E*13 
CTYPLIMfl *  1  *  1 3  rTYPLIM,  1 ,2,13 
HASG.T  S0RT33  .,///inOQ 
HSORT  ,ES 
VOLUME-SMALL 


CTYPLTM  ,1,3*1 3  C T YPL I M , 1  *  4  *  1  3 


KFYW-3,35  *36,B,*  :4  *  *^5  *  36  *B  ,  A  :  2  *  3  5  *36  ,  B  ,  A  :  1  *  35  ,  36  ,  B  *  A 
FILEIN=33. 

FTLE0UT-S0RT33. 

H  EOF 

HUSE  33 • • SORT  33 • 

hasg, t  $5rt9 • ,/r/ioro 

HSORT  *ES 
VOLUME-SMALL 

KEYW-3,35  *36* B *  A  r4* 35  *  36 f B , A : 2  *  3 5 *36 , B f  A:l*35  ,36*B,A 
F ILE I N— 9 . 

F ILEQ  UT-S0RT9  . 

H  EOF 

HUSE  9 • *S  0RT9  • 

HASG.T  S0RT24  ., f/flVQQ 
HSORT  ,ES 
VOLUME-SM  ALL 

KEYW  =  3,35  ,36,0,*  :4  ,  T5  *36  , B  ,  A  :  2 , 3  5  *36  *  B  ,  A  :  1  *  35  *3 6  * B  *  A 
FILE I N-24 • 

FILE0UT-S0RT24. 

H  EOF 

HUSE  24 . *  SORT 24 . 
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4ASG.T  S0RT32  .f///lC00 

4S0RT.ES 

VCLUME^SMALL 

KEYWz3,35,36,B,A  : 4 , 75 ,36 ,8 , A : 2 , 3 5  ,36, B, A:l, 35  ,36,8, A 
FILEIN=32. 

FILE0UT-S0RT32. 

4E0F 

4USE  32  •*  SORT 32 • 

4  .  SAVE  DIRECT  ACCESS  FILES  ALLOC,  FALLOC,  AND  TTLOS  IN  ELEMENTS 
4  ASG , A  CPREFIX,! , 1 , 1 3/XXX/XXX . 

4  •  COPY, I  3.,C°REFTX,lf  1 , 1 3  .  A  CCOMBA  T  ,  1  ,  E  ,1  OR  OP  3 
4  .  COPY, I  4*  ,C°PEFTX*l,l,l3»FCC0MBAT  ,1  ,E  ,1  3Rr*P3 
4  .  COPY, I  9.,CRREFTX,1,1,13.TCC0MBAT,1  ,E,l3ROR3 

♦  IF  CQAPEP3 

If  DELETE  *C  CPREFTX,  1  ,1  ,1  ORE  COMB  AT  ,  1  ,E  ,  1 3RC  *9  3/  XX  X/XXX  . 

4XQT  ABS-FILE  .P»USE 

4 CAT , P  CPREFIX,! ,1,1 IRC  COMB AT ,t,E,13RC^R3/XXX/XXX.,F///2Q0Q0 
4  ASG , A  CPREFIX,! ,1, 13PC COMBAT, 1,E,13RC^R 3/XXX/XXX. 

4 KEEP  CPREFIX , 1, 1 ,1 TRCCOMBAT , 1 ,E , 13RC^R  3. 

AERKPT  PRINTS /CPREFIX  ,1 ,  1 , 13RC  CO  MB  AT  ,  1,  E  ,  1 3RC  *R  3 
4 XQT  ABS-FILE  .87QREP0RT 
C CAPK  S , 1 , 1 ,13 
111111 
♦INCREMENT  K  TO 
♦INCREMENT  L  TO 
C  RPTP  S 1 ,K ,L, 13 
♦LOOP 

♦  LOOP 
9999 

♦INCREMENT  K  TO 
♦INCREMENT  L  TO 
CPPTPS2,K,L,13 
♦LOOP 

♦  LOOP 
9°99 
4  EOF 

SBRKPT  PRINTS 

♦  .  SYM,U  CPREFtX ,1 ,i,13RCC0MBATf  1,E,13RC^R3. 

♦  END 

4DELE  TE  ,  C  CPREFT  X,1 , 1  ,1  30r  COMB  AT  ,  1,E  ,  I  3RC  ♦**  3/XX X/XX X  . 

4XQT  ABS-FILE  .P*USE 

4  CAT , P  CPREFIX ,1  ,1 , ! 3 DC  COMB A  T , 1 , E , 1 3R C^P 3/X XX /XX X .,F/// 20000 
4 ASG. A  CPREFIX  .  1  .1, 13 DC  COMBAT , 1 ,E  ,13RC*R3/XXX/XXX • 

4KEEP  CPREFIX, 1,1,1 3D CC OMB AT ,1 ,E, 1 3RC  *R  I. 

4PRKPT  PRINTS /C PREFIX  ,  1 f 1 , 1 3DC COM B AT , I , E , 1 IRC ♦R 3 
4XQT  ABS-FILE  .8706ENKV 
4XQT  ABS-FILE  .87 DpR  TK  V 

KV  SCOREBOARD  FOR  C FORCE  ,  I , 1 , 1 3  ENV  CC OMB A T , I , E  ,  13  SEED  C^R3 
C  SUPERTRP ,1,1,13 
C SUPERB, 1,1, 13 
CSUPERR,!  ,1,13 

4  ADD , E  C INVNTR  ,  I  ,1, 13.CINVNTR, 1,2,13 
4  ADD , E  7. 

«ED  7.  ,C USERID,! ,1, I 3K VC  FORCE , 1 , 1 , 1 3 . EC  COMB  AT ,1,E,13RC*R3 
4  .  COPY  KV  FILF  FOP  KV  ROLLUP 

4  AS G , T  7.  .  FOLLOWING  PROGRAM  WRITES  TO  UNIT  7 

4XQT  ABS-FILE  .87DGENAL 

♦  .  PRINT  THE  ALLOCATION  REPORT 
4XQT  ABS-FILE .87rPRTKV 


TRPTPS1 3 
CRPTPS1 , K  3 


rRPTPS2  3 
CRPTPS2 , K  3 


ALLOCATION  REPORT  FDR  C FORCE , 1 , 1 , 1 3  ENV  C COMB  AT , 1 ,E , 1 3  SEED  C*R3 
CSUPERTRP  ,1,1,13 
CtUPEPB,l,l,13 
C  SUPE  PR  ,  1  ,1,13 

4 AOD , E  CINVNTR,!  , 1 , I  3 .C INVNTR , 1 , 2 , 13 
4  ADD  •  E  7. 

♦  IF  L  CXPS  3 

♦  IF  NOT  C  COMB  AT"* 

»  ASG  ,  T  7 . */ // 2P3D 

4  AS G , A  CBASE,1,1  ,13.  .  BASEDATA  FILE 

4ASG.T  15. 

4 ED  C BASE  ,1,1  , 13. CB A  SELT, 1,1, 13, 15. 

4 FREE  CBASE  ,1  ,1,  13. 

4  ASG,  A  CCSCSS  ,1,  1  ,  P. 

4  ASG  ,  T  14. 


4 ED  CCSCSS, 1, 1,1 3.CCSELT, 1,1, 13,14 
4 FREE  CCSCSS,  1, !  ,1 
4  ASG , A  CPCAS,  1,1 ,13.  .  PERSONNEL  CASUALTY  FILE 


Figure  D-8.  SSG  Skeleton 
(page  3  of  4  pages) 


D-65 


CAA-D-84-14 


231 

232 

233 

234 

235 

236 

237 

238 

239 
24C 

241 

242 

243 

244 

245 

246 
24  7 

248 

249 
25Q 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
26  2 

263 

264 

265 

266 
267 
263 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 
28  Q 
281 
282 
28  3 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 
3Q0 
301 


8  ASG  ,  T  16. 

8  ED  C  PCAS,  1,1, 10. CPCAS,1 ,2.13,16. 

» free  cpcas.i .i.io. 

n  .  END  OF  NOT  COMBAT  IF 

♦  END 

8HDG  ♦♦  CFOPCr  ,1, 1, 13  CXPS  ENV  CCXPS,  1,E,13  SEED  C ♦R 3  ♦♦ 
tt  .  CREATE  OUTPUT  FILES  FOR  CXPS 

♦  ASG , T  29. 
if  ASG  ,  T  30. 

8  .  RUN  THE  MERGE  MOOULE 

8  .  RUN  WITH  FILES  DEVELOPED  EARLIER 

8  .  C OPY v I  CPREFIX.l, 1, 13.ACCXPS, lfEf 13RC«R3,3. 

8  .  C  OPY  , I  rPRErIX,l, 1, 13.FCCXPS.  1,E, 13RC^R0,4. 

8  .  C  OPY , I  CPRErIXf 1,1#10.TCCXPS,  1,E,13RC^P0»9. 

8ERS  7. 

8XQT  ABS-FILE .870CXPS 

♦  .  IMAGE  GIVING  INDICES  IN  CBT  POT  OUTPUT  RECORDS 
♦EDIT  ON 

CICOMBO.l  jl.lOE 
CCJTPO,! ,1.13C 
COkTHTR ,1,1,10c 
COJVIS, 1, IE,12£ 

CQJDAY, 1, IE, IOC 


C 0 JPOS ,  1  ,  IE  ,1^C 
C IB FOR, 1. 1,136 


CIRF0R,1 ,1,10 

♦  .  IMAGE  GIVING  INDICES  OF  INPUT  CS/CSS  MODULI 
C  TV  AL  ON ,1,1,13 

1  1  1  1  1  l 

END IV 1,1, E, 13  C NDI V2,1,E,10 

C  AIR1  ,1  ,1 ,10 

CAIP2  ,1,1,10 

8  ADD  CCVALS,!  ,1. 10.rCVALSrlr2.10 
8  ADD  CFRACTS, 1,?  , I  0  .C FR A CTS , 1 ,2,10 
8  .  COPT  CXPS  OUTPUT  FOR  INPUTTING  TO  ROLLUP 
8CAT A  ,L  29. 

8  End 

:s§§TfIs§?fa5?:SFIx-i-,',3-cccxps’*-E"iwc*” 

8S0RT  ,S 

volumezsmall 

KEY  =  1  ,  5 . CH , A : 67  v 1 D  § CH , A 

FILEIN=29 . 

FlLEOUTrSORToUT. 

8ED  ,R  SORTOUT. 

LNP  ! 

EXI 

♦  FNO 

88RKPT  PRINTS 

”REM3vECSG|FR^Srl*1:1DCC0MBAT,1,E:,i:'RC*R:l"CKVC0PlES,I»1*1;l 

♦  LOOP  .IR 

♦.  END  OF  CXPS  IF 

♦  .  ENO  OF  ENVIRONMENT  IF 

♦  END 
SPIN 


♦REMOVE  SGS  COM?  AT 
♦REMOVE  SGS  PREFIX 
♦REMOVE  SGS  CXP' 
♦REMOVE  SGS  C  SELT 
♦REMOVE  SGS  BASELT 
♦FEMOVE  SGS  PKSrLT 
♦REMOVE  SGS  RNGELT 
♦REMOVE  SGS  PRFELT 
♦REMOVE  SGS  INVNTR 
♦REMOVE  SGS  NDIV1 
♦REMOVE  SGS  NOIV? 
♦REMOVE  SGS  DNSTYI 
♦REMOVE  SGS  DNSTY2 
♦LOOP  .IE 
3E0F 
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(j)  Noivi  -  Blue  force  ratio  of  environment  for  which  this 
runstream  is  being  generated;  taken  from  SGS  BDIV. 

(k)  NDIV2  -  Red  force  ratio  of  environment  for  which  this  runstream 
is  being  generated;  taken  from  SGS  RDIV. 

(l)  DBSTT1  -  Blue  density  reduction  of  environment  for  which  this 
runstream  is  being  generated;  taken  from  SGS  GDNSTY1. 

(m)  DNSTY2  -  Red  density  reduction  of  environment  for  which  this 
runstream  is  being  generated;  taken  from  SGS  GDNSTY2. 

(2)  The  generated  runstreams  will  be  saved  as  elements  in  H7RUNS. 

The  element  names  have  the  format: 

GO  (FORCE)  E  (COMBAT)  N  (NREPS  first  subfield). 

For  example,  the  SGSs  FORCE  HM80. 

ENVFIRST  01 
ENVLAST  02 
NREPS  3  4 

will  create  additional  SGSs  COMBAT  01  and  COMBAT  02,  and  two  runstream 
elements  will  be  generated, 

H7RUNS.G0HM80E01N3  and 
H7RUNS . G0HM80E02N3 . 

(3)  All  program  absolutes  are  copied  to  a  temporary  file  and  executed 
from  the  temporary  copy  during  the  run. 

(4)  If  the  QA  report  is  to  be  executed,  it  is  done  within  a 
breakpoint  file  which  can  be  printed  later  with  an  OSYM.  This  is  because 
QA  reports  are  very  large.  The  breakpoint  file  can  be  scanned  without 
wasting  printer  time  and  paper.  If  hard  copy  is  needed,  some  or  all  of  the 
report  can  be  printed. 

(5)  The  killer/victim  scoreboard  and  allocation  reports  are  written 
to  a  different  breakpoint  file.  Analysts  often  require  multiple  copies  of 
these  reports.  Writing  the  reports  to  a  breakpoint  file  allows  printing 
several  copies  without  reexecution  of  the  programs.  — 

(6)  The  K/V  results  are  saved  as  elements  in  a  permanent  file.  The 

format  of  the  file  name  and  element  name  is:  (USERID)  KV  (FORCE).  E 

(COMBAT)  R  (repetition  from  NREP) 

(7)  The  ALLOC,  FALLOC,  and  TTLOS  files  from  the  MAIN  module  can  be 
saved,  but  because  they  are  large,  they  generally  are  not.  The  statements 
on  lines  164-166  in  H7AFP .MAINSSG/SKELREP  should  be  changed  from  0 COPY  to 
0COPY  if  those  files  should  be  saved. 
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(8)  The  CXPS  output  files  are  saved  as  elements  in: 

(PREFIX)  .  E  (CXPS)  R  (repetition  from  NREP) 

d.  Runstream  to  Execute  SSG.  Figure  D-9  is  an  example  of  the 
statements  needed  to  execute  the  SSG  skeleton,  H7AFP.MAINSSG/SKELREP,  using 
the  SGS  parameters,  H7AFP.MAINSSG/SGS.  The  statements  can  be  executed 
within  a  breakpoint  because  of  the  length  of  the  output.  Check  for  an  "END 
SSG"  statement  in  the  breakpoint  file  to  make  sure  there  were  no  errors. 

If  there  are  no  errors,  the  breakpoint  file  can  be  deleted.  Make  sure  that 
the  file  H7RUNS.  is  available.  One  of  the  most  possible  errors  that  could 
occur  is,  if  the  generated  runstream  cannot  be  copied  to  H7RUNS. 


1  2A SG.AX  H7RUNS/X YY/XXX. 

2  3PK  1  U 

3  asSG,ABlKE  H7 AF 5 A  IN SS 6 /SHE LREP , H7A F P . m a  in SS C / S 6 S 

4  SRK2  t  E 

5  L  ENO  SSG 

Figure  D-9.  Runstream  to  Execute  SSG 


e.  Generated  Runstreams.  The  generated  runstreams  are  saved  as 
elements  in  H7RUNS.  Two  examples  follow.  Figure  D-10  has  the  SGS 
statements,  skeleton,  and  three  elements  in  H7RUNS  generated  for 
environments  1  through  3,  one  repetition  apiece,  QA  report,  and  three 
copies  of  the  K/V  and  Allocation  reports.  Figure  D- 11  has  SGS  statements, 
skeleton,  and  one  element  in  H7RUNS  generated  for  environment  4,  three 
repetitions,  no  QA  report,  and  one  copy  of  the  K/V  and  allocation  reports. 
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SSG 


SGS  STATEMENTS 


SGS 

R UNI  0  30 
USERID  H 7 

PFILES  *H7AFP  *98AFP 
FORCE  HM80 
F0RCE1CH  H 

ENV  ai  02  03  04  05  06  07 
ENVFIRST  1 
ENVLAST  3 

SUPP  01  06  11  04  01  06  1 
PNAMES  RAPD  STATIC  RADE 
RAPD  STATIC  R AO E 
LIGHT  ODOONNNNO 
BDI V  1113111311 
RDIV  3  14  13  14  13  1 
ALPHA  abcdefghi 
NREPS  1 
KVCOPIES  3 
BASE  *H7BASEDATA 
PKS  H7PKS 
RNGDST  *H7RNGDST 
PREF  *H  7PREF 
CSCSS  *H7CSC$S 
ENGAGE  *H7ENGAGE  RAPD 
PCAS  *H7PCAS  H 
CVALS  *H7GL0BAL  CVALS 
FRACTS  *H7GL0BAL  FRACTS 
G0NSTY1  TTTFTTTF 
GDNSTY2  FFFTFFFT 
TYPLIM  1  6Q  1  60 

SUPERTRP  nlQ  8  5** 
SUPERB  **1  2  3  4  5  6  42 
SUPERP  ”1  2  3  42  44** 

Q  AREP 
QAPKS  0 
RPTPS1  ** 

RPTPS1  f* 

RPTPS1  •• 

RPTPS1  ** 

RPTPS1  ** 

RPTPS1  •• 

RPTPS2  ** 

RPTPS2  ’* 

RPTPS2  ft 
RPTPS2  M 


RPTPS2 
A IR 1  **  1  41 

AIR2  ,f  1  41 

QJTPD  "  83** 

OKTHTR  **  E* * 
OJVIS  1  1 

OJDAY  1  1 

1  2 
t  * 


08  09  10  11  12  13  ! 4  15  16 


1  04  01  06  11  04  01  06  11  Q4 
BAPD  RAPD  STATIC  PAPE  B  A  PD  ; 
BAPD  RAPD  STATi:  PATE  BAPD 
D  0  a  H  H  H  N 
13  1113 
4  13  14  1 
J  K  L  M  H  0  P 


T  T  T  F  T 
F  F  F  T  F 


4  4  f 


T  T  F 
F  F  T 


1  2 

3 

4  5 

6 

7  8 

9 

10 

«  « 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
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21 

22 

23 
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58 
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10 
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45 
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51 
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53 

54 
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56 

57 

58 

59 

60 

* 

OJPOS 
I5F0R 
IRFOR  ** 
ICCH30  ** 
TVALON  TRUE 
SEOF 


1  1  1 
1  1  2 
3  4  1 
200  1  ** 
1000f* 
1*  * 


11122222222 
2221111222  2 
234  12341234 
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SSG 


REVISED  SKELETON 


1  . 
2  . 

3  . 

4  • 

5  . 

6  . 
7. 
8  . 
9  . 

10. 
11  . 
12  . 
13. 
14  . 

15. 

16. 

17. 

18. 
19  . 

2n . 
21  . 
22  . 

23  . 

24  . 

25. 

26. 
27. 
28  . 

29  . 

30  . 

31  . 

32  . 

33  . 

34  . 

35  . 

36  . 

37  . 

38  . 

39. 

40. 
4  1  . 

42  . 

43  . 

44  . 

45. 

46. 

47  . 

48  . 

49  . 
50. 

11: 

53. 

54. 

55  . 

56  . 

57. 

58. 

59  . 

60  • 
61  . 
62  . 
63. 

64  . 

65  . 

66  • 

67  . 

68  . 
69  . 
70. 

71  . 

72  . 

73  . 
74. 

75  . 

76  . 
77. 

78  . 

79  . 

aa. 
81  . 
82  . 


KEL 


♦CREATE  SGS 
♦CREATE  SGS 
♦CREATE  SGS 
♦CREATE  SGS 
♦CREATE  SGS 
♦CREATE  SGS 
♦CREATE  SGS 
♦CREATE  SGS 
♦CREATE  SGS 
♦CREATE  SGS 
♦CREATE  SGS 


COMBAT  CENV,1,TE,l3 
PREFIX  C USERID ,1 *1*1 3C FORCE, 1* 1,13 


INCREMENT  IE  FROM  CENVPI R$T , 1 , 1 f 1 3  TO  CEN VLAST , 1  *  1 f 1  3 

♦CREATE  SGS  :  - " -  —  -  - 

♦CREATE  SGS: 

cxps  cenv,  ifr e;i3 

CSELT  C  F  OR  CE  ,  1 ,  1 , 13EC  SUPPf 1 fIE  ,  1 3 
8  A  SELT  CF0RCjl.l.l3ECENV»l ,IE .13 

PK  SELT  C  PN  AM^i , I , IE  t 1 3-CLlGHT ,  1  , IE , l 3/CF OR CE 1 CH , 1 ,1,13 
RNGELT  C  PN  A  Hr  S  ,  I ,  I E, 1 3-OEE P /C F ORCE 1C H, 1,1, 13 
PR FELT  CPN AMES, 1, IE, 13/t FORCE  1 CH, 1 ,1 ,13 
INVNTR  H7AFP-ILES  IN VC FORCE , 1 ,  1 , 1 3 
NO  TV 1  C  B  D I  V , 1  ,IE  ,13 
N0IV2  CRDIV,!  ,IE  ,13 
DNSTY1  C  GO  NST Y 1 , 1 , IE , 1 3 
DNSTY2  CGDNSrY2,l,lE.13 
♦BRKPT  ,K  GOCFOR CE, 1 , 1, X 3ET COMP AT, 1,1,1 3NCNREPS, 1,1,13 
♦EDIT  ON 

ARUN./TPR  ODCRUNID, 1 ,1, 13C  ALPHA ,1 , IE , 1 3C NRE PS , 1 ,1 ,13, FI 89  9P2277D, L 
SECRET, 600,6300  .  KNOX  f703>  476-4923 

30UAL  UNCLASSIFIED 

♦  ASG  f  A  H7AFPFILES/XXX/XXX. 

«ASG,A  H7RUNS/XXX/XXX. 

♦  INCREMENT  L  TO  C PF ILES  3 

♦INCREMENT  M  TO  CPFTLES,13 
A  A  SG  ,  A  CPFILES#L,M# 13. 

♦LOOP 

♦LOOP 

4H0 G , S  *♦♦*  C FORCE ,1*1,13  ENV  C COM3 A T , 1 , 1 , 1 3  SEEDS  CNREPS.13  ♦♦♦♦ 
ttPRT,S  H7RUNS.G0CF0FCE, 1,1 ,1 3FCC0M8 AT, 1* 1, 1 3NC  NRE  PS , 1  - 1  ,1 3 
A  .  SAVE  THE  PROGRAMS  ’ 

AASG,T  ABS-FILE .,///10000 

ACOPY ,AC  ♦H7AFP  .8 70 PK SG E N „ AF S -F ILE  .870PKSGEN 
ACOPY , AC  *H7aFP . 870PR 0 J GEY ,ABc -FILE .87QPR0J GEN 
ACOPY , AC  ♦H7AFP  .3 70 PREF GE » . A B r -FI L E .870PRE F GEN 
ACOPY , AC  ♦H7AFP  .8  7DRNG0S T* FN . A BS-F ILF .870RNGDSTGE N 
ArOPY, AC  ♦H7AFP .870 MAIN  ,A3 S -FILE. 8 70MA IN 
ACOPY, AC  ♦9gAFP  .8 70 GE NK V , I B S -C ILE .8  70GENK  V 
« COPY, AC  ♦9  8AFP  .870 GE N AL , * B S -F I LE .8  70GENAL 
ACOPY , AC  ♦98AFP.370PRTKV, 8BS-FILE .87QPRTKV 
ACOPY , AC  ♦H 7a  FP  .87DCXPS , A8  S -F TLE . 8 7 OCXP S 
ACOPY ,AC  ♦H7AFP .370REPORT , APS -FILE .870REP0RT 
ACOPY , AC  ♦H7AFP .P A U SE , A BS-F ILF . PA USE 
♦INCREMENT  L  TO  CPFILES3 

♦INCREMENT  M  TO  CPFILES,13 
AFREE  CPFILES,L,M,13. 

♦LOOP 

♦LOOP 

♦  IF  C  COMBAT  3 

A  AS6  ,  T  20 ., // /4000 
A  ASG  ,  T  21  .,///4000 
i AS G  ,  T  22  ., // /4000 
A  ASG  ,T  2  3  •  , // /400  0 
A  ASG , T  24.f///5r00 
A  ASG , T  2  5  ., // /400 D 
A  AS  G  ,  T  26 • , // /4000 
A  AS G  , T  3.i///2000 
A  ASG  , T  4  ., // /200  0 
A  ASG  ,  T  7  . , // /2000 

A  .  UNIT  35  IS  USED  FOR  TEMPORARY  STORAGE 
A  ASG  ,  T  35.,///2000 


AASG,T  3  4  •  , // /25Q00 
A  ASG  , T  9 • ,// /500 

31., ///7000 

32. , ///13000 

33. ,  / //200Q 
TO  1 

I  N  P  U 


FILES 


LOCATE  THE  ELEMENT*  FOP  ENVIRONMENT  DEPENDENT  FILES 


A ASG,  T 
A  ASG  »T 
A  ASG  ,  T 
♦  SET  E 

A  • 

a 

A 
A 

A  ASG  ,  A  CBASE, 1,1, 13.  .  BASEDATA  FILE 

A  ASG *  T  15. 

AED  CBASE  ,1 ,1  ,13.CBASELT ,1,1 .13,15. 

APRT,S  c BASE,  1,1,1 3.C BAS  El T, 1, 1,1 3 
AFREE  CBASE, 1  ,1,1 3. 

AASG.A  CPKS,1  ,1,13/XXX/XXX.  •  PKS 

AASG,T  10. 

AED  r PKS,  I, 1, 1 3. CPK SELT, 1,1,1 3, lQ. 

AFREE  CPK S, 1,1,13. 

A  ASG  *  A  CRMGDST,!, 1,13. 

AASG,T  11. 

AED  CRNGDST ,1  ,1 , 1 3. C RNGELT, 1 , 1,13,11. 
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.  PREFERENCE  FILE 


#FREE  CRN GOST  ,1,1.11. 
ft  ASG , A  CPREF, 1,1, 13. 
ftASG.T  12. 

»ED  tp REF, 1,1 ,13.CPRFELT ,1, 1,13,12. 

•FREE  CP REF. 1,1,13. 
ft  ASG , A  CCSCSS ,1,1 ,13. 
ftASG.T  14. 

ftED  CCSCSS, 1, 1,1 D.CCSELf f 1, 1 ,13,14. 
ft  FREE  CCSCSS, 1,1,13 

ft  ASG , A  CENG AGE, 1,1,13.  .  ENGAGEMENT  FILE 

ftASG.T  13. 

ftED  CEN6AGE, 1 ,1 ,1 3.CENGAGE, 1 ,2, 1 3,13. 

* FR EE  CENGAGE. 1,1,13. 

ft  ASG  ,  A  EPCAS , 1,1,13.  .  PERSONNEL  CASUALTY  FILE 

ftASG.T  16. 

ftED  EPCAS, 1,1 , 13. EPCAS ,1  ,2,13,16. 

•  FREE  EPCAS, 1  ,1,13. 

ft  ASG  ,  A  C  USER 10,1, 1 ,13KVCF0RCE ,1,1,13/XXX/XXX.  .  KV  FILE 

ftERS  2Q. 

flERS  21. 

ftERS  25. 

ftERS  26. 

#XOT  A8S-FILE  .870PREFGEV 
111111 

ftXQT  A8S-FILE .370RNG0STGEN 
111111 

ftXQT  A8S-FILE  .870PKSGEN 
111111 

ftXQT  A8S-FILE  .370PR0JGEV 
111111 

♦INCREMENT  IR  TO  CNREPS.l^ 

♦CREATE  SGSr  PEPS  C NRf f 1 , IR , 1 3 

♦  SET  R  TO  C  REPS ,1,1,13 
ftERS  22. 

ftERS  23. 
ftERS  24. 
ftERS  3. 
ftERS  4. 
ftERS  9. 
ftERS  31. 
ftERS  32. 
ftERS  34. 

#XCT  AB5-FILE.87GMAIN 
111111 
C  ♦R  3 

C0NSTY1  ,1 ,E ,13  CDNSTY2-1  ,E,13 

llllWlbik&y/Ahh'’1'7'11  CTYPLIH,1.3flJ  CTYPLIM, 
ft  SOR  f , ES 
VOLUME  =SM  ALL 

KEYU|3,35,36,0,A :4,35,36,P,As2f35,36,B,A:l, 35 ,36,B, A 

FILE0UT3S0RT33. 

ftEQF 

ft USE  3 3  . i SORT33 • 
ft A$6  *T  SORT?. ,///1000 
ft  SOR  T . ES 
VOLUME-SMALL 

KEYUr3  ,35 ,  3  6  ,B  ,  A  :4 , 35  , 36, P ,A:2,35,36,8 »  A ;1 , 35 ,36, P , A 
F I L  E  IN  . 

FILE0UT-S0RT9. 

ftEOF 

«USE  9., SORT?, 
ft ASG  ,T  SORT  24.,/// 100 3 
ft  SOR  T , E  S 
VOLUME “SMALL 

^YWr3,35  ,3  6,8,A:4,  35,36,9f  A:2,35,36,0,A:1, 35  ,36  ,P,  A 
FILEIN— 24 . 

FlLE0UTrS0RT24. 

ftEOF 

ft  USE  2  4., S0RT24 • 
ftASG.T  SORT  32.,/// 1000 
ft  SOR  T , £  S 
VOLUME -SMALL 

KEYU-3 ,35,36, B, A :4, 35, 36, P , A: 2, 35, 36, B , A :1 , 35 ,36, P, A 
F ILE IN  r 32 . 

F ILE0UT-S0RT32. 
ftEOF 

ft  USE  32  ., S  OPT  32 • 

«  .  SAVE  DIRECT  ACCESS  FILES  ALLOC,  FALLOC,  AND  IT  LOS  IN  ELEMENTS 
ft  A  S  G  ,  A  CPREFIX,!,!, 10/XXX/XXX* 

#  .  COPY,!  3., CPREF  IX,  1  ,1  ,  1 3.AC COMB  A T  ,  1  ,E,1  3?  OP] 
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*  .  COPY, I  4.  tCPREFTX*  1  ,  1  ,13.FCC0M8AT  ,  1  ,£  ,  1  3R  C^R3 
t  .  COPY.I  9.,CPREFIX,  1, 1,13.TCC0MBaT,1  ,e,13RC*R3 
♦IF  C0APEP3 

a DELETE, C  CPREFIX  T 1  *  1 .l^RCCOMBAT ,1 ,  E  ,  13RC*R  3/XXX/XXX. 

«XGT  ABS-FILE. PAUSE 

aCAT  ,P  CPREFIX, 1, 1,] IRC  TOMB  A  T , 1 , E , 1  OR C«R 3/X XX /X XX ., F///2000Q 
a  A  SG , A  CPREFIX,1 ,1,1 3PC TOMB  A T . 1,E . 1 3R C*R 3/X XX /X XX . 
aKEEP  CPREFIX , 1 , 1 , 1 3RrCFM0AT  ,  1 ,E , 1 3RC  *R3. 
aBRKPT  PRINTS /CPREFIX  ,1  ,1  ,13RCC0M9AT  ,  1,E  ,  I3RC*R3 
•  aXQT  ABS-FILE .370REPORT 
CQAPKS, 1,1, 13 
111111 

♦INCREMENT  K  TO  CRPTPSl^ 

♦INCREMENT  L  TO  CRPTPS1,K3 
CRPTPS1 ,K ,Lt 13 
♦LOOP 
♦LOOP 
9999 

♦INCREMENT  K  TO  CRPTPS27 

♦INCREMENT  L  TO  C*PTPC2,K3 
C  RPTPS2 ,K ,L,1 3 
♦LOOP 
♦LOOP 
9999 
ffEOF 

aBRKPT  PRINTS 

»  .  $YH,U  CPREFIX  ,  1, 1  * 17RCC0MBAT , 1 ,E , 1 3RC*R  3* 

♦END 

#OELETE,C  CPREFIX ,1 ,1 , 1 3DCC OMB A T , 1 , E , 1 3RC ♦R 3/ XXX/XX X . 
iXQT  AB5-FILE.PAUSE 

a CAT  ,P  CPRE FIX, 1,1 ,ir*C COMBAT, 1,E,1 IRC ♦Rl/XXX /XXX . ,F/// 20000 
a  A  SG  ,  A  CPREFIX, 1 ,  1  ,  1  33 C  CO "B  AT  . 1  ,E  , 1 3RC ♦R 3/ X XX /XXX. 

#KEEP  CPREFIX, 1 ,1,1 3DC COMBAT, I ,  E , 1 3RC ♦R 3. 

#8RK PT  PRINTS/CPREF IX , 1 , 1 , 1 3DC COMB A T , 1 , E , 1 3PC *R 3 
a XQT  ABS-FILE. 870GENKV 
iXQT  ABS— FILE .8  70 PR  TKV 

KV  SCOPFBOAFD  FOR  C FO* CF , 1 f 1, 1 3  ENV  CC OMB A T,  1  , E, 1 3  SEED  C^R3 

C  SUPER TPp , 1  ,1,1 3 
C  SUPER 8,1,1,13 
CSUPERR, 1,1,13 

a  ADO  ,E  riNVNTR, 1 , 1 , 1 3. C IN VNTR , 1 ,2,13 
8  ADD  ,E  7. 

a ED  7.  .tUSERlD, 1,1,1 3K VTF PRCE , 1 , 1 , 1 3 .EC  COMB A T ,1,E,1 3RC^R3 
a  .  COPY  KV  FILE  FOR  KV  RHLLUP 

8  A  SG ,  T  7.  .  FOLLOWING  PROGRAM  WRITES  TO  UNIT  7 

8XQT  ABS-FILE. 87QGLNAI 
8  .  PRINT  THE  ALLOCATION  PEPORT 

tfXQT  ABS-FILE. 87QPRTKV 

ALLOCATION  REPORT  FOR  C FQPCE, 1 , 1 , 1 3  ENV  CCO Mb  A T , 1 , E  ,  1 3  SEED  C *R 3 
CsUPERTRPtl  ,1  tl  3 

c  Superb  ,1,1 ,13 

CSUPERR  ,1,1  ,13 

a  ADD  ,E  CINVNTR, 1 ,lf 13.CINVNTR ,1,2, 13 
a  AOD  ,E  7. 

♦IF  CCXPS3 

♦  IF  NCT  C  COMB  A T  3 

a A  SG, T  7. , / //2Q00 

8  A SG, A  CB ASE ,1,1,13.  .  BASEDATA  FILE 

aA  SG, T  15. 

tfED  CBASE ,1 , 1,13. C BAS FLT, 1,1,13,15. 

8FREE  CBASE, I, I, 13. 

8ASG,A  CCSCSS,1,1, 13. 

«ASG,T  14. 

»ED  CCSCSS.1,I,13.CCSELT, 1 ,1,13,14. 
iFREE  C  CSCSS ,1,1,13 

8A  SG, A  CPCAS, 1,  1,1 3.  .  PERSONNEL  CASUALTY  FILE 

aA  S G, T  16. 

8ED  CPC AS. 1  ,1,1 3. CPCAS, 1,2, 13, 16. 

*F REE  CPCAS, 1,1, 13. 

8  .  ENO  OF  NOT  C3HBAT  IF 

♦  END 

•  HOG  ♦♦  CFORCE,  1 , T  ,13  CXPS  ENV  CCXPS,1,E,I3  SEED  C  ♦R  3  ♦♦ 

8  .  CREATE  OUTPUT  r  TLE  S  FOR  CXPS 

a  ASG , T  29. 
a  A  SG  ,  T  30. 

8  .  RUN  THE  MERGE  *OPULE 

a  .  RUN  WITH  FILES  DEVELOPED  EARLIER 

a  .  COPY, I  rPREFIX,'?  ,  1 ,  I  3.AC  CXPS  ,  1  VE 1 1  3RC  3, 3. 

#  .  COPY, I  CPREFIX, 1 ,1,13.FCCXPS,1,E,13PC*&3,4. 

8  .  COPY , I  CPREFIX, I , 1, 13. TC CXPS, 1 ,E , 1 3RC^R 3,9. 
aCRS  7. 

#X  QT  ABS-FILF .870 CXPS 
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*.  IMAGE  GIVING  INDICES  IN  CBT  POT  OUTPUT  RECORDS 
♦EDI T  ON 
CICOHBO.l.l.lUC 
COJTPr,!, 1,136 
COKTHTR  ,1,1,1 3S 
COJVIS, 1,IE,13£ 

CO JO AY  v IflE  ,  1  3E 
C0JP0S,1,IE.13C 
CIBFOR, 1,1,13d 
CIRFOR, 1,1,13 

*.  IMAGE  GIVIN6  INOTCES  OF  INPUT  CS/CSS  MODULI 
CTVALON ,1.1,13 

1  1  1  I  1  1 

CN 01 V  1 , 1  ,  E ,  1  3  CNOIlf  2 , 1  ,  E  ,1  3 
C  A  IR  1  ,1 , 1  ,1  3 
C  A  IR  2,1,1  ,13 

•ADO  CCVALS,1,1,I3.CCVALS,1,2,13 
•ADD  CFRACTS.I ,1, 1 3. C FR A CTS , 1 ,2 , 1 3 
«  •  COPY  CXPS  OUTPUT  FOR  INPUTTING  TO  ROLLUP 
•DATA ,L  29. 

•  END 

•  COPY  ,1  2  9. ,C PREFIX, 1 ,1 , 1 3.ECCXPS , 1 ,E  ,13Rt#R3 
•ASG.T  SORTOUT. 

•  SOR  T  f S 
VOLUME-SM  ALL 

KEY=1  ,5,CH,A:67f 13,rH,A 
FILEIN=29 . 

FILEOUT=SORTOUT. 

»ED,R  SORTOUT. 

LNP* 

EXI 

♦  END 

f 8RKPT  PRINTS 

iREM5vECSGSFREPSfl’i:,,?!:C0PBAT,ltE:,i:iRr#P:i*tCKVC0PTESf  lrlf  13 

★LOOP  .IR 

★.  ENO  OF  CXPS  IF 
★.  END  OF  ENVIRONMENT  rF 
★ENO 
•  FIN 

★REMOVE  SGS  COMBAT 
★REMOVE  SGS  PREFIX 
★REMOVE  SGS  CXPS 
★REMOVE  SGS  CSELT 
★REMOVE  SGS  BASELT 
★REMOVE  SGS  PKSELT 
★REMOVE  SGS  RN6ELT 
★REMOVE  SGS  PRFELT 
★REMOVE  SGS  INVNTR 
★REMOVE  SGS  N0IV1 
★REMOVE  SGS  N0IV2 
★REMOVE  SGS  DNS  TY 1 
★REMOVE  SGS  0NSTY2 
★LOOP  .IE 
iEOF 


SSG  STREAM  GENERATION  RUN  LOG  PART  1 

COMBAT  Cl 

PREFIX  H7HM8D 

CXPS  Cl 

CSELT  HM80EC1 

BASELT  HM8QE01 

PKSELT  RAPO-O/H 

RNGELT  rapo-qeep/h 

PRFELT  RAPO/H 

INVNTR  H7AFPFILES  INVHM80 

N0IV1  1 

NO  I  V  2  3 

DNSTY1  T 

DNSTY2  F 

SSG  GENERATED  OUTPUT  STREAM  PART  1 
1.  1  SKEL 

SSG  STREAM  GENERATION  RUN  LOG  PART  1 

REPS  1 

COMBAT  02 

PREFIX  K7HH8q 

CXPS  02 

CSELT  HMS^ECb 

BASELT  HM80EQ2 

PKSELT  STATIC-O/H 

RNGELT  STATIC-CEEP/H 

PRFELT  STATIC/H 

INVNTR  H7AFPFILES  iNVHMgO 

N0IV1  1  ° 

N  0 1  V  2  1 

dnstyi  t 

DNSTY2  F 
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6ENER A  TED  OUTPUT  STREAM  PART  > 


1. 

3RUN  9 /TPR  0030A1, E1S99P72770.SECRET, 600*6300  .  KNi 

2  m 

9QUAL  UNCLASSIFIED 

3* 

3ASG,A  H7AFPFILES/XTX/XXX . 

4* 

at  A  SG  •  A  H7RUNS/XXX/Xf  X* 

5. 

SA  SG  t  A  4H7AFP. 

6. 

3 A  SG  i  A  *98A FP . 

7. 

aHOG.S  9**#  HM80  ENV  01  SEEDS  1  **** 

8  • 

aPRT*S  H7RUNS.G0HM8^FC1NI 

9. 

a  .  SAVE  THE  PROGRAMS 

1C. 

a  A  SG  «  T  ABS-FILE.,///lr'aro 

11. 

dCOPT *AC  ★H7AFP.870®KSGEN,ABS-FILE.87nPKSGEN 

12. 

aCOPT  *AC  4H7AFP.870PR0JCEN, A B S -F ILE . 3 70PR0 J GEN 

13. 

«COPY  * AC  *H7AFP .3 70PREFrEN, A B S -FILE .8  70PREF  GEN 

14. 

3C0PY,AC  ♦H7AFP.S70RNGDrTGEN*A8S-FILE  .37QRN GDST GE W 

15. 

aCOPY,AC  4H7A FP. 870* A IN ,A8S-f ILE. 8 7nM AIN 

16. 

iCOPY  *AC  498AFP.87a^ENH V, ABS-FILE.87QGENKV 

17. 

8C0PY  ,AC  *98AFP.870CEWAL,AB5-FILE  •  870  GEN  A  L 

18. 

iCOPY*AC  *98AFP.870PPTKV* A8S -FILE .870 PRTKV 

19. 

aCOPY  tAC  4H7AFP.370CXPS .ABS-FILE .870CXPS 
iCOPY  , AC  *H7AFP.8  70?EP0PT  * A BS -FILE . 8 70REPOR T 

20. 

21. 

iCOPY  «AC  4H7AFP.P AUSE * APS -FILE .PAUSE 

22. 

3FREE  *H7AFp. 

23. 

3FREE  49SAFP. 

24. 

a ASG  ,T  20  .  *// / 400  0 

25. 

3 ASG ,T  21  •  *///4QQ0 

26. 

3ASG,T  22. ,✓✓✓4000 

27. 

3 A  SG  ,  T  23. *✓✓✓4000 

28. 

a A  SG , T  24 • *✓/ /5  00  0 

29. 

3 ASG , T  25 . ,✓/ ✓HDQO 

30. 

iASG  *  T  26. ,✓✓✓4000 

31  . 

8  A  SG , T  3. ,✓✓✓2000 

32. 

a  A  SG , T  4.,///70Q0 

33. 

a ASG , T  7  •  ,/✓ ✓2000 

34. 

a  .  UNIT  35  IS  USED  F^r  TFHPORARY  STORAGE 

35. 

i A  SG , T  35.,/^/2000 

36. 

a A  SG , T  34  ..✓✓/2500Q 

37. 

a  A  SG  ,  T  9  .  t  ✓✓  /5  DO 

38. 

8ASG  ,T  31., ✓ /✓ 7000 

39. 

aASG,T  32.,/^/13COO 

4Q. 

aASG  ,T  33. ,✓✓✓2000 

41. 

a.  input  files 

42. 

a  • 

43. 

a  .  LOCATE  THE  ELEMENTS  FOR  ENVIRONMENT  DE  PETTOEN  T 

44  . 

a  . 

45. 

3ASG  ,  A  *H7BASED AT  A •  .  BASEDATA  FILE 

46. 

a  A  SG  ,  T  15. 

47. 

aED  *H7BASE0ATA.HM8nEri ,15. 

48. 

3PRT,S  4H7BASEDAT A.WMBOEOl 

49. 

3FREE  ♦H7BASED ATA • 

50. 

aASG,A  H7PKS/XXX/XXX .  .  PKS 

51. 

a A  SG , T  10. 

aEO  H7PKS.RAP0-0/H,!  o. 

52. 

5T. 

SFRE E  H7PKS. 

54  . 

a A  SG  ,  A  *H  7RNG0ST •  .  RANGE  DISTRIBUTION 

55. 

a A  SG , T  11. 

56. 

«ED  4H7RNGDST .  R A P D-9EEP /H ,1 1 • 

57. 

3FREE  4H7RNGDST. 

58. 

a A  SG  ,  A  *H7PR£F .  .  PREFERENCE  FILE 

59. 

8ASG  7  T  12. 

6C  * 

aED  4H7PREF.RAPD7HfI  2. 

61. 

3FREE  4H7PREF. 

62. 

a  A  SG  7 A  4H7CSCSS. 

63. 

3ASG,T  14. 

64. 

aEO  4H7CSCSS .HM80E0I  ,14. 

&5. 

3FREE  4H7CSCSS 

66. 

a A  SG , A  *H  7ENG  AGE •  .  ENGAGEMENT  FILE 

67. 

9 ASG |T  13. 

68. 

3E0  *H7ENGAGE .RAPOTI  3. 

69. 

3FREE  *H7ENGA6E. 

70. 

a A  SG  7 A  4H7PCAS.  .  PERSONNEL  CASUALTY  FILE 

71. 

a ASG  7  T  16. 

72. 

aED  4H7PCAS .H ,16. 

73. 

aFREE  4H7PCAS. 

74. 

a A  SG  7  A  H7KVHM 80 /X XX ✓ XXX  .  .  KV  FILE 

75. 

aERS  20. 

76. 

aERS  21. 

77. 

aERS  25. 

78. 

aERS  26. 

79. 

ax  QT  ABS-FILE .87QPREFGEN 

80. 

1 

111111 

81. 

aXQT  A8S-FILE  .87QRNG0S  Tf"EN 

82. 

1 

111111 

KNOX  1 703  J  476-4923 
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83. 

ax  QT 

ABS 

84. 

1 

1  1 

1  1 

85. 

aXQT 

ABS 

3  6. 

1 

1  1 

1  1 

87. 

SERS 

22. 

88. 

aERS 

23. 

89. 

aERS 

24. 

90. 

SERS 

3. 

91. 

aERS 

4. 

92. 

SERS 

9. 

93. 

3ERS 

31. 

94. 

aERS 

32. 

95. 

aERS 

34. 

96. 

ax  QT 

ABS 

97. 

1 

1  1 

1  1 

98. 

2 

1 

99. 

3 

T  F 

IOC. 

4 

1  60 

1 

1  1 
-FILE 
1  1 


101. 

102. 

103. 

Iu4. 

105. 

106. 
1Q7. 
108. 
1QQ. 
1  10. 
111. 
112. 
1  13. 
1  14. 
115. 
1  16. 
1  17. 
1  18. 
119. 
1  20. 
121. 
122. 

123. 

124. 

125. 

126. 

127. 

128. 
129. 
1  30. 
131. 
1  32. 
1  33. 
1  34. 
1  35. 
1  36. 
1  37. 
138. 
1  39. 
1  40. 

141. 

142. 

143. 

144. 

145. 

146. 
1  47. 
1  48. 

149. 

150. 

151. 

152. 
1  53. 
1  54. 

155. 

156. 

157. 

158. 
15°. 
1  60. 
161. 
162. 
163. 
1  64  . 


1  1 


60 


i  A  SG  ,  T  SORT33.,///1"OC 
aSORT  ,£S 
V0LUHE=SMALL 

KE  YU  =  3,3  5, 36, 8,  A  :  4,15*36,8,  A  :  2, 35, 36,8,  A:lt  35,36,  f>,  A 

FILE0UT=S0RT33. 

3E  OF 

3USE  33 • , SORT  3  3 . 

3ASG ,T  S0RT9. ,///lC3D 
SSORT  ,ES 
V0LUME  =  SM  ALL 

KEYW  =  3,35  ,36, B,A: 4, 75,36,0, 4:2,35,36, 8,A: I,  35, 36, B, A 
F ILE I N=9 • 

F ILE  OUT  =  S  0RT9 . 

3EQF 

aUSE  9. ,S0RT9. 

3ASG.T  S0RT24 .,///l?on 

5S0RT,ES 

VOLUME=SH  ALL 

KEYU  =  3, 35,36,6, A : 4 ,35, 36 *B, A :2,35,36 ,B  ,A : 1 ,  35,36,0,4 
F I LE I N=2 4  . 

FILE0UT=S0RT24. 

3E0F 

8USE  24 • , SOR  T  24 • 

a A  $6  ,  T  S0RT32 .,///ln00 

SSORTjES 

volume=small 

KEYW=3,35 ,36,B,A:4,35,36,B,A :2, 35, 36, 8, A :1, 35,36,0, A 
FILEXN— 32  . 

FILE0UT=S  0RT32 • 

5E  OF 

aUSE  32  •*  SORT  32 • 

a  .  SAVE  DIRECT  ACCESS  FILES  ALLOC,  F ALLOC  ,  AND  TTLOS  IN  ELEMENTS 

a A  SG  * A  H7HM80/XXX/XXX. 

a  .  COPY,  I  3.  ,  H7HM8  n •  A  0  !  R  1 

a  •  COPY , I  4. fH7HM8r  .FQ  !R  1 

a  .  COPY, I  9  *  ,  H  7H  MB'!'  •  T  0  I  R  1 

aDELE  TE  % C  H7HM80R0131/XYX/XXX. 

aXQT  ABS-FILE .PAUSE 

aCATfP  H7HH80 RO 1R 1/XXX/YXX. ,F///2000Q 
3 A  SG  *  A  H7HM80R01R 1/XXX/XXX. 

3k EE  P  H7HM80R01P1- 
aBRKPT  PR  INTS/H7HM83P01P1 
aXQT  ABS-EILE .870RE*0PT 
0 


2 

1  1  I 

1 

1  1 

3 

1  2  3 

4 

5  6 

7 

8  9 

1  0 

4 

11  12 

13 

14 

15 

16 

Y  7 

18 

19 

20 

5 

21  22 

23 

24 

25 

26 

27 

2* 

29 

30 

6 

31  32 

33 

34 

35 

36 

57 

38 

39 

40 

7 

41  42 

43 

44 

45 

46 

1  7 

4  P 

49 

50 

8 

51  52 

53 

54 

55 

56 

*7 

58 

59 

60 

9 

9999 

1C 

1  2  3 

4 

5  6 

7 

8  9 

TO 

11 

11  12 

13 

14 

15 

16 

17 

1* 

19 

20 

12 

21  22 

23 

24 

25 

26 

27 

28 

29 

30 

13 

31  32 

33 

34 

35 

36 

77 

38 

39 

40 

14 

41  42 

43 

44 

45 

46 

17 

48 

49 

50 

15 

51  52 

53 

54 

55 

56 

F7 

5P 

59 

60 

16 

9999 

3E  OF 

SBRKPT 

PRINT? 

a  .  SYM,U  H7HM80R  0 1 7 1 • 
3DELETE»C  H7HH80D01d 1/XTX/XXX • 
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1  65. 
166. 

167. 

168. 

169. 

170. 

171. 

172. 
1  73. 
1  74. 
175. 
1  76. 

177. 

178. 

179. 
130. 
181. 
182. 
183. 
134. 
185. 
1  86. 
137. 
188. 

189. 

190. 

191. 

192. 

193. 
1  94. 
195. 

1  96. 

197. 

198. 

199. 

200. 
201  . 
202. 

203. 

204. 

205. 

206. 

207. 

208. 

209. 

210. 

2  11. 
212. 

213. 

214. 

215. 

216. 

217. 

218. 

219. 

220. 
221. 
222. 

223. 

224. 


»X QT  ABS-FILE -PAUSE 

SCAT  fP  H7HM80D01R 1/XXX/XXX.  ,F///20G00 
3ASG.A  H7HM8 0 DO 1R1/XXX/XXX. 
a KEEP  H7HH80001R1. 

3BRKPT  PRINTS /H7HH8 3 DO i P 1 
aXQT  ABS-FILE .37QGENKV 
aXQT  ABS-FILE .87QPRTKV 

1  KV  SCFREBOARD  FOR  Hw80  ENV  Q1  SEED  1 

2  10  8  5 

3  123456  42  44 

4  1  2  3  42  44 

3AD0  »E  H7AFPFILES.IN VHM8Q 
a A DD  .E  7. 

3ED  7 • » H 7 K VH H8Q.E01? 1 
3  .  COPY  KV  FILE  FO*  KV  ROLLUP 

3A  SG  v  T  7.  .  FOLLOWING  PROGRAM  WRITES  TO  UNIT  7 

3X  QT  ABS-FILE .87DGEVAL 
3  .  PRINT  THE  ALLOC* TION  REPORT 
iXQT  ABS-FILE. 870PRTKV 

1  ALLOCATION  REPORT  FOR  H^g Q  ENV  01  SEED  1 

2  10  8  5 

3  1  2  3  4  5  6  42  44 

4  1  2  3  42  44 

aAODfE  H7AFPFILES .IN VHMPO 
a A  DD  t  E  7. 

3H0G  **  HM8D  CxPS  ENV  01  SEED  1  ** 
a  .  CREATE  OUTPUT  FILES  FOR  CXPS 
3ASGfT  29. 
aASG  *  T  30. 

3  .  RUN  THE  MERGE  “OOULE 
3  .  RUN  WITH  FILES  DEVELOPED  EARLIER 
a  .  COPY  r I  H7HM8Q  .A01R1 »3. 

3  .  COPY, I  M7HM80  .F01R1 .4 . 

3  .  COPY  ,  I  H7HM8C.TrMRl  ,9. 
aERS  7. 

ax  QT  ABS-FILE .870CXPS 

1  1  80  £  1  1  1  2C0T  1000 

2  TRUE 

3  l  1  1  I  1  1 

4  1  3 

5  1  41 

6  1  41 

3 ADD  *H7GL0PAL.CVAL* 
a ADD  ♦H7GL0BAL .FR ACTS 

3  .  COPY  CXPS  OUTPUT  FOR  INPUTTING  TO  ROLLUP 
3D  AT  A  ,L  29. 

3END 

aC0PY,I  29. ,H7HM8  Q.r 01 R I 
a A  SG , T  SORTOUT. 

asoRT,s 

1  VO  LUMF-SH  ALL 

2  KEYrl ,5.CHf Ar67,lQfCH,A 

3  FlLEIN=f9. 

4  FILE  OUT “SORTOUT . 

3ED.R  SORTOUT. 

1  LNP? 

2  EXI 

3BRKPT  PRINTS 

3SYM,U  H7HM80D01R 1.,  3 

3FIN 


SSG  STREAM  GENERATION  RUN  LOG  PART  I 

REPS  1 

COMBAT  03 

PREFIX  H7HM8Q 

CXPS  ^3 

CSELT  HM80E11 

BASEL!  HH80EQ3 

PKSELT  RAOE-O/H 

RNGELT  RADE-OEEP/H 

PPFELT  RADE/H 

INVNTP  H7AFPFILES  INVHM80 

NOI V  1  1 

NDIV2  4 

DNSTY1  T 

DNSTY2  F 
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1. 

2. 

3. 

4. 

5. 
6  • 

7. 

8. 
9. 

10* 

II* 

12. 

13. 

14. 

15. 

16. 

17. 

18. 
19. 
20* 
21. 
22. 

23. 

24. 

25. 

26. 

27. 

28. 

29. 

30. 

31. 


. 

34. 

35. 

36. 

37. 

38. 

39. 

40. 

41. 

42. 

43. 

44. 

45. 

46. 

47. 

48. 

49. 

50. 

51. 

52. 

53. 

54. 

55. 

56. 

57. 

58. 
5°. 
oO. 
61. 
62. 

63. 

64. 

65. 

66. 

67. 

68. 

69. 

70. 

71. 

72. 

73. 

74. 

75. 

76. 

77. 

78. 

79. 
30. 
81. 
82. 


1 

1 


dRUN  t /TPR  0030B1 1  El*  9 9P 72770  » SECRET  *  600*6  300  .  KNOX  17031  476-4923 

SQUAL  UNCLASSIFIED 
3 ASG  f A  H7AFPFILFS/XXX/XXX. 

3  A  SG  »  A  H7RUNS/XXX/X**. 

9 ASG  «  A  *H7AFP. 

3  A  SG  » A  *98AFP. 

aHOGfS  ****  HM80  ENV  02  SEEDS  1  **** 

3PRT*S  H7RUNS .GOHM8nF02Nl 
a  .  SAVE  THE  PROGRAMS 

aASG  »  T  A8S-FILE .»///lP0OQ 

3C0PY  fAC  *H7AFP.3  70{,KSGFN,ABS-FILE.8  70PKSGEN 
acOPY  fAC  *H7AFP.370PR0JGENf AB S-FILE . 8 70PR OJ GEN 
acOPY  fAC  *H7AFP . 8  70  =>REF  ^EN ,  A B S -FIL E  .  8  70PR EF  GE N 
3 COPY, AC  *H7AFP.8  7QRKGDSTGEMf A0S-FILE .870PNGDST GE N 
3C0PY  , AC  *H7AFP .8 70* AIN , ABS -F TLE . 870 M AIN 
iCOPY  ,AC  *98 AFP. 870*ENKV,AB S-FILE. 67QGENKV 
aCOPY,  AC  *98AFP.870GFNAL,ABS-FILE.870GENAL 
aCOPY  fAC  *98AFP.870RRTKVf  ABS -FILE  .870PRTKV 
aCOPY  , AC  *H7AFP.8  7C"‘XPS  , ABS— FILE  •  8 700 X PS 
acOPY  tAC  *H7AFP.8  70REP0RT  »AB  S~FILE .8  7CREP0R  T 
aCOPY fAC  »H7AFP.P AU'E ,APS-FILE.PaUS£ 
aFREE  *H7 AFP • 

9FREE  *98  AFP . 
a A  SG  f  T  20  •  » // /40Q0 
a A  SG  ,  T  21  .  f // /400  0 
a ASG  f  T  22  •  t // / 400  0 
a  A  SG  t  T  23  •  , ///40Q0 
SASG.T  24  •  »// /50Q0 
a  AS6  t  T  25  *  f // / 40Q  0 
8  ASG  *  T  26.f///4000 
a A  SG , T  3  •  ,// /200  0 
a a  sg , t  4.f///2oaa 
a A  SG , T  7.,///2000 

a  .  UNIT  35  IS  USr D  FOR  TEMPORARY  STORAGE 

3 ASG  f  T  35  •  f // /2CD0 

a A  SG  »  T  34  *f// /2  5QQ0 

8ASG  t  T  9.f///500 

3  ASG  »  T  3  1. ,///7Q00 

3ASG , T  32.,/// 13000 

3A  SG , T  33. f///2000 

a.  INPJT  FILES 

3  l  LOCATE  THE  ELEMENT*  FOP  ENVIRONMENT  DEPENDENT  FILES 

a  . 

a ASG  » A  *H  7BA  SED A  T  A •  .  BASEDATA  FILE 

iASGfT  15. 

aED  *H7BASEDATA .HM8DE02 , 15. 
aPRTfS  *H  7BAS  ED AT  A.HM80FQ2 
aFREE  *H7BASED ATA  • 
a A  SG  ,  A  H7PKS/XXX/XX* .  .  PHS 

3 A  SG  T  T  10. 

3ED  H7PKS .STATIC-0/* , IQ. 
aFREE  H7PKS. 

3 A  SG  ,  A  *H  7RN6  DST .  .  RANGE  DISTRIBUTION 

3ASG  tT  11  . 

3ED  *H7RNG0ST .STATID-DEFP/H, 11. 

3FREE  *H7  PNGD  ST • 

5 A  SG  t  A  *H7PPEF.  .  PREFERENCE  FILE 

3 A  SG , T  12 . 

3ED  *H7PREF.STATIC/W,12. 

3FREE  *H7 PREF . 

3 A  SG  ,  A  *H  7CSC  SS . 

3  A  SG  f  T  14. 

3ED  *H7CSCSS.HM8QE05 , 14 . 

3FREE  *H7 CSCS  S 

a A  SG  ,  A  *H7ENG AGE •  •  ENGAGEMENT  FILE 

3  A  SG  ?  T  13. 

3E D  *H7ENGAGE .RAPOf T 3. 
aFREE  *H7ENGAGE. 

3 A  SG  f  A  *H  7PC A  S .  .  PERSONNEL  CASUALTY  FILE 

3 ASG  f  T  16. 

3ED  *H7PCAS.Hf 16. 

3FREE  *H7PCAS. 

3 A  SG  ,  A  H7KVHM80/XXX/XXX .  .  KV  FILE 

3ERS  20. 

5ERS  21. 

9ERS  25. 

5ERS  26. 

ax  QT  ABS-FILE .87QPRrFGEN 
111111 

3XQT  ABS-FILE .870RN30STFEN 
I  1  1  1  1  1 
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83* 

3XQT  ABS-FILE.37QPKSGEN 

34. 

1 

111111 

35. 

3X  QT  ABS— FILE .87QPR3 JGEN 

36. 

1 

111111 

87. 

3  ERS  22. 

38. 

aERS  23. 

39. 

SERS  24. 

9C. 

SERS  3. 

91. 

5ERS  4. 

92. 

3ERS  9. 

93. 

aERS  31. 

94. 

3ERS  32. 

95. 

aERS  34. 

96. 

aXQT  ABS-FILE.870MATN 

97. 

1 

111111 

98. 

2 

1 

99. 

3 

T  F 

100. 

4 

1  60  1  60 

101. 

102. 

aAS6,T  SORT33..///1DDC 
asoRT  ,es 

1Q3. 

1 

VOLUME-SMALL 

1  04  . 

2 

KEYW-3T35 .36,8 ,  A ; 4, 35 ,3* . 3t A :2 

105. 

3 

FI LE IN-33  . 

1  06  . 

4 

FI LEOUT -S0RT3  3 . 

1J7. 

3E0F 

1Q8. 

109. 

1  ID. 

111. 

1 

iUSE  33 • , SORT  33 . 
aASG.T  S0RT9. t///lQ"0 
aSORT.ES 

VO  LUMt-SM  ALL 

112. 

2 

KEYWrTt35,36*B*As*,*5t36f B,As2 

1  13. 

3 

FILE I N-9 • 

114. 

4 

FI LEOUT -S0RT9 . 

1  15. 

aEOF 

1  16. 

auSE  9. ,S  0RT9 . 

117. 

aASG.T  SQRT24 •*// /l^OO 

1  18. 

SSORT  ,ES 

1  19  . 

1 

VOLUME-SM  ALL 

120. 

2 

KEYUr3t35  t36fB,A-4t *5,3*, B,A ;2 

121. 

3 

FILEIN-24 • 

1  22. 

4 

FILE0UT-S0RT24. 

123. 

aEOF 

1  24. 

auSE  24  •  . S0RT24 • 

125. 

126. 

aASG.T  SOPT32  .,///l"On 
asoRT  fES 

127. 

1 

VOLUME-SMALL 

128. 

2 

KEYU=3f35.36.BfA:4t’5.36.3t A :2 

129. 

3 

F I LE IN- 32  . 

1  30. 

4 

FI LEOUT-S  0RT32 • 

131. 

SE  OF 

1  32. 

auSE  32 • . SORT  32 . 

133. 

a  .  SAVE  DIRECT  ACCESS  FILES  1 

1  34. 

1  35. 

a A $G  * A  H7HM80/XXX/Xrx. 
a  .  COPY, I  3. .H7HM80 .AO^Rl 

1  36. 

a  .  COPY  T I  4. .H7HM82 .FO^Rl 

1  37. 

3  .  COPY  t I  9.  ,H7HM80 .T07R1 

1  38  * 

1  39. 

aDELETE.C  H7HM80R024 1/XXX/XXX  . 
ax  QT  ABS-FILE .PAUSE 

140. 

2CATfP  H7HM80RQ2R 1/XXX/XXX. ,F/, 

141. 

a A  SG . A  H7HM80R  02R 1/YXX/XXX. 

1  42. 

aKEEP  H7HM80R02R1 . 

143. 

aBRKPT  PR INTS/H7HM8CP02R1 

144. 

3X QT  ABS-FILE .870RE°0PT 

145. 

1 

0 

1  46. 

2 

1  1  I  1  1  I 

1  47. 

3 

123456789  !C 

148. 

4 

11  12  13  14  15  16  17  18  19  20 

149. 

5 

21  22  23  24  25  26  ?7  2P  29  30 

1  5D. 

6 

31  32  33  34  35  36  T7  3P  39  40 

151. 

7 

41  42  43  44  45  46  47  48  49  50 

1  52. 

8 

51  52  53  54  55  56  57  58  59  60 

153. 

9 

9999 

1  54. 

10 

12  34  5678  9*0 

155. 

11 

11  12  13  14  15  16  17  1*  19  20 

156. 

12 

21  22  23  24  25  26  ?7  28  29  30 

157. 

13 

31  32  33  34  35  36  37  38  39  40 

158. 

14 

41  42  43  44  45  46  47  48  49  50 

1  59. 

15 

51  52  53  54  55  56  *7  58  59  60 

160. 

16 

9999 

161. 

a  E  OF 

162. 

aBRKPT  PRINTS 

163. 

a  .  SYM.U  H7HH80R  0241. 

164. 

oiOELETE.C  H7HM8QD02?  1/XXX/XXX. 

SSG 


generated  output  STREAM 


PART  ) 
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165. 
1  66  • 
167. 
16£. 

169. 

170. 

171. 

172. 

173. 

174. 

175. 
1  76. 
1  77. 
17P. 
179. 
160. 
131. 
182. 
163. 
184. 
135. 
186. 
167. 
1  68. 
139. 

190. 

191. 

192. 

1  93. 

194. 

195. 

196. 

197. 
196. 

199. 

200. 
201. 
202. 

203. 

204. 

2  j5  • 
206. 
207. 
2  j8. 

209. 

210. 
211. 
212. 
213. 
2  14. 
2  15. 
2  16. 
2  17. 
2  18. 

219. 

220. 
221  . 
222. 
227. 
224  . 


aXQT  ABS-FILE .PAUSE 

SCAT  f P  H7HM8  0D02R 1/* XX /XXX. , F/// 20000 
SASG.A  H7HM80D02R 1/tXX/XXX. 

2KEE?  H7HM80002R1  . 

3BRKPT  PRINTS/H7HM80DO2R1 
aXQT  ABS-FILE .870GEVKV 
aXQT  ABS-FILE .870PRTKV 

1  KV  SCOREBOARD  FOR  HM80  ENV  02  SEED  1 

2  10  8  5 

3  123456  42  44 

4  1  2  3  42  44 

3ADD  tE  H7AFPFILES .IVVHMPO 
a  A 00  *E  7. 

aED  7  .f H7KVHM80.E027 1 
a  .  COPT  KV  FILE  FO*  KV  ROLLUP 

a A  SG  ,  T  7.  .  FOLLOWINF  PROGRAM  WRITES  TO  UNIT  7 

ax  QT  ABS-FILE .87QGEVAL 
a  .  PRINT  THE  ALLOCATION  REPORT 
aX0T  ABS-FILE .870  PRT  KV 

1  ALLOCATION  REPORT  FOR  HM80  ENV  02  SEED  1 

2  10  8  5 

3  123456  42  44 

4  1  2  3  42  44 

a AQD  f E  H7AFPFILES.IN VHM 8  0 
SAOO.E  7. 

aHOG  **  HM80  CXPS  ENV  02  SEED  1  ** 
a  .  CREATE  OUTPUT  FILES  FOR  CXPS 
a  AS6  r  T  29. 
aAS6,T  30. 

a  •  RUN  THE  MEPGE  MOOULE 
3  .  RUN  WITH  FILES  DEVELOPED  EARLIER 
a  .  COPY  *  I  H7HM8Q.A02R1 f3. 

3  •  C OP Y  » I  H7HM8Q  .F02P1  , 4  . 

3  .  COPY  f I  H7HM80.T"2P1 ,9. 

SERS  7. 

ax  QT  ABS-FILE. 870CXPS 

1  1  80  E  1  1  2  2001  1000 

2  TRUE 

3  111111 

4  11 

5  1  41 

6  1  41 

iADD  *H7GL0BAL.CVALS 
6 ADD  *H7GL0BAL.FR ACrS 

a  .  COPY  CXPS  OUTPUT  FOR  INPUTTING  TO  ROLLUP 

ao  AT  A  iL  29. 

aEND 

aCOPY.I  29. ,H7HM80.E02R 1 
« ASG  |f  SOFTCUT  . 

3S0RT  tS 

1  VO LUME-SM  ALL 

2  KEY-1 »5*CHfAr67fl 0  f  OH  ,  A 

3  FILE  IN-29 • T 

4  FILEOUT=SORTOUT. 
aED.R  SORTOUT. 

1  LNP ! 

2  EXI 

3BRKPT  PRINTS 

aSYMfU  H7HM80D02R 1  •  »  3 

aFiN 
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1* 

2. 

3. 

4. 

5. 

6. 

7. 

8. 
9. 

ID. 

n. 

12. 

13. 

14. 

15. 

16. 

17. 

18. 

19. 

20. 
21. 
22. 
23. 
2*  • 

25. 

26. 

27. 

28. 

29. 
3D. 

31. 

32. 

33. 

34. 

35. 

36. 

37. 

38. 

39. 
4C. 

41. 

42. 

43. 

44. 

45. 

46. 

47. 

48. 

49. 

50. 

51. 

52. 

53. 

54. 

55. 

56. 

57. 

58. 

59. 

60. 
61. 
62. 

63. 

64. 

65. 

66. 
67. 
68  . 
69. 
7C. 

71. 

72. 

73. 

74. 

75. 

76. 

77. 

78. 

79. 

30. 

31. 
82. 


3RUN./TPR  D030C1 , E 1  * 99P22770 , SECRE T , 600 ,6 3D 0  .  KNOX  (?03>  476-4923 

aCUAL  UNCLASSIFIED 
3 A  SG .A  H7AFPF ILFS /XXX /XXX • 

3ASG,A  H7RUNS/XXX/XXX. 
a  A  5G  ,  A  *H7AFP. 

9 A  SG  9  A  *98AFP. 

SMOG  » S  ****  HM8C  ENV  03  SEEDS  1  **** 
aPRT,S  47RUNS.G0HM85E03N1 
5  .  SAVE  THE  PROGRAMS 
SASG,T  ABS-FILE., ///TOOTO 

3C0PY  ,AC  «H7AFP.8  70PKSGFNtABS-FILE.S70PKSGEN 
aCOPY  f AC  *H7AFP .8 70* PC JOEN, ABS-FILE . 8 70PR0 J GEN 

3  COPY  t  A  C  *H7AFP.8  70*R5FOENtABS— FILE.  87Q£*REF  GEN 

3C0PY  *AC  *H7 AFP. 870* NEDS TGEN, ABS-FILE  .87QRN GDST GE  N 

aCOPY,  AC  *H7AFP.8  70PAIN , ABS-FILE .8  70M AIN 

3 COPY  .AC  *9 8 A FP. 870SENKV, ABS-FILE .870 6ENKV 

aCOPY.AC  *98AFP.8705ENAl , AB S-FILE . 87QGEN At 

aCOPY  ,AC  *98AFP.8  7DPRTKVf ABS-FILE. 870 PRTKV 

aCOPY  rAC  *tmFp  .870CXPS  f  ABS-FILE. 870 CXPS 

aCOPY  ,AC  *H7A FP. a 70*rpo&T  .ABS-FILE .8 70REPOR  T 

aCOPY  ,AC  *H7AFP.PAUS£  * a p s -f ile .pause 

aFREE  *H7AFR. 

aFREE  *98  AFP  * 

a ASG  y  T  20  •  ,// /4000 

« A SG ,T  21 • ,// /4 00 0 

3 A  SG  y  T  22 ..///40G0 

a  A  SG ,T  2  3 • y / / /4P00 

3 A  S6  y  T  24.,///5000 

aASG  .  T  2S.y///4000 

aASG.T  26.,///400a 

3ASG,T  3  •  » // /2  000 

3ASG  y  T  4.,///2Q00 

aASG.T  7 • y ✓// 2000 

a  .  UNIT  35  IS  USrD  FOR  TEMPORARY  STORAGE 

a asg y r  35.,///2roa 

a A  SG  y  T  34  • . // / 250  00 

aASG  y  T  9  •  . // / 50Q 

aAS6  y T  31.  ,///7a00 

aASG  yT  32  •  »/// 130D0 

aASG.T  33..///2QC0 

a.  INPCTT  FILES 

a  • 

a  .  LOCATE  THE  ELEMENTS  FOR  ENVIRONMENT  DEPENDENT  FILES 

aASG, A  *H7BASE0 AT  A •  .  BASEDATA  FILE 

aASG.T  15. 

aED  *H7BASEDATA»HM8r,F03.15. 
aPRT.S  *H7BASEDATA.HM80r03 
aFREE  *H7B ASEDATA  • 

3 A  SG  .  A  H7PKS/XXX/XXT.  .  PKS 

a ASG , T  10. 

aED  H7PKS .RAOE-D/H.l o. 
aFREE  H7PKS. 

aASG, A  *H  7RNG  DST .  .  RANGE  DISTRIBUTION 

3E0  *H7RNG0ST .RA0E-*EFP/H,11 . 

3FREE  *H7RNGDST. 

aASG, A  *H7PPEF.  .  PREFERENCE  FILE 

aASG.T  12. 

aED  *H7PREF.RADE/H,12. 
aFREE  *H7PREF. 
aASG, A  *H  7CSC  SS  • 
a  A  SG  ,  T  14. 

3ED  *H7CSCSS.HH8QE1! ,14 . 

3FREE  *H7 CSCS  S 

aASG, A  *H7ENG AGE •  .  ENGAGEMENT  FILE 

aASG.T  13. 

3ED  *H7EN6AGE .RAPDyl 3. 

3 FREE  *H7ENG AGE . 

aASG,  A  *H7PCAS.  .  PERSONNEL  CASUALTY  FILE 

aASGyT  16. 

aED  *H7PCAS.H y 16. 

aFREE  *H7 PC A S . 

«ASG  ,4  H7KVHM80/XXX/XXX  •  .  KV  FILE 

aERS  20. 

aERS  21. 

aERS  25. 

aERS  26. 

aXQT  ABS-FILE .87QPRrFGEN 
1  111111 

ax  QT  ABS-FILE .8  7QRNrDSTrEN 
1  111111 
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83. 

axQT 

ABS-FILE  *870  PKS GEN 

84. 

1 

1  1 

1111 

95. 

ax  st 

ABS-FILE .870PR3 JGEF 

36. 

1 

i  l 

1111 

87. 

3ERS 

22. 

38. 

3ERS 

23. 

89. 

3ERS 

24. 

90* 

3ERS 

3. 

91* 

3ERS 

4. 

92. 

3ERS 

9. 

93. 

3ERS 

31. 

94. 

3ERS 

32. 

95. 

aERS 

34. 

96. 

axQT 

ABS-FILE .87QMAIN 

97. 

1 

1  1 

1111 

98. 

2 

1 

99. 

3 

T  F 

1Q0. 

4 

1  60 

1  60 

101. 

a  ASG  • 
3S0RT 

T  SORT33..///1300 

102. 

*ES 

1  J3. 

1 

VOLUMErSMALL 

104. 

KE  YU  r 

3,35,36,B,A:4,T5,3ft 

1  05. 

3 

FILEIN=33. 

1Q6. 

4 

FILE0UT-S0RT33. 

107. 

3E  OF 

1  18. 

ausE 

33. tS0RT33. 

109. 

a  A  SG  • 

T  S0RT9. */// 1030 

1  10. 

111. 

1 

aSORt  ,ES 

VOLUMF=SM ALL 

112. 

2 

KEYW  = 

3,35,36,B,A:4,»S,3S 

1  13. 

3 

FILEI 

»!=9. 

1  14. 

4 

F I LE  0UT-S0RT9 • 

115. 

OEOF 

1  16. 

ausE 

9. • S  0RT9  • 

1  17. 

OASGt 

T  SORT24.t///1300 

11*. 

aSORT 

,ES 

1  19. 

1 

VOLUMERSMALL 

1  20. 

2 

keywr 

3t  35  .36.3. A :4,35.36 

121. 

3 

FILE  IN-24  • 

1  22. 

4 

FILE0UTRSORT24. 

123. 

3E0F 

124. 

suse 

24 • t  S0RT24 • 

125. 

126. 

3ASG  , 
3S0RT 

T  S0RT32.»///1?0C 
?ES 

F-SMALL 

127. 

1 

VOLUM 

128. 

2 

KEYWr 

3,35,36.B,A:4.X5,36 

129. 

3 

FILEIH=32. 

130. 

4 

FILE0UT=S0RT32. 

131. 

acoF 

132. 

ausE 

32.. SORT  32. 

SAVE  DIRECT  ACCESS  1 

133. 

a  . 

1  34, 
1  35. 

136. 

137. 

138. 

1  3^. 

140. 

141. 

142. 

143. 

144. 

145. 

146. 

147. 
1  48. 
149. 
1  50. 
151. 
1  52. 

153. 

154. 
1  55. 

156. 

157. 
1  58. 
1  59. 
160. 
161. 
162. 

163. 

164. 


dASGtA  H7HH80/XXX/XXX. 

3  .  COPY  1 1  3.  fH7HH8rr  .A07R1 
3  •  COPY.I  4.,H7HK83.FQ7Rl 
3  .  COPY. I  9. ,K7HH80 .T0TR1 
«OELETEtC  H7HM8CR  03? 1/XXX/XXX. 

3XQT  AQS-FILE .PAUSE 

3CAT  ,P  H7HM80R03R 1/XXX/XXX. fF///20000 
3  A  SG  *  A  H7HM8DR  33R 1/XXX/XXX. 

3KEEP  H7HM80R03R1. 

3BRKPT  PRINTS/H7HH80RC3R1 
3XQT  A8S-FILE .8 70 REPORT 
0 


2 

1  1  1 

1 

1  1 

3 

1  2  3 

4 

5  6 

7 

8  9 

10 

4 

11  12 

13 

14 

15 

16 

17 

IP 

19 

20 

5 

21  22 

23 

24 

25 

26 

27 

28 

29 

30 

6 

31  32 

33 

34 

35 

36 

37 

38 

39 

40 

7 

41  42 

43 

44 

45 

46 

17 

4  P 

49 

50 

8 

51  52 

53 

54 

55 

56 

57 

5  P 

59 

60 

9 

9999 

10 

1  2  3 

4 

5  6 

7 

8  9 

l  0 

11 

11  12 

13 

14 

15 

16 

17 

IP 

19 

20 

12 

21  22 

23 

24 

25 

26 

27 

28 

29 

30 

13 

31  32 

33 

34 

35 

36 

3  7 

38 

39 

40 

14 

41  42 

43 

44 

45 

46 

17 

4ft 

49 

50 

15 

51  52 

53 

54 

55 

56 

57 

58 

59 

60 

16 

9999 

3E0F 

aBRKPT 

PRINTS 

a  •  SYM»U  H7HM8  GR039 1 • 

3DELETF  »C  H7H M80D 03? 1 /XXX /X XX . 
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PART  ) 


165. 

166. 

167. 

168. 
169. 

1  70. 

171. 

172. 

173. 

174. 

175. 

176. 

177. 

178. 

179. 

180. 
181. 
132. 

183. 

184. 

185. 

186. 

187. 

188. 

189. 

190. 

191. 

192. 

193. 

194. 

195. 

196. 

197. 

198. 

199. 

2  GO  • 
201. 
2Q2. 

203. 

204. 
2G5. 
2  06. 

207. 

208. 
2G9. 
210. 
211. 
212. 
213. 
2  14. 
215. 
2  16. 
217. 
2  18. 
2  19. 
22C. 
221  . 
222. 
223. 
2  24  . 

225. 


axQT  ABS-FILE .PAUSE 

aCAT  fP  H7HH8  0D0  3R 1/* XX/ XXX. t F ///2QOOO 
*ASG*A  H7HM80D03R 1/*XX/XXX. 

3KEEP  H7HH80DQ3P1. 

3BRKPT  PRINTS /H7HH80003P1 
aXQT  AB S- FILE .870 GENKY 
SXQT  ABS-FILE  .87QPRTKV 

KV  SCOREBOARD  FOR  H"8D  ENV  03  SEED  1 
10  8  5 

1  2  3  4  5  6  42  44 
1  2  3  42  44 

3A DO  « E  H7AFPFILES.INVHM8Q 
aAOOyE  7. 

aED  7.1H7KVHH8n*EiQ3M 
3  .  COPY  KV  FILE  FOP  KV  ROLLUP 

a A  SG  y T  7.  .  FOLLOWING  PROGRAM  WRITES  TO  UNIT  7 

aXQT  ABS-FILE .870GEVAL 
8  •  PRINT  THE  ALLOCITION  REPORT 
aX  QT  ABS-FILE .8  70  PRT  K V 

ALLOCATION  REPORT  FOR  HM80  ENV  03  SEED  1 
ID  8  5 

1  2345642  44 
1  2  3  42  44 

3 A  DO  f  E  H7AFPFILES.IVVHMPQ 
a A  DO  »E  7. 

3H0G  **  HM80  CXPS  ENV  03  SEED  1  ** 

8  .  CREATE  OUTPUT  FILE*  FOR  CXPS 

a  A  SG  ,  T  29. 
a  A  SG  9  T  30. 

a  .  RUN  THE  MER6E  MODULE 

a  .  RUN  WITH  FILES  DEVFLOPEO  EARLIER 

a  .  COPY  y I  H7HM80  .AD3P1 f 3. 

a  .  COPYyl  H7HM8iJ.F',3Rl  »4  • 

a  .  COPY,I  H7HM8Q  .T*  3R  1 f9 . 

aERS  7. 

aXQT  ABS-FILE. 870 CXPS 
1  80  E  1  1  3  2001 

TRUE 

111111 
1  4 

1 
1 


1000 


41 

41 


OA  00  *H7GL0BAL.CVALS 
a  ADD  =>H7G  LOBAL.FR  ACTS 

a  .  COPY  CXPS  OUTPUT  FOR  INPUTTING  TO  ROLLUP 

aOATA,L  29. 

aENC 

aCQPY.I  29. rH7HM80.rD7RI 

a A  SG  y  T  SORTOUT. 

aSORT  ,S 

VOLUHE-SM  ALL 

KEYrl  y5tCH,A:67yln,rHyA 

FILEIN=29. 

FILE OUT -SORTOUT . 
aED . R  SORTOUT. 

LNP  : 

EXI 

5BRKPT  PRINTS 

aSYHfU  H7HM8QDQ3R 1..3 

ariN 

aEOF 


SSG 


GENERATED  OUTPUT  STREAM 


PART  I 
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n4  £5  £6  D7  08  09  10  U  12  13  14  15  16 


01  06  11  C4  01  u6  11  04 
R A  PD  STATIC  PACE  B  A  PD  ; 
R A  PD  STATIC  RADE  BAPD 
0  N  N  N  N 
1113 
3  14  1 
L  M  N  0  P 


SGS 

RUNID  JO 
USEPID  H7 

PFILES  *H7AFP  aQ  8  AFP 
FORCE  BM8  0 
FORCE  1CH  H 
ENV  01  02  03 
ENVFIPST  4 
ENVLAST  4 

SUPP  Cl  06  11  Q4  G1  06  11  G4 
PNAMES  RA  PL)  STATIC  RACE  BAPD 
PA  PD  STATIC  RACE  BAPD 
LIGHT  DODONNNNODD 
BDIV  111311131113 
R  D  I V  314131413141 
ALPHA  ABCDEFGHIJK 
N  REPS  1  2  3 
KVCOPIES  1 
BASE  *H78  ASED  A  T  A 
PKS  H7PKS 
RNGDST  SH^RNGDST 
PREF  =*H  7P  REF 
CSCSS  *H7CSCSS 
ENGAGE  7ENG  AGE  RAP  D 
PC A  S  *H7PCAS  H 
CVALS  *H7GL0BAL  CVALS 
FP  ACT  S  *H7GL0BAL  FRACTS 
GCNSTY1  TTTFTTTFTT 
GDNSTY2  FFFTFFFTFF 
TYPLIM  1  6G  1  60 

SUPER  TRP  #*1C  3  5** 

SUPERB  ••  1  2  3  4  5  6  42  44#  * 
SUPERR  ’M  2  3  “2  44  " 

QAKE3 
QAPKS  C 


T  F  T  T  T  F 
F  T  F  F  F  T 


R  P  TPS  1 
R  P  TPS  1 
RPTPS1  ** 
R P TPS  ! 

R  P  TPS  1  •• 
R  P  TPS  1  *• 
RPTPS2  ” 


123456789 
11  12  13  14  15  16 
21  22  23  24  25  2b 
••  31  32  33  34  35  36 
41  42  43  44  45  46 
51  52  53  54  55  56 
123456789 


RPTPS2  ••  11  12  13  14  15  16 
“  21  22  23  24  25  26 


R  P  TPS  2 
R  P  TPS  2 
RPTPS2  ** 

R P  TPS  2  M 
A I R 1  "  1  41 

A I R  2  M  1  41 

OJTPD  80** 
OKTHTR  ••  E  *  * 
OJVIS  1  1 
1  1 
1  2 


31  32  33  34  35  36 
41  42  43  44  45  46 

51  52  53  54  55  56 

•  * 


OJD  Ay 
0  JPOS 
I B  FOR  M 
IRFOR  •• 
IC0M30  •• 
TVALON  TRUE 
3E0F 


1  1  1 
112 
3  4  1 
20G 1  * • 
1GQ0  *  * 
1” 


10  f* 

17  18  19  70 
27  28  29  30 
37  38  39  40 
47  48  49  50 
57  56  59  60 
10  " 

17  18  19  21 
27  28  29  30 
37  38  39  4 C 
47  48  49  50 
57  58  59  60 


2  2  2  2  2 
1  2  2  2  2 
4  12  3  4 


SSG 
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$SG  REVISED  SKELETON 


1  « 
2. 
3. 

4  • 

5* 

6  » 
7* 

a. 

9. 

1G. 

11* 

12. 

13. 

14. 

15. 

16. 
17. 
1£. 

19. 

20. 
21. 
22. 

23. 

24. 

25. 

26. 

27. 

28. 
29. 

3  0. 

31. 

32. 

33. 

34. 

35. 

36. 

37. 

3  8. 
39. 

4  r. 

4  1. 

42. 

43. 

44. 

45. 

46. 

47. 
46. 
49. 

5  C. 
5  1. 
5  2. 
33. 

54. 

55. 

5  6. 
57. 

56. 

59. 

60. 
b  1. 

6  2. 

63. 

64. 

65. 

6  6. 

67. 

68. 
69. 
7  n. 
7  1. 

72. 

73. 

74. 

75. 

76. 

77. 
76. 
79. 
6  C. 
61. 
S  2  » 


u 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

2 

5 

2 

1 

1 

1 

1 

2 

1 

1 

1 
1 

2 
i. 
1 
1 
1 
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S  K  8.L 

♦INCREMENT  IE  F'-'OM  CENVFIPST »1 v 1 » 13  TO  ClNVLAST , 1 , 1 , 1 3 
COMBAT  C  EM V  *  1  ,IE,13 
PR  EFIX  CUSERIQt 1,1*1 3C FORCE* 1* 1*13 
CXPS  CENV*1*I£*13 

CS EL  T  CFORCE , 1 * 1 , 1 3EC SUPP , 1 , IE  ,  1 3 


♦CREATE  SGS 
♦CREATE  SGS 
♦CREATE  SGS 
♦CREATE  SGS 
♦CREATE  SGS 
♦CREATE  SGS 
♦CREATE  SGS 
♦CREATE  SGS 
-CREATE  SGS 
♦CREATE  SGS 
♦CREATE  SGS 
♦CREATE  SGS 
♦CREATE  SGS 


BASELT  CFORCE ,1 , 1 . 1 3EC ENV, !, IE. 13  ,  .  .  .  _ 

PKSELT  CPNAMES.lt  IE, 13-C LIGHT, I , IE , 1 3/ C FOR CE 1 C H,  1, 1,  13 
PNGEL T  LPNAME  S* X * I E ♦ 1 3 -DEE P/tF ORCE 1CH , 1 1 1 « 1 3 
PR  FELT  CPNAME  S,1,IE* 13/CF0RCE1CH  *1 ,1*13 
INVNTR  H7AFPFILES  INVC FORCE , 1 , 1 , 1 3 
NO  I V  1  CBOIV.l  # IE  » 1 3 
NO  I V  2  CRD  IV  ,  1  *IE  *  1 3 
CNSTY1  CGDNSTY1, ltIE, 13 

_ _ _ 0NSTY2  C  GDNST  Y2 *  1  *  IE  *  1 3 

♦FRKPT ,K  GOC FORCE .1  ,1,13EC  COMB A T , 1 , 1 , 1 3NC NR EP S , 1 , 1 , 1 3 
♦edit  on 

#R  UN  , / TPR  DnCDUNlDflflfl3C ALPH A , 1 , I E *  1 3CNPEPS * 1 , 1 , 1 3f E 18 99P 22 770 , C 
SECPET , 60C  ,63^0  •  KNOX  C  703 )  476-4923 

ttQUAL  UNCLASSIFIED  —  ^ 

8A$G,A  H7AFPFILES/XXX/XXX. 

8  A  SG . A  M7RUNS/XXX/XXX . 

♦ INCREMENT  L  TO  CPFILES3 

♦INCREMENT  M  TO  CPFILES*13 
#ASG,A  CPFILESt LfMf 13. 

♦LOOP 


♦  LOOP 

fiHDG.S  ♦  *♦♦  CFORCE,  1,1*13  ENV  C  C  OMB  AT  ,  1  ,  1 , 1  3  SEEDS  CNREPS,13  ***♦ 
8PRT,S  H7RUNS .G OC F Q RCE , 1 , 1  , 1 3EC COMB  A T , i  ,  1 ,1 3NC NREPS  ,1,1,13 
ft  .  SAVE  THE  PROGRAMS 
sASG,T  ABS-FILE.,///100C0 

8 COPY, AC  ^H7AFP  .8  7 1  PK  SGEN  , AS S -FILE .8  70PKSGEN 
8  COPY,  AC  *H7AFP  .  3  7G  PR  0  JGE  N  ,  A  8  S -F  I L  E  •67(jPR0  JGE  N 
8C0PY, AC  ♦H7AFP  .8  7GPREFG  EN  ,  A B S -FI L E  .  3 7QPR EF G EN 
8 COPY, AC  *H7AFP .£ 7C RNGDS TG EN , AB S-F ILE .6 70RNGDSTGEN 
8 COPY, AC  *H7AFP ,67GMAIN,A8 S-F ILE .8 7 CM AIN 
8C0PY,AC  *9  8AFP  .3 7 G GE N K V , A  B S -F I LE . 6 7GGc. N K V 
8C0PY,AC  *9SAFP .8  T^GENAL , A  ES-FILE »S  70GE N  At 
«CCPY,AC  ♦9SAFP.37CPRTKV,A6S-FILE.87GPRTKV 
8  COPY, AC  ♦  H7AFP  .8  7CCXPS,AB  S-FILE  .6  7CCXPS 
8 COPY, AC  ♦  H7AFP  .8  7QREPGRT, ABS-F ILE .87CREP0RT 
8 COPY, AC  ♦H7AFP  . PAUSE, ABS-FILE .PAUSE 
♦INCREMENT  L  yq  C  PF  ILE S  3 

♦INCREMENT  M  TO  CPFILES,13 
8FREE  CPFILES  , L  ,M , 1 3 • 

♦  LOO  P 
*LOOP 

♦  IF  CC0MBAT3 

8  A  SG  ,  T  20 • , // /4  OC  0 
»ASG,T  21.,///400G 
8  ASG , T  22  •  ,  //  / 4  OC  3 
fiASG.T  23  •  , // / 4  COG 
t  ASG , T  24 • f // /5 GOC 
8  ASG , T  25.,///4~03 
8  ASG , T  26 • , // /4  000 
8  A  SG , T  3.,///ZrC0 
8asg,t  4.t///2oca 
8  A  SG , T  7.,///2CQC 

tt  .  UNIT  35  IS  USED  FOR  TEMPORARY  STORAGE 
'  8  ASG , T  35 ., // /2"CC 
8  A  S  G  , T  34  .,///25CaO 
8  A  SG , T  9 • * // / 5  OC 
8  ASG , T  3 1 • ?/ /✓ 7033 
8  ASG  ,  T  32. ,/// 13  003 
»ASG,T  33.,/// 2000 

♦  SET  E  TO  1 

8.  INPUT  FILES 


2 


LOCATE  THE  ELEMENTS  FOP  ENVIRONMENT  DEPENDENT  FILES 


8  A  SG , A  CBASE, 1, 1,13.  .  BASEDATA  FILE 

8ASG.T  is. 

8 ED  CBASE ,1 ,1 ,13  .t BA  SELT  ,1,1,13,15. 

8  P  R  T  ,  S  CBASE, 1,  1, 13.C BAS  ELI ,1,1,13 
PFREc.  CBASE  ,1,1,13. 

ft  ASG  ,  A  CPKS,1  ,1 ,13/XXX/XXX.  .  PKS 

8ASG,T  10. 

pED  CPKS, 1, I , 13 .C  PKSELT,  1, 1 ,13, 1C . 
ftFREE  CPKS,  1, 1, 13 • 

ft  A  SG  ,  A  CRNGDST,  1, 1, 13.  •  RANGE  DISTRIBUTION 

8  ASG  ,  T  II. 

ft ED  CRNGDST ,1 , 1 , 1 3.CRNGELT, l ,1,13,11. 


S  SG  REVISED  SKELETON 


D-84 


Figure  D-ll.  SSG  Example  2 
(page  2  of  10  pages) 


CAA-D-84-14 


SSG  REVISED  SKELETON 


S3. 

84. 

35. 

86. 

87. 

38. 

89. 

9C. 

91. 

92. 

93. 

94. 

95. 

96. 

97. 

98. 

99. 
ICC. 
101. 

Ill: 

1  C  4  • 
105. 
1 C  8  . 
107. 
ICS. 
109. 
UC. 
111. 
1 12. 

113. 

114. 

115. 

116. 
117. 
US. 
119. 
1 2D. 
121. 
12  2. 

123. 

124. 

125. 

126. 

127. 
123. 

129. 

130. 

131. 

132. 

133. 

134. 
125. 

136. 

137. 

128. 
139. 
1 4  r . 

14  1. 

142. 

143. 

144. 

145. 

146. 

147. 

148. 

149. 

1 5  n. 

151. 

152. 

15  3. 

154. 

155. 

156. 

157. 
1  5  S  • 
159. 

16  r  • 
161. 
162. 
163. 

1  O  4  . 


2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 


2 

2 

2 

2 

2 

2 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 


BFREE  CRN COST  *1*1.13. 

» ASG  f A  CPREF, 1,1,13.  .  PREFERENCE  FILE 

BASG,T  12. 

BED  ^PREFtl ,1 ,13.CPRFELT ,1, 1, 13,12. 

BFRF.E  CPREF, 1,1,13. 

B  A  SG  ,  A  CCSCSS ,1,1,13. 

B  A  SG  ,  T  14. 

BED  CCSCSS, 1, 1,13. CCSELT ,1,1,13,14. 

BFREE  CCSCSS, 1,1,13 

B ASG  , A  CENG AG £,1,1, 13.  .  ENGAGEHENT  FILE 

BASG,T  13. 

BED  CENGAGE,! ,1,1 3. CENG AGE, 1,2,13,13. 

BFREE  CENGAGE  ,1,1,13. 

#  ASG  ,  A  CPCAS, 1,1,13.  .  PERSONNEL  CASUALTY  FILE 

«ASG,T  16. 

BED  C PC AS, 1,1, 13. CPC AS, 1 ,2,13,16. 

BFREE  CPCAS,  1,1,13. 

#  ASG  ,  A  CUSERlO,  1,  1 , 1 3K  VC  FORCE,!, 1,1 3/ XXX/ XXX .  .  KV  FILE 

BERS  73. 

BERS  21. 

BERS  25. 

BERS  76. 

BXCT  ABS-FILE .87GPREFGEN 
111111 

BXOT  ABS-FILE .87DRNGDSTGEN 
111111 

BXCT  ABS-FILE  .87CPKSGEN 
111111 

CXGT  ABS-FILE .87CPR0JGEN 
111111 

^INCREMENT  IR  TO  CNREPS,13 

^create  sgs:  reps  cnreps, i,ir,io 

*S£T  R  TO  [ REPS  ,1,1, 13 
BERS  22. 

BERS  23. 

BERS  24. 

BE  R  S  3. 

BERS  4. 

#E  R  S  9. 

BERS  31. 

BERS  32. 

BERS  34. 

BXQT  ABS-FILE .87DHAIN 
111111 
C  *  R  3 

CD  NSTY 1 , 1 ,E , 1 3  CDNSTY 2, 1 ,E , 13 

C  T  Y°L IH ,1,1 ,13  CTYPLIH  ,1,2,13  C TY PL IM , 1 , 3 , 1 3  C TYPL IM ,  1  ? 4 ,  1 3 
BASG.T  SORT  33.,///lCCO 
BSOPT ,ES 
VOLUHE-SH  ALL 

KFYW-3|35,36,E,A:4,35*36fB,A:2,35,36,BfAll,35,36,B,A 
FILExN-33  • 

FILEGUT-S0RT33. 

BEOF 

BUSE  33.,S0RT33. 

B A  SG, T  SORT 9 . ,/ // 1GGD 
BSORT ,ES 
VOLUME^SM ALL 

KtTYr7:io5f36,B,A:lt,35,  36tP,A:2»35»36»B»A:1»35'36*B*A 
FI  LEI N— 9 . 

FILEOUT -SOR T9 . 

BEUF 

BUST  9.  , SOR T9. 

B  A  SG , T  S0PT24  .,///irCD 
BSuRT ,ES 
VOLUME-SMALL 

^YW  =  3,35,3  6,B,A:4t35, 36  ,S  ,  A  :  2 , 35 , 3  6, e  ,  A  :  1 , 35 , 36  ,  B  ,  A 
FILEIN-Z4 . 

FILE0UT-S0RT24* 

BE  OF 

BUSE  24..S0RT24. 

B A  SG , T  SORT  32  .,///lCCC 
BSORT  ,  E  S 
VOLUMEzsm  ALL 

^|YUr3t35  ,3  6  ,B,A:4,35,  36,B  f A:2,35,36,S,A:  1 ,35,3  6,6, A 

rILEIr,  -  32  . 

FlLEOUTrsOR  T32. 

BEOF 

BUSE  3Z*,S0RT32 • 

B  •  SAVE  DIRECT  ACCESS  FILES  ALLOC,  FALLOC,  AND  TT LOS  IN  ELEMENTS 
B  A  SG , A  CP°EFIX,  1,1,10/XXX/XXX. 

B  .  COPY, I  3., C PREFIX, 1,1,10.ACC0MBAT ,1,E,13RC*R3 
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a  .  COPY,T  4. .CPREFIX,  1,1, lJ*FCC0MBATtl»C«13RC*R3 
ti  l  COPY*!  9.*C PREFIX*  1,1,13*TCCGMBAT  ,1,E,13RC*R3 
*IF  ro AREP3 

KOELETEfC  CPREFIX*i*  l* 1 1RCC0MB AT  *  I, E * 13RC *R 3/XXX/XXX. 
ttXCT  ABS-FILE  .PAUSE  , 

a  C  A  T  *  P  CPREFIX,!,  1,1  3RC  COMBAT  » If  E.nRC*R3/XXX/XXX.fF///20Ca0 
# ASG.A  TPREFIX, 1. 1 .1 3RCC0MBAT .l.E  .13RC JP3/XXX/XXX  . 
dK  EEP  CPREFIX  , I , I  *  1 3 RCCOMB A T *  1 , E , 1 3RC *R 3 . 
d  RRKP  T  PR  IN TS /C PREF IX,1 ,1,13RC COMBAT , 1*E, 13RC*R3 
»XCT  ABS-FILE  .67DREPQRT 
ECAPKS*  1 ,1,13 
1  1  1  1  l  1 

^INCREMENT  K  TO  CRPTPSX3 

^INCREMENT  L  TO  CRPTPS1,K3 
CRPTPS1,*  ,L  ,  1  3 
*LOOP 
*LOOP 
9999 

^INCREMENT  K  TO  CRPTPS23 

^INCREMENT  L  TO  CRPTPS2,K3 
CRPTPS2  ,K  ,L ,  13 
*LCOP 
*LOOP 
9999 
a  EOF 

aBRKPT  PRINTS  „  .  „  #  _ 

a  .  SYM,U  EPREFIX,!,  1,13RCC0MBAT,  1,E,13RC*R3. 

*END 

BDELcTE  ,C  E PREFIX, 1, 1, 13DCC0MB AT, 1 ,E , 13RC*R  3/XXX/XXX. 

BCAT,pECPPEFIX^ U 1^130 CC0M8 AT, 1,E,13RC*R 3/XXX/XXX ,,F/// 22330 
SASG.A  CPREFIX,  1,1, 1 3C CCOMd A T,1 ,E.13RC*R 3/XXX/XXX . 

UK  EEP  CPREFIX,1,1,13DCC0MBAT,1,E,  13RC*R3. 

SBRKPT  PRTNTS/CPREFTX  ,  1.1.13DCC0MBAT , 1,E, 1 3RC  *R 3 
ItXQT  ABS-FILE .87GGENKV 
SXQT  AES-FILE  .370PRTKV 

KV  SCOREbOARD  FOR  C F CR CE , 1 , 1 , 1 3  ENV  C COMB AT , 1 , E , 1 3  SElD  C*R3 

C SUPER  TRP  ,  1 , 1,13 
CSUPERB ,1,1,13 
CSUPCRR ,1,1,13 

DADO  ,E  ClfIVNTR,  1,1, 13.CINVNTR,  1 ,2,13 

»FQD7E .CUBE RID, 1,1, 13K  VC  FOR CE , 1 , 1 , 1 3. EC  COMB  A T ,  1  ,£  ,13RC*R3 
#  .  COP V  KV  FILE  FOR  KV  ROLLUP 

#ASG,T  7.  .  FOLLOWING  PROGRAM  WRITES  TO  UNIT  7 

SX uT  ABS-FILE .370GENAL 
B  .  PRINT  THE  ALLOCATION  REPORT 

fl  X  Q  T  AES-FILE  .870PRTKV  rj.,_ 

ALLOCATION  REPORT  FOR  CFORCE  ,  1 ,  1 ,  1 3  ENV  C COMB  A T  ,  1 ,E , 13  SEED  C*R3 
C  SUPERTRP  ,1,1,13 
CSUPERB, 1,1, 13 
CSUPERR, 1*1,13 

SAuD.E  CINVNTR,1,1,13.CINVNTR,1,2,13 
BAOD.E  7. 

*IF  CCXPS3 

-*IF  NOT  C  COMB  AT 3 
BASG.T  7 ,  ,///2000 

A  A  S  G , A  CBASE, 1,1,1 3,  •  BASFOATA  FILE 

SASG,T  15. 

BCD  CPASE.l  ,1,13.C  BASFLT, 1, 1, 13,15. 

BFREE  CBASE  ,1,1,13  . 
s  A  SG , A  CCSCSS.1,1,  13, 
basg.t  m . 

beg  C CSC SS,  1,1, 13. CCSCLT, 1, 1,13.14. 

BASG.A^CPCAsIllijl 3,  ,  PERSONNEL  CASUALTY  FILE 

BASG.T  16. 

BEG  C PC  AS, 1, 1, 13. C PC AS, 1,2, 13, 16. 

BFREE  CPCAS, 1,1,13. 

8  .  END  OF  NOT  COMBAT  IF 

*FNO 

BHDG  **  CFORCE, 1,1  .13  CXPS  ENV  CCXPS,1,E,13  SEED  C*R3  ** 

B  .  CREATE  OUTPUT  FILES  FOR  CXPS 
BASG.T  29. 

BASG.T  70. 

•  a  .  RUN  THE  MERGE  MODULE 
B  .  RUN  WITH  FILES  DEVELOPED  EARLIER 
a  .  COPY, I  CPREFIX ,1  ,1,13«ACCXPS,  1,C,13RC*R3,3. 

»  .  COPY, I  CPREFIX, 1,1, 13. FtCXPS,l,E,13PC*R3, 4. 

a  .  COPY, I  CPREFIX, 1  ,1, 13. TC CXPS, 1,E, 1 3RC*R 3,9. 

AERS  7. 

BXQT  ABS-FILE.  87GCXPS 
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MAGE  GIVING  INDICES  IN  CBT  POT  OUTPUT  RECORDS 


eoi?*85 


❖ 

❖  : 

CICOMBO. 1,1.138 
COJTPD, !, I,  138 
COKTHTR  ,1,1,138 
COJVIS, 1 , IE ,138 
COJDAY, 1 , IE ,138 
CCJPOS, 1, IE ,138 
CIBFOR* 1, 1, 138 
EIRFOR, 1, 1, 13 

❖  .  IMAGF  GIVING  INDICES  OF  INPUT  CS/CSS  MODULI 
CTV ALON ,1,1,13 

111111 
CNDIV1.1.E.13  CNDIV  2,1,E , 13 
CAIR1, 1,1,13 
CAIR2,1,1 ,13 

8  ADD  CCVALS,1,1,13.CCVALS,1,2,13 

#  ADD  CFPACTS, 1,1,13. CFR ACTS, 1,2, 13 

U  .  COPY  CXPS  OUTPUT  FOR  INPUTTING  TO  ROLLUP 

«(?  ATA,L  29. 

rtEND 

ttCOP Y  ,1  2 9., C PREFIX, 1,1,13. EC CX PS, 1,E,1 3RC*R  3 

«ASGfT  SORTOUT. 

ttSORT  ,S 

VOLUME=SM ALL 

KEY-1, 5, CH, A :67,1C»CH,A 

F ILE I N-29 . 

FILEOUT-SORTOUT • 

#E D,R  SCR  TOUT  • 

LNP  • 


EXI 
❖  END 

ttBRKPT  PRINTS 

#SYM  fu  CPPEFIX , 1,1 , 13DCC0MBAT , 1,E ,13RC*R3. tTK VCOPIES ,1,1,13 
❖REMOVE  SCS  REPS 

❖  LOOP  .IP 

❖  .  END  OF  CXPS  IF 

❖  .  END  OF  ENVIRONMENT  IF 
❖  END 


Uf  IN 

❖  P  EMOVE  SGS  COMBAT 

❖  REMOVE  SCS  PREFIX 
❖REMOVE  SGS  CXPS 
❖REMOVE  SGS  C^ELT 
❖REMOVE  SGS  BASELT 
❖REMOVE  SGS  PKSELT 
❖REMOVE  SGS  RNGELT 
❖REMOVE  SGS  PPFELT 
❖REMOVE  SGS  INVNTR 
❖REMOVE  SGS  NPIVi 
❖REMOVE  SGS  N0IV2 

❖  REMOVE  SGS  DNS TY 1 
❖REMOVE  SGS  0NSTY2 

❖LOOP  .IE 


8EGF 


SSG  STREAM  GENERATION  RUN  LOG  PART  1 

COMBAT  04 

PREFIX  H7HM8C 

CXPS  04 

CSELT  KM 8  PE G4 

8ASELT  HM8CEC4 

PKSELT  BAPO-D/H 

RNGELT  BAPD-DEEP/H 

PR F EL  T  BaFD/H 

INVNTR  H7AFPFILES  I N  VH  M  8  0 

NDIV1  3 

NDIV2  1 

dnstyi  f 

DNSTY2  T 

SSG  GENERATED  OUTPUT  STREAM  PART  1 
1.  1  SKEL 


SSG  STREAM  GENERATION  RUN  LOG  PART  1 
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4  . 

5. 

6. 

7. 

8. 
9, 

1C. 
11. 
it  . 

13. 

14. 

15. 
.16. 

17. 
IB. 
19. 
2  C  • 
2  1  . 
22  . 


25. 
26  . 
27. 
28  . 
29  . 
5  C  • 
3  1  . 
32  . 
33. 

34  . 

35  . 

36  . 
37. 
38  . 

3  9  . 
40. 

4  1  . 
42  . 
4  3. 
4  4  . 
45. 
4  6  . 
47. 

4  a . 

49. 

5  P  • 
3  1. 
5  2  • 
5  3. 
54  . 
^5. 
5  6. 
57. 
5  8. 
59  . 

50. 
5  1  . 

5  2. 
53. 

64. 

55. 
b  6  . 
57. 

6  6. 

6  9  . 

7 

7  1  . 
72. 
7  3  . 
74. 
75  . 

76. 

77. 

78  . 

79  . 
5  C  • 
3  1  . 
32. 


acu Ad/urcL2sI?Pi£Ei899P?2770,SECRET,6a0t6300  *  KN0X  c7a3>  476-492 

uASG  v A  H7  AFPFILES/XXX/XXX • 

*ASG,A  H7RUNS/XXX/XXX. 

<i  ASG  *  A  *H  7 A  F  P  * 
a  ASG v  A  S98AFP. 

6H0 G » S  ****  HM80  EN  V  C4  SEEDS  3  **** 
aPR  T  ,  S  H7RUNS .G0HM80E04N1 
d  .  SAVE  THE  PROGRAMS 
d ASG  f  T  ABS-FILE.t///lPOnu 

aCOPY,AC  *H7AFP.a7CPKSGENf ABS-FILE.870PHSG0N 
dCOPY»AC  *H7AFP.87CPR0JG£NlAe$-FILE.870PROJGEN 
dCQPY  f  A  C  *H7AFP.870PREFGEN,  ABS-FILE.8  70PREFGEN 
dCOP  Y  f AC  *H7AFP.87CRNGDSTGEN,ABS-F1L£ •87QRNGDSTGEN 
dCQPY  » AC  *H 7 AFP. 87 CHAIN, ABS-F  ILE.370MAIN 
8 COPY. AC  *98AFP.87CGENKV,ABS-FILE  .87CGENKV 
a COP Y  ? AC  *98AFP,87CGENAL* ABS-FILE  .8  7GGEN AL 
aCOPY  ?  AC  *9  8AFP.870PRTKV,  ABS-F ILE  .87QPRTK  V 
dCOPY  f  AC  *H7AFP  .  87 ?C XPS , A B S-F ILE  .3  7CCXPS 
dCOPY  ,  AC  *H7AFP.S7  0REP0RT,ABS-F  ILE  .87QREP0RT 
dCOPY , AC  *H7AFP .P AUS E » ABS-F ILE .P A  USE 
dFREE  *H7AFP. 
dFREE  *98AFP. 

S  A  SG  9  T  2D.,///4CQ0 
JIA  SG  9  T  ?!•*// /<*2QQ 
d  A  SG  ,  T  22.,///4C0C 
a  ASG  9  T  23 . » // /40Q0 
u*  ASG  9  T  24  •  , ✓/  /5QGQ 
d  AS 6  ,  T  25 • 9 // /4 CDC 
qi  A  SG  t  T  76  •  9  //  /4CQ0 
u  A  SG  »  T  3.*///2uDC 
8 ASG , T  4 • t // /2C00 
dASGtT  7 • 9 // /2CDC 

erf  .  UNIT  35  IS  USED  FOR  TEMPORARY  STORAGE 
aASGfT  35.9///23D0 
ci  A  SG  9  T  34  ..///25Q0G 
8  A  SG  ♦  T  9  .*///5CJD 
o  A  SG  9  T  3 1 • 9/ // 7  UQG 
d  ASG  f  T  32. 9///13OC0 
d  ASG  9  T  33.  ,///2oaa 

d  .  INPUT  FILES 

*  I  LOCATE  THE  ELEMENTS  FOR  ENVIRONMENT  DEPENDENT  FILES 

*A$GfA  *H 7B  A  SED A  TA •  .  BASEDATA  FILE 

a»  A  SG  t  T  15. 

*ED  *H7PA$EDATA.HH80E04,15. 
aPRT.S  *H78ASE0ATA  .HM80EQ4 
dFREE  «H7 BASEDATA. 
uASGtA  H7PKS/XXX/XXX  .  .  PKS 

a  ASG  9  T  10. 

dED  H7PKS  .BAPD-D/H9IQ. 
aFREE  H7RKS. 

aASG,A  *H  7RNGDST •  •  RANGE  DISTRIBUTION 

d A  SG  »  T  !  1  . 

dFQ  *H7PNGDST  .BAPO-D EEP/H , il • 
aFREE  *H7RNGC$T. 

a  A  S  G  9  A  *H7PP£F.  .  PREFERENCE  FILE 

A  SG  9  T  12. 

dED  ^H7PREF  .BAPD/H,12. 
aFREE  *H7PREF. 
a ASG  9  A  *H7CSCSS. 
a  A  SG  9  T  14. 

*ED  *H7FSCSS.HM8QE04 t14 . 
dF  REE  *H7CSCSS 

a  A  SG  9  A  7ENG AGE .  •  ENGAGEMENT  FILE 

8  A  SG  f  T  13. 

dED  *H7ENGAGE  .RAPO fl 3. 
dF REE  *H7  ENGAGE • 

ui  A  $6  9  A  *H7PCAS.  •  PERSONNEL  CASUALTY  FILE 

a  A  SG  9  T  16. 

dED  *H7PCAS.HfI6. 

uFREE  *H7  PC  A  S  . 

•  o  A  SG i A  H7K VHM80/XXX/ XXX  *  .  KV  FILE 

aERS  20. 
aERS  21. 
aERS  25. 
aERS  26. 

dXGT  ABS-FILE  .87QPREFGEN 
1  1  1  1  t  1  1 

dXGT  ABC-FILE  .87CRNG DSTGEN 
1  111111 
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31. 

8  4  . 
35. 
3  6  . 
37. 
88. 
39. 

9  r . 
9  1  . 
92. 
9  3. 

94  . 

95  . 

96. 

97. 

98. 
99  . 

IDO. 
13  1. 
ID  2. 

133. 
124. 

10  5  . 
106. 
107. 

138. 

139. 

no. 
n  i. 
112. 
113. 

11  4  . 

115. 

116. 

11  7. 
118. 
11°. 
12G. 

12  1  . 
122. 

123. 

124. 

12  5. 
126. 
127. 
123. 
12*. 

1 3  C  • 

131. 

132. 
13  3. 

134. 
13  3  . 

136. 

137. 
133  . 

13  c  • 

14  0. 
14  1. 
142. 
14  3. 
144. 
14  5  . 
146. 
14  7. 

14  8  . 

149. 

150. 

15  1  . 
15  2. 
15  3. 

154. 

155. 

1 3  6  . 

157. 
15  8. 

15  9. 

16 

16  1. 
162  . 
15  3. 
164  . 


aXQT 

ABS-FILE 

!  1 

1111 

<iXCT 

ABS-FILE 

I  1 

l  1  X  1 

SER  $ 

22  . 

«ERS 

23. 

«ERS 

24  . 

2ERS 

3  . 

SERS 

4  . 

GERS 

9  . 

5ERS 

31. 

GERS 

32. 

oiERS 

34. 

aXC  T 

ABS-FILE 

1  1 

1 

F  T 

1111 

1  6  Li 

1  63 

2  ASG  , 
aSORT 

T  SORT  33 
.ES 

VOLUME-SMALL 

FILEi^^’.36,B,A:4,;!5’36,B,A:2,35’i<”B»A:  1»3S,36,E?,A 
FILE0UT-S0RT33* 

3E0F 

«USE  33  •  t  SORT 33 • 

“ A SG , T  S0RT9.  f///10CQ 
iSCPi tES 
VOLUME-SM  ALL 

FfLEIN  =  i!,36,BfA:4,35*36’B,A:2t35’36’B»A:1»35^6»B’A 

F IL  E  OUT  OR  T9  . 
oiEOF 

OUSE  9.  .S0PT9 . 

q»  ASG  •  T  S0RT24  .f ///10CG 

osort.es 

VOLUME-SMALL 

FIL“iNr|4;36’B,A:4’;5  5,36,B,*:2,35’36,8,A:1»35’:36'B'a 
FILECUT-SQRT24* 

OEC'F 

OUSE  24  •  *  SCRT24 • 

is^f:EioRT32*’///icco 

VOLUME-'M  ALL 

FXL£INz32’.36’3,A:4’35’36,B,A:2,35,36,B,A:1’35’:36»S»A 

FILE0UTZS0RT32. 

aFOF 

SUSE  3 2..S0RT32. 

fiSG»*AH?HM80/XXX/XXX»^  FIL“  ALL0C’  FALL0C’  AN°  TTL0S  ™  ELEMENTS 
o  *  COPY, I  3..H7HM8a.AC4Rl 
o  .  COPY , I  4  .  VH7HH8C  .FH4R l 
a  .  COPY,  I  9  ,  ,H7HM80  .TQ4R 1 

M7HM8CD04R  1/XXX/XXX. 

OXQT  ABS-FILE  .PAUSE 

H7HM80D04R1/XXX/XXX • ,f // / 2 COCO 
^ASG.A  M7HM8CDC4R1/XXX/XXX. 
aKctP  H7H  M6  •'‘D  14R  1  . 

06RKPT  PRINTS /H7HM80DH4P1 
»XQT  ABS-FILE  .87CGENKV 
OXQT  ABS-FILE  .87QPRTKV 
KV  SCORES OAPO  FOR  HH 80 

1234564244 
I  2  3  42  44 

uAOD,E  N7AFPFILES.IN VHM8J 
oi  A  DD  ,  E  7. 

QiEO  7  .  ,H7K  VHM8Q.E04R  1 
0  .  COPY  KV  FILE  FOR  KV  ROLLUP 

SxCT’ABS-FILEleTDGENA^6  PR0GfiAH  “R”ES  TO  UNIT  7 

avr,TP?lcTrI^  allocation  report 
QtXGT  ABS-FILE  .87GPRTKV 

ALLOCATION  REPORT  FOR  HM80  ENV  C4  SEED  1 

1  2  3  4  5  6  42  44 
1  2  3  4?  44 

?ADD,E  H7AFPFILES.IN VHM9U 
<*ADD .  E  7. 

aHOG  **  HH8  C  CXPS  ENV  0<t  SEED  1  ** 


ENV  04  SEEO  1 
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16  5. 
IS  6  * 
IS  7  • 
IS  8  • 
IS  9  • 

17  r. 

171. 

172. 

173. 

174. 

175. 

176. 

177. 

178. 

179. 
13  0. 
13  1. 
132. 
13  3. 
IS  4  . 
13  5. 
136. 
13  7. 
138  . 
139. 
19  G. 

191. 

192. 
19  3. 

194. 

195. 
196  . 
19  7. 

198  . 

199  . 

2on. 

23  1  . 
23  2  . 
233. 
234  . 
23  5  . 
206. 
207. 
238  . 
209. 
21  C  « 
211. 
212. 

213. 

214. 

215. 

216. 

21  7. 
218. 
219. 

22  0. 
22  1  . 
22  2  . 
22  3  . 
22  4  . 
22  3. 
22  6  . 

22  7  . 
22  6  • 
22  °  • 

23  f  . 
23  1  . 
23  2  . 
233. 
234  . 
23  5. 
23  6  . 
237. 
23  8  . 

23  ^  • 

24  0. 
24  1  . 
242  . 
24  3  . 

24  4  * 

24  3  • 
24  6  . 


gA*6  CREATE  OUTPUT  FILES  FOR  CXPS 
<9A$g!t  3qI 

a  .  RUN  THE  MERGE  MODULE 
a  .  RUN  WITH  FILES  DEVELOPED  EARLIER 
a  .  COPY , I  H7HM8Q.AC4R 1,3* 
a  .  COPY, I  H7HM8U.FD4R1,4. 

0  .  COPY, I  H7HM8Q.T0  4P 1 , 9 • 
aERS  7. 

aXQT  ABS-FILE.870CXPS 

1  80  E  1  1  4  2CQ1  1CDG 

TRUE 

111111 
3  1 

1  41 

1  41 

<2 ADD  *H7GL0BAL.CVALS 
BAOD  *K7GL0BAL.FRACTS 

oi  .  COPY  CXPS  OUTPUT  FOR  INPUTTING  TO  ROLLUP 
a0ATA,L  29. 

SEND 

uCOPy.I  29..H7HM80.EC4R1 
3  A SG  ,  T  SORTOUT. 

OSORT  ,S 

VOLUHE-SM ALL 

KEY-1, 5, CH9A  ;67 ,  ID  ,C  H,  A 

FILEIN-29. 

FILEOUT -SORTOUT . 
aED.R  SORTOUT. 
lnp  r 

EXI 

OBRMPT  PRINTS 
aSYK,U  H7HM8CD04R1 1 
o»  Er  S  22  • 

OERS  23. 

GERS  24. 
a£RS  3. 

«ERS  4. 
o*  ER  S  9. 
aERS  31. 
aERS  32. 

«ER  S  34. 

aXGT  ABS-FILE.87GMAIN 
111111 

2 

F  T 

1  60  1  6C 

a  A  SG  ,  T  S0RT33 .,///10G0 

aSORT,ES 

VOLUME-SH  ALL 

FIL^IN133#36?3,A :4’35f 36,B,A:2,35,36,B,A:1#35 ’36»B’A 

FILE0UT-SQRT33. 

aEOF 

aUSE  33., SORT  33. 
a ASG , T  S0RT9.,///1DQD 
aSORT  ,ES 
VOLUME-SMALL 

F I L E  f N-9 • ,i6?B,A :4 »35» 36 *B,A:2, 35 , 36 ,B,i:  1,35,36,8, A 

F ILE  OUT -S  OR  T9  . 
iEOF 

oiUSE  9., S  OR  T9  » 
a  A  SG , T  S0RT24 .,///10CC 
GSORT, ES 
VOLUME-SMALL 

cf,Yrf^l5^36’8»A:4  *35,36,8, A  :2,35, 36,  B,  A;  1,35,36,8,  A 
r I L  L IN  —  24 • 

FILE0UT-S0RT24. 

aEOF 

aUSE  24..S0RT24. 
a A  SG  ,  T  SORT  32  *,///lCCO 
aSGRT  »ES 
VOLUME-SM  ALL 

A-4»  2  5,36,8,  A:  2, 3  5, 36, 8,  A:  1,35 ,3  6,  B,  A 

r ILt IN- it  . 

FILEOUT-SORT32. 

aEOF 

*U$E  32  SORT  32. 

»5sgJa^hS§c/5Jx/xxcI;s  files  alloc’  falloc’  an0  ttlos  in  elements 

oi  .  COPY,  I  3.  ,H7HH8C  .A0«>R2 
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24  7  . 
24  3  . 

24  9. 
25C. 

25  1. 
25  2  . 
253. 
25  4. 
25  5  . 

25  6. 
257. 
Z58. 
259. 
250. 

26  1. 
262. 

26  3. 

264  . 

255. 
26  6. 
267. 
26  8  . 
25  9. 

27  0. 
27  1. 
27  2  . 
27  3. 
274  . 
27  5  . 
276. 
277. 

27  3. 
279. 

zac. 

25  1  . 
23  2  . 
23  3. 
284  . 
23  5  . 

28  6  . 
25  7. 
23  8  . 
23  9  . 
29  r. 
29  1  . 
29  2  . 
29  3  . 
294. 
29^. 
29  6  . 
29  7  . 

29  8  . 
299. 
330. 
33  1  . 
3D  2  » 
3D  3. 

304  . 

30  5  . 
336  . 
337. 
33  8. 
3C9. 

31 

31  1. 
312. 
31  3. 

314. 

315. 
316  . 

31  7. 
318. 
219. 
32n. 
22  1. 

32  2  . 
32  3. 
32  4  . 
32  5  . 
32  6  . 
32  7. 
32  8. 


D  •  CQPY,I  4.  fH7HM8C  .FC4R2 
a  .  COPY r I  9. ,H7hM8G  .T04R2 
^DELETE  tC  H7HM8  0D04R  2/XXX/XXX • 

3XQT  AB  C-FILE .PAUSE 

OCA T  «  P  H7HM8  0DQ4R2/X  XX/XXX . tF ///2CCC0 
OASGtA  H7HM8C004R2/X XX/XXX . 

SHEEP  H7HM8CD34R2. 

3PRKPT  PRINTS /H7HM3CDC4P2 
OXQT  ABS-FILE  .87CGENKV 
iXCT  A6S-FILE  .87CPRTHV 

1  KV  SCOREBOARO  FOR  HM  8n  ENV  04  SEED  2 

2  ir  8  5 

2  123456  42  44 

4  1  2  3  42  44 

0 ADD  f E  H7 AFPFILES.IN VHM80 
*ADD,E  7. 

«ED  7..H7KVHM8C.E04R2 

0  .  COPY  KV  FILE  FOR  KV  ROLLUP 

3A3GfT  7.  .  FOLLOWING  PROGRAM  WRITES 

<iXCT  ABS-FILE  .87QGENAL 

0  .  PRINT  THE  ALLOCATION  REPORT 

DXCT  A8S-FILE  .07CPRTKV 

1  ALLOCATION  REPORT  FOR  HM8C  ENV  C4'SEED 

2  10  8  5 

3  i  2  3  4  5  6  42  44 

4  1  2  3  42  44 

DADD  fE  H7 AFPFILES.IN  VHM8Q 
3 ADD  , E  7. 

OHDG  **  HM8C  CxPS  ENV  Q4  SEED  2  ** 
o  .  CREATE  OUTPUT  FILES  FOR  CXPS 
a  A  SG  t  T  ^9. 

3  A  SG  »  T  7C. 

3  .  RUN  THE  MERGE  MODULE 
D  .  RUN  WITH  FILES  DEVELOPED  EARLIER 
3  .  COP  Y  t  I  H7HM8D.AQ4R2.3. 

3  .  COPY, I  H7HM8G.FQ4R2 .4 . 

«  .  COPY, I  H7HM80.TQ4P2.9. 

3ER  S  7. 

aXCT  ABS-FILE  .87LCXPS 

1  1  80  E  1  1  4  2001  1 COO 

2  TRUE 

3  111111 

4  3  1 

5  1  41 

6  1  41 

S AOD  *H7GL0BAL.CVALS 
3 AOD  *HTGLQBAL.FRACT  S 

a  .  COPY  CXPS  OUTPUT  FOR  INPUTTING  TO 
•  3PATA ,L  29. 

3ENC 

aCOPYfI  29.  ,H7HH60.EC4R2 
3ASG.T  SORTCUT. 
aSORT,S 

1  VCLUM  E“SM  ALL 

2  KFY=lr5 tCHt A :67, 10*CHtA 

3  FILEINr?9. 

4  FILEOUTrSORTOUT. 
aEO  ♦  R  SORTOUT. 

1  LNP  ! 

2  EXI 

aB  RKP  T  PRINTS 
«SYM,U  H7HM80D04R2..  1 
aERS  22. 

DERS  23. 

3ERS  24. 
aERS  3. 

DERS  4. 

GERS  9. 
aERS  31. 
aERS  32 • 

DERS  34. 

3XCT  ABS-FILE  .87CMAIN 

1  1  1  1  I  1  1 

2  3 

3  FT 

4  1  62  I  60 

a  A  SG  »  T  S0RT33  •  § / // 1C  OQ 
aSORT  .ES 

1  VCLUME-SM  AL  L 

2  KEYW=3,35t36tBf A;4f35,36f8,A:2t 35»36,B, 
FILE IN-33  . 

“  FILEOUT-SORT33, 
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TO  UNIT  7 

2 


POLLUP 


A:l, 35,36,0, A 
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32  «. 

33  0. 

Ml: 

33  3. 
33  4  . 
33  5  . 
33  6  . 
3  3  7. 
33  8  . 

33  9. 

34  n. 

34  1. 
34  2  . 
34  3. 
34  4. 
34  5  . 
34  6  . 

34  7  . 
34  8  . 

34  9  . 

35  2. 
35  1  . 
352  . 
35  3  . 
354  . 
35  5  . 
356  . 

35  7. 
358. 
359  . 

36  3. 
35  1. 
362. 

35  3. 

36  4  , 

36  5  . 
366  . 
35  7. 


359  . 
37". 
37  1. 
37  2. 
37  3  . 
374  . 
37  c  . 
37  6  . 
37  7. 
373. 
37 

33". 
33  1  . 
33  2  • 
33  3  . 
33  4  . 
33  5  . 
33  6  . 
33  7  . 
33  8  . 
33°. 
39". 
39  1  . 
39  2  . 
39  3  . 
3^4  . 
39  5  . 
396  . 
39  7. 
39  8  . 

39  9  , 
4jn. 
4  u  i  . 

40  2  . 
4J3  . 

4  J4  . 

40  5  . 
4.J6  . 
43  7. 
4J8.  . 
40°. 
41". 

41  I  . 
412  . 
413. 

414  , 

415  . 
4  L  fc  . 

417. 

418. 
419  . 

42  0. 
42  1 . 


» USE  33 • , SORT  33 • 

«ASG,T  S0RT9.,///100a 
aSORT,£S 

1  VOLUME-SH  ALL 

2  KEYW^3t35,36,B,A:4,35»36,B,A:2,35,36,B»A:l,35,36,B,A 

3  FTLEXN=°. 

4  F3LE0UT-S0RT9  . 

3EQF 

3USE  9..S0RT9. 

3ASG.T  S0RT24  .,///iCGC 
65QRT ,ES 

1  VCLUKE-SM  ALL 

2  KE Y W =3 , 35, 36, B, A:4, 35, 36, B,A:2, 35, 36, B,A:1, 35, 36, 8, A 

3  FILE  IN- ?4  . 

4  FILECUT-S0RT24. 

3E0F 

3USE  24..S0PT24. 

6ASG.T  S0RT32  .t///lQCO 
&SORT  ,£S 

1  VOLUME-SMALL 

2  ME YU =3, 35  *36,B,A :4f35,36f B.A :2,35*36,B, A: lf  35,36,B, A 

3  FILc-IN-  72  . 

4  FILE0UT-S0RT32. 

6E0F 

SUSE  32 • , SO  RT  32 • 

3  •  SAVE  OIRECT  ACCESS  FILES  ALLOC,  FALLOC,  AND  TTLGS  IN  ELEMENTS 
q  A  S  G , A  H7HM6C/XXX/XXX* 

3  .  COPY, I  3.,H7HM3C  .AQ4R3 
a  .  COPY, I  4 .  ,H7HM8C  .FC4R3 

4  .  COPY, I  9 .  ,H7HM8C  .TH4R3 
^DELETE  ,C  H7HM8CDC4R  3/XXX/XXX • 
oXQ  T  ABS-FILE  .PAUSE 

3C  A  T  ,  P  H7HM8CD04R3/X  XX/XXX . ,F///2CGC0 
u ASG  ,  A  H7Hh8CDG4R3/X XX/XXX . 

3K  E  £P  HTH  M8  CD  j4R  3 • 
ciPRKPT  PR  INT5/H7HM8CD04P3 
GXQT  ABS-FILE  .87QGENKV 
uXC  T  ABS-FILE  .67GPRTKV 

1  KV  SCOREBOARD  FOR  HM  60  ENV  C4  SEED  3 

2  ir  3  5 

3  123456  42  44 

4  1  2  3  42  44 

OADG.E  H7AFPFILES.IN VHM60 
6 AGO  *  E  7. 

GEO  7 . ,H7K VHH80  .E04R 3 
6  .  COPY  KV  FILE  FOR  KV  ROLLUP 

6  A  S  0 , T  7.  .  FOLLOWING  PROGRAM  WRITES  TO  UNIT  7 

aX^T  ABS-FILE  .87CGEN AL 
a  .  PRINT  THE  ALLOCATION  REPORT 
o  XC  T  ABS-FILE  .87CPRTKV 

2  ALLOCATION  REPORT  FOR  HM8C  ENV  04  SEED  3 

Z  10  8  5 

3  123456  42  44 

4  1  2  3  4?  44 

3A0D,£  H7AFPFILES.IN VHM8Q 

q» A OD  , E 

iHOG  **  HM80  CXPS  ENV  J4  SEED  3  ** 
a  .  CRFATE  OUTPUT  FILES  FOP  CXPS 
6  A3G  ,  T  29. 
u  A  SG  ,  T  TO. 

a  .  RUN  THE  MERGE  MODULE 

a  .  RUN  WITH  FILES  DEVELOPED  EARLIER 

a  .  COPY, I  H7HM8G . AC 4P3 ,3 . 

a  .  COPY, I  H7HM8C.FC4P3 . 4  . 

a  .  COPY, I  H7HM3G.TQ4R3 ,9. 

aERS  7. 

oXCT  ABS-FILE  .87CCXPS 

1  1  SO  E  1  X  4  2D0 1  1CQQ 

2  T°UE 

3  111111 

4  3  1 

5  1  41 

6  1  41 

3 AOD  *H^GLOB AL.CVALS 
3 A  DO  *H7GL0BAL.FRACT S 

o  .  COPY  CXPS  OUTPUT  FOR  INPUTTING  TO  ROLLUP 

u  C  A  T  A , L  29. 

ucNO 

aCOPY.I  29. ,H7HM8D.E G4R3 
3  A  S  G  ,  T  SORTOUT. 
dSGRT  ,S 

1  VOLUME-SMALL 

2  K^Y-1,5»CHTA:67,1D,CH,A 

3  FILEIN-79 . 

4  FILEOUT-SORTOUT • 
uiEO  T  R  SORTOUT. 

1  LNP  ! 

2  EXI 

uPRKPT  PRINTS 
a  S Y M , U  H7HM8GDC4R  3 • ,  l 
c»F  I N 
<*ECF 


SSG  GENERATED  OUTPUT  STREAM  PART  } 

Figure  D-ll.  SSG  Example  2 
(page  10  of  10  pages) 
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D-5.  MAIN  PROGRAM  OF  FIREPOWER  AND  COUNTERFIREPOWER  MODULE.  This 
paragraph  presents  the  source  programs  and  general  logic  of  the  main 
program  of  the  AFP  Combat  Module.  It  highlights  relations  among  variables 
and  arrays,  subroutines,  input  and  output  files,  and  some  preprocessors. 
Considerable  referencing  to  other  paragraphs  and  this  appendix's  annexes 
may  be  required.  Most  routines  contain  enough  comments  for  someone  to 
track  data  and  program  flow.  On  the  other  hand,  it  is  not  easy  to  follow 
all  interactions  within  the  Combat  Module.  Subroutine  arguments  may  be 
defined  in  calling  or  called  routines. 

a.  General 

(1)  Figure  D-12  provides  a  schematic  diagram  of  the  relation  among 
many  input  and  output  files  and  corresponding  routines  (MAIN,  CNFAOC, 

INPUT,  FRCALC,  DIRIO,  and  OUTPT)  of  the  Main  Program  of  the  AFP  Combat 
Module.  Figure  D-12  implies  the  relation  of  many  of  the  following  para¬ 
graphs  of  this  section  to  other  sections  (e.g.,  input  and  output)  of  this 
appendix  and  to  the  appendix's  annexes. 

(2)  The  principal  purpose  of  the  Main  Program  of  the  AFP  Combat 
Module  is  to  provide  estimates  of  the  kills  and  losses  by  weapon  type  for 
two  opposing  sides  in  a  specific  combat  environment.  In  brief,  the  purpose 
is  to  generate  K/V  scoreboards.  Kills  and  losses  are  subject  to  probabili¬ 
ties.  Although  many  replications  and  different  environments  can,  in 
principle,  be  examined  in  a  single  execution  of  the  Combat  Module,  the 
preferred,  standard  approach  is  to  execute  the  Main  Program  separately  for 
each  combination  of  random  number  seed  and  combat  environment.'  The  purpose 
of  AFP  in  total  extends  beyond  the  generation  of  K/V  scoreboards  to  the 
transformation  of  many  replications  of  K/V  scoreboards  across  many  combat 
environments  into  measures  of  combat  potential  of  equipment  and  units. 

(3)  The  Main  Program  of  the  Combat  Module  may  be  divided  logically 
into  two  parts. 

(a)  The  first  part  processes  surviving  inventories,  type-on-type 
preference  and  participation  factors,  and  prescribed  range  distributions  in 
order  to  generate  the  specific  matchups  of  opposing  weapon  types.  The 
first  part  is  described  in  total  as  the  "allocation  processor." 

(b)  The  second  part  is  primarily  devoted  to  detection,  shooting, 
and  kill/survivor  assessment  among  the  previously  allocated  weapons.  The 
second  part  does  perform  some  additional  allocation  of  area  fire  weapons. 
However,  the  second  part  is  described  in  total  simply  as  the  "attrition 
processor." 
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Figure  D-12.  Schematic  Representation  of  Relation  among  AFP 
Input/Output  Files  and  the  Combat  Module  Routines 
that  Create  or  Use  Files 
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(c)  Several  subroutines  of  the  Main  Program  of  the  Combat  Module 
may  be  clearly  assigned  to  one  of  the  two  principal  processes--allocation 
or  attrition. _  These  assignments  are  shown  in  Figure  D-13.  Figure  D-13 
also  briefly  identifies  the  tasks  performed  by  the  included  subroutines. 
These  subroutines,  along  with  all  others,  are  described  in  greater  detail 
in  paragraph  D-5c.  The  allocation  and  attrition  processes  and  their  indi¬ 
vidual  subroutines  are  embedded  in  a  somewhat  complex  looping  structure 
addressed  later.  Figure  D-13  suggests  a  very  general  flow  in  the  sense  of 
what  subprocesses  must  precede  others,  but  does  not  convey  anything  of  the 
module's  real  looping/nesting  structure. 

(d)  Figure  D-14  outlines  the  nesting  structure  of  the  main  program 
of  the  Combat  Module.  Each  block  in  Figure  D-14  represents  a  logical  loop. 
For  example,  the  block  referred  to  as  "REPS"  represents  the  loop  over 
replications.  The  next  block,  called  "DAYS,"  is  a  loop  over  the  days.  The 
fact  that  the  DAYS  block  is  contained  within  the  REPS  block  indicates  that 
the  DAYS  loop  is  nested  within  the  REPS  loop.  As  noted  above,  standard  AFP 
practice  is  to  limit  program  execution  to  a  single  replication  and  single 
environment  within  a  single  run  of  the  module.  Hence,  the  REPS  and 
ENVIRONMENT  loop  are  degenerate. 

(e)  Figure  D-15  is  an  expansion  of  the  preceding  Figure  D-14.  Only 
the  top  and  bottom  lines  of  each  block  from  Figure  D-14  have  been  retained. 
Each  block  in  Figure  D-15  identifies  the  tasks  performed  within  that  block. 
Note  that  specific  subroutines  are  shown  in  relation  to  their  corresponding 
nested  blocks  (and  loops).  Looping  is  controlled  by  the  MAIN  subprogram  of 
the  module. 

b.  FORTRAN  PROCS,  Common  Blocks,  Arrays,  Variables,  Parameters,  and  Files 

(1)  Figure  D-16  provides  a  listing  of  the  symbolic  element  PROCS. 
FORTRAN  common  blocks,  used  throughout  the  program,  are  identified.  The 
routines  in  which  the  blocks  are  referenced  are  shown.  The  common  blocks 
defined  are  FORTRAN  procs  in  accord  with  the  UNIVAC  PDP  processor's  FORTRAN 
conventions.  Many  of  the  arrays  defined  in  the  common  blocks  have  dimen¬ 
sions  defined  as  FORTRAN  parameters.  The  parameter  values  applied  in  the 
current  version  of  the  Combat  Module  are  set  as  shown  beginning  at  line  188 
in  the  FORTRAN  proc  named  PARM.  Some  of  the  parameters  are  named  mnemoni- 
cally.  Many  of  the  Combat  Module's  file  usages  are  identified  beginning  at 
line  244  in  Figure  D-16. 

(2)  Table  D-2  provides  brief  notes  about  many  of  the  common  blocks, 
arrays,  and  variables  listed  in  Figure  D-16. 
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ALLOCATION 

PROCESSOR 


ATTRITION 

PROCESSOR 


T-ASE 


SUBROUTINE 

FLOW 


Compute  type  on  type 
allocations 


Compute  the  duel  odds 
and  numbers  at  each 
range 


Apportion  indirect 
firers  to  each  range 
band  and  environment 


Generate  status  table 
and  compute  the 
number  of  direct 
shot  cycles 


Generate  times  of  fire 
for  direct  fire 
weapon 


Compute  kills  by 
by  indirect  fire 


Compute  direct  fire 
kills  due  to  duels 
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Figure  D-13.  Principal  Subroutines  of  the  Weapon  Allocation  and 
Attrition  Processes  within  the  Main  Program 
of  the  AFP  Combat  Module 
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© 


© 


REPS 

DAYS 


© 


© 


© 


TYPS,  SIDE  1 
TYPS,  SIDE  2 
ENVIRONMENT 

—  RANGE 

—  CONFLICT 
-  SHOT  — 


Figure  D-14.  Logical  Nesting  Structure  of  the  Main  Program  of 

the  AFP  Combat  Module 
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REP 

DAYS 

1_.  Call  FRCALC  -  Compute  the  overall  initial  allocations  of  each  pair 
of  opposing  types  to  each  other. 

2.  Call  OUTPT  -  Write  out  these  allocations. 

TYPES,  SIDE  1 

1^.  Call  DIRIO  -  Read  in  the  cumulative  kills  to  date,  the  number  of 
instances  direct  fire  weapons  participated  in  duels,  and  the 
appropriate  entries  in  the  projections  file. 

2.  Write  out  the  post  participation  allocations. 

TYPES,  SIDE  2 

1.  Call  CNFALC  -  Compute  the  number  of  opposing  types  at  each  range 
as  well  as  the  number  of  duels  at  each  range  for  each  odds. 

2.  Call  EXTASG  -  Compute  the  number  of  indirect  weapons  allocated 
against  each  of  the  two  opposing  types  at  each  range  band. 

ENVIRONMENTS 

Read  in  the  appropriate  pks. 


RANGES 

CONFLICTS 

1.  Call  CNFLC1  -  Compute  the  number  of  opposing  types  and  the  number 
of  duels  for  the  given  conflict  at  the  given  range  and 
environment. 

2.  Call  STPREP  -  Set  up  a  table  with  one  entry  for  each  duel  in  the 
conflict,  for  the  given  types,  range  and  environment. 


Figure  D-15.  Expanded  View  of  the  Logical  Nesting  (and  Looping) 
Structure  of  the  Main  Program  of  the 
AFP  Combat  Module 
(page  1  of  2  pages) 
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SHOTS 

Call  CNFTMS  -  Generate  time  to  fire  for  each  weapon  requiring  one.  Ini¬ 
tially,  all  weapons  require  a  time.  Thereafter,  a  time  must  be  generated 
only  for  surviving  weapons  that  have  fired  in  the  last  round.  The  time  is 
generated  either  by  time  to  detect  logic  or  by  time  to  refire. 

Call  EXTKLS  -  Compute  kills  due  to  interference  in  the  duels  by  indirect 
fire. 

Call  DIRKLS  -  Compute  kills  resulting  from  the  duels. 

END  OF  SHOT  BLOCK 
END  OF  CONFLICTS  BLOCK 
END  OF  RANGE  BLOCK 
END  OF  ENVIRONMENT  BLOCK 


Write  out  the  external  shot  counts 


END  OF  TYPES,  SIDE  2  BLOCK 

Write  out  the  cumulative  k.ills 

Write  out  the  number  of  duel  participations 

Write  out  the  type  by  type  loss  table 

END  OF  TYPES,  SIDE  1  BLOCK 

Write  out  the  indirect  kills 

Write  out  the  number  of  indirect  firer  involvements  in 
duels 

Write  out  the  shot  data  for  duels  and  the  ammo  type 
table 

Write  out  the  maximum  number  of  duels  and  the  maximum 
odds 


Figure  D-15.  Expanded  View  of  the  Logical  Nesting  (and  Looping) 
Structure  of  the  Main  Program  of  the 
AFP  Combat  Module 
(page  2  of  2  pages) 
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81 


C  CODES  USED  IN  NAMING  THE  COMMON  «LOCKS 
C  I  INPUT 

C  M  PAIN 

C  1  FRCALC 

C  2  D I RI 0 

C  3  CNFALC 

C  4  STPREP 

C  5  CNFTMS 

C  6  EXTKLS 

C  7  DIRKLS 

C  8  CNFLC1 

BK  1  PROC 

C  USED  IN  INPUT,  MAIN,  FRCALC,  DIRIO,  CNFALC,  STPREP,  EXTKLS,  DIRKLS 

C  OMMON / C 1  TO  5  7  /NTYPS<2), CASE, PREF1,PREF2,PREF3,PREF4, INSEED, DSEED 
INTEGER  CASE,  PREF1,  PREF2,  P  R  E  F3 ,  PREF4 
DOUBLE  PRECISION  DSEED 

END 

6K2  PROC 

C  USED  IN  *  A I N ,  CNFALC,  STPREP,  CNFTMS,  EXTKLS,  DIRKLS 

C0MM0N/C34567/TYPS (2)  ,  SMALER,  BIGGER,  STATUS (ICQNFL,ILEN)  ,CNFLCT, 

*  CSHOTS  (2  ,  ICONFU 

INTEGER  TYPS,  SMALER,  BIGGER,  CNF  L  C  T ,  CSHOTS 

END 

B  K  3  PROC 

C  USED  IN  INPUT,  MAIN,  STPREP,  EXTKLS 
C 

COMMON/C  IM46  /IOUNIT,  OUTFIL,  NSTAGE,  NSTAGO,  NDAYS 
INTEGER  OUTFIL 

END 

B  K  4  PROC 

C  USED  IN  CNFALC,  STPREP 
C 

C  OMMON / C  3  4  /NODDS,  ODOSC2),  C0NFL0(2,IRANGE,IENVIR) 

INTEGER  ODDS,  CONFL0 

END 

B  K  5  PROC 

C  USED  IN  INPUT,  CNFTMS 
C 

C0MM0N/CI5  /LIMITS(2,ITYPS,2), 

*  SENS0R(2,ITYP$,IENVIR,2),  SI7EC2, ITYPS, IENVIR), 

*  CNTR$T(2,ITYPS, IENVIR, ISGNTR) ,  L  I  G HT ( I EN V  I  R  )  ,  MAG(ISENSR), 

*  ATTN <  ISENSR  ,  I  ENVIR 3  ,  B R I G H T (I E N V  I R )  ,  R C D E T  (  2  , 1 T Y P S )  ,  NDTCTN, 

*  NS2DCT(2,ITYPS3 
INTE6ER  SENSOR 
REAL  LIGHT, PAG 

END 

B  K  6  PROC 

C  USED  IN  INPUT,  MAIN,  EXTKLS,  DIRKLS 
C 

C0MP0N/CI*67  /NOEXT(2),EXT(2,IEXT, ITYPS, IENVIR, IRANGE) 

*  ,EXTN(2,IEXT,IENVIR,IRANGE,ICDPTH) 

*  , EXTK ( 2, IE  XT , I ENVIR, I  RANGE , ICDPTH) ,  EXTPER(2,IEXT) 

*  ,EXTN1(2,IEXT,IENVIR,IRANGE),  SHOTS(2,IENVIR,IRANGE3 

*  ,AMOTYP(2,ITYPS,ITYPS3,  ESHOTS<2,IEXT.  IENVIR, IRANGE) 

*  ,6WPNS (2, 1 TYPS, I ENVIR, I  RANGE) , IN D D S T ( 2 , I E X T , I  RANGE) ,LESDNS (2) 

*  , INDPAP < 2 , I  EXT,  ITYPS 3 

INTEGER  EXTK,  EXTN1,  SHOTS,  AMOTYP,  BWPNS 
REAL  INDDST,  INDPAR 
LOGICAL  LESDNS 

END 

9  K  7  PROC 

C  USED  IN  MAIN,  FRCALC,  EXTKLS 
C 

COKMON/CMIc  /  IOPTR3 

END 

8  K  £>  PROC 

C  USED  IN  INPUT,  MAIN,  FRCALC 
C 

COMMON/C  1*1  /INSERTCIPHASE,2,ITYPS3,  EXTLOSC2,  ITYPS), 

*  PHASE  CIDAYS) 

INTEGER  PHASE 

END 

BK  9  PROC 

C  USED  IN  INPUT,  CNFALC,  DIRKLS' 

COMMON /C  137  /ENVDST(IENVIR) 

END 

B  K  1  0  PROC 

C  USED  IN  MAIN,  DIRIO,  DIRKLS 


Figure  D-16.  Listing  of  FORTRAN  Procs  Identifying  Common  Blocks, 
Variables,  Arrays,  and  Parameters  of  the  Main  Program 
of  the  AFP  Combat  Module 
(page  1  of  4  pages) 

(See  Table  D-2  for  definitions  of  many  of  the  variables  and  arrays) 
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82 

83 

84 

85 

86 
87 
68 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
1  G  2 
103 
1  04 
105 
1  C6 

107 

108 
1  G9 
110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
1  22 

123 

124 

125 
1  26 
1  27 
128 
1  29 
1  30 

131 

132 
1  33 

134 

135 

136 
1  37 
1  38 
1  39 
1  40 

141 

142 

143 

144 

145 

146 

147 
1  48 
1  49 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
1  62 
163 


C 

COMMON/ CM2  7  /  I0PTR4,  CKILLS(?,ITYPS2,7) 

INTEGER  CKILLS 

END 

B  K  1  1  PROC 

C  USED  IN  MAIN,  STPREP,  DIRKLS 
C 

C0MM0N/CM47  /  P  K  S  <  2  ,  I  T  Y  P  S  ,  I  P  K  $  ,  I  R  A  N  G  E  )  ,  MAXCON, 

*  IU1S,  IU1T1,  IU1T2,  KEYU1,  PK  1 (IRANGE) 

END 

B  K  1  2  PROC 

C  USED  IN  MAIN,  CNFALC 
C 

COMMON/CM?  /MAXODS 

END 

B  K  1  3  PROC 

C  USED  IN  MAIN,  FRCALC,  DIRIO,  EXTKLS 
C 

COMMON/CM126  /F0RCESC2, ITYPS, ITYPS) 

INTE6ER  FORCES 

END 

9K14  PROC 

C  USED  IN  CNFALC , EXTKLS 
C 

C0MM0N/C36  / C  TR ( 2  5  ,DAYST(2) 

*  ,SAVIT(4) 

INTEGER  CTR  ,  DAYST,  SAVIT 

END 

BK15  PROC 

C  USED  IN  EXTKLS,  DIRKLS 
C 

COMMON/C67  /AT6MP(3,IPKS) 

END 

3  K  1  6  PROC 

C  USED  IN  MAIN,  CNFALC,  DIRIO,  STPREP 
COMMON  / C  M2  3  4  f  P R 0 J C T ( I T Y P S , 5 ) 

REAL  PROJCT 

END 

B  K 1 7  PROC 

C  USED  IN  MAIN,  FRCALC,  EXTKLS,  DI&KLS 

COMMON  / C  Ml  6  7/  WPNS(2,ITYPS),WPNS1(?,ITYPS) 

*  , DUELS ( IENVIR , IRANGE, ICDPTH, 5) 

*  ,TMS(2, IENVIR, IRANGE, ICDPTH, c),  WPNS11(2,ITYPS) 
INTEGER  WPNS,  WPNS1,  DUELS,  W  P  N  $  1 1 

END 

B  K 1 8  PROC 

C  USED  IN  CNFTMS,  DIRKLS 

PARAMETER  R  M  A  X  T  =  2  •  0  *  *  3  0 

END 

B  K 1 9  PROC 

C  USED  IN  MAIN,  CNFALC,  EXTKLS,  DIRKLS 
COMMON  / C  M36  7 /  FQRCS1  (2) 

INTEGER  FOR  C  S 1 

END 

B  K  2  0  PROC 

C  USED  IN  MAIN,  INPUT,  CNFALC 
COMMON  /CIM**/  NENV1R 

ENO 

9  K  2  1  PROC 

C  USED  IN  M  A  I  N  ,  D  I  0  1 0  ,  CNFALC,  DIRKLS 
COMMON  /  C  M2  3  7  /  NUMWPN ( I TY PS , 2 ) 

END 

B  K  2  2  PROC 

C  USED  IN  INPUT,  STPREP,  CNFTMS 

COMMON  / C I  4  5  /  RE F IRE <2 , JTYPS , ITYPS , I ENV I R  ) 

END 

8K22  PROC 

C  USED  IN  M  A  I N ,  CNFALC,  DIRKLS 

COMMON  /  C  M3  7  /FORCS2C2),NOTPAR(2,IENVIR. IRANGE) 
INTEGER  FORCS'2  ,  NOT  P  A  R 

END 

B  K  2  4  PRCC 

C  USED  IN  CNFALC,  DIRKLS 

COMMON  / C  3  7  /  RNGDST (IRANGE) 

END 

8 K  2  5  PROC 

C  USED  IN  MAIN,  INPUT,  CNFLC1,  EXTKLS,  DIRKLS 

C0MM0N/CIM678/  LOGCICDPTH, 2, ITYPS, 9), LOGIT, STATE 
LOGICAL  LOGIT, STATE 

END 

5K27  PROC 

C  USED  FOR  OUTPUT  FILES 
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164 

165 

166 
167 
163 

169 

170 

171 

172 

173 

174 

175 
1  76 
177 
173 
1  79 
180 
1S1 
182 

183 

184 

165 

166 
187 
183 
169 
1  90 
191 
1  92 

193 

194 
1  95 
196 
1  97 
198 

1  99 
200 

2  Cl 
202 

203 

204 

205 
2  06 

207 

208 

209 

210 
211 
212 

213 

214 

215 
2  16 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 
227 
223 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 
2  44 
245 


COMMON  / C  M6  7 /  TTLQS(2,ITL0S,IENVIR,IRANGE) 
INTEGER  TTLOS 

END 

B  K  2  £  PROC 

C  USED  IN  CIPS,  COPS,  AND  AFP  FILE  GENERATION 


PARAMETER  ITT0VC=4,  ITT0TC=12,  IINf-1 

COMMON  /01 2  3 /  TT0VC(2,ITYPS,ITT0VC),  CTOVC ( 2, I TTOTC , ITTOVC 3 
8  ,  STOVC (2, ITT0VC3  ,  PERK ( 2 , I TYPS)  .  IVCM(2),  I C  M  C  2 ) 

&  ,  CKI  L$  KITY  PS  1, I  TYPS2, 2),  PLOSSC2,ITYPS,ITYPS,3) 

&  ,  TPTOVC  (2,ITYPS),  TPT0TC(2,ITYPS)  ,  N0S(21ITYPS) 

&  ,  CIPS1  (2,ITYPS,ITTOVC),JTTOVCr2)  ,JTT0TC<2) 

8  ,  L0SSES<2,ITYPS)  ,  FAC(2,ITYPS) 

INTEGER  TPTOVC,  TPTOTC 

REAL  PLOSS,  CKILS1,  PERK,  TTOVC,  CTOVC,  STOVC,  NOS,  C I  PS  1  ,  LOSSES 


END 
BK29 
C 


PROC 

USED  IN  INDLOS ,TPXTP 

C0MM0N/C0M1 /INLOSS (2,  ITLOS) 

END 

PARM  PROC 

C  USED  IN  INPUT,  MAIN,  FRCALC,  DIRIO,  CNFALC,  STPREP, 

C  CNfTMS,  EXTKLS,  DIRKLS 

C 

C  GENERAL  USAGE  PARAMETERS 

PARAMETER  SMALL1=. 00001, SMALL2=. 000 001 
PARAMETER  IPHASE=2,IDAYS=2?ICDPTH=5 
PARAMETER  I OD D S =50 , I E N V I R = 1 , I P ANGE =6 , I S GNTR =2 
PARAMETER  ICONFL  =  1  500  ,ISTAGE  =  1000  00C(J,IPKS=4 

PARAMETER  ITYPS1=6Q,ITYPS2=60,ITYPS=MAX(ITYPS1,ITYP$2),IREPS=1 
PARAMETER  LNCNT=30 

PARAMETER  IP0S=4f  IDAY-2,  IVIS=2,  ICIPTP=4 

PARAMETER  I  C  A  S  E  =  I  P  0  S  *  I  V  I  S  *  I  D  A  Y  ,  I THT  R*1 ,  ITPD=1,  IC0*B0=1 
PARAMETER  I P 1  -  ICASE*ITHTR  ,  IP7=1 

PARAMETER  IP4=ITHTR*ICASE,  IP?=ITHTR*ICASE*ITPD 
PARAMETER  IP5=IC0MB0*ITHTR*ICASE*ITPD 
C  PARAMETERS  FOR  THE  EXTERNAL  KILLS 

PARAMETER  I E XT1 »1 0 , 1 EXT2*1 0 , I EXT=MAX ( I  EXT  1 , 1  EXT 2 ) 

PARAMETER  ILEN=I0DDS*3,  ITL0S=IEXT*1 
C  PARAMETERS  FOR  DIRECT  I/O 

PARAMETER  N11=ITYPS*IENVIR,N12=IENVIR,IU1=20 
PARAMETER  IRSZ1=3+IRANGE 
PARAMETER  N21=ITYPS2,IU2=21 

PARAMETER  NR2=IP1*ITYPS1*N21,IRSZ2=IRANGE*4*10 
PARAMETER  N R 6  =  1  PI ♦ I TY PS 1 , I R S Z 6=5* I TYP S * 6+ 1 0  *  I U6 -2 5 
PARAMETER  NR7=IP1*2*ITYPS, I  R  S  Z  7-2  ♦  I  T  Y  P  S  *8  ♦  1  (J  ,  I  U 7  =  2  6 
PARAMETER  N84=IRANGE,N83=IENVIR*N84,N82=ITYPS*N83 
S  ,N81=IDAYS*N82,N30=IREPS*N*1 
PARAMETER  N  R  8  =  I  P  3  *  2  *  N  8  G 

PARAMETER  iRSZ8=ICDPTH*ITYP$*9*6+10,IU8=27 
C  PARAMETERS  FOR  DETECT  INTERFACES 
PARAMETER  I$ENSR=50 

C  PARAMETERS  FOR  CKILLS  DIRECT  ACCESS  I/O 
PARAMETER  N  3 1  =  I  T  Y  P  S  1  ,  I  U  3  =  2  2 

PARAMETER  NR3  =  IP5*IR£PS*N31,IRSZ3  =  2MTYPS2*7*6*10 
PARAMETER  N 4 1  =  I T Y P S 1 , I U 4  =  2 3 

PARAMETER  NR4=IP3*IREPS*N41,IPSZ4=2*ITYPS*6+10 
PARAMETER  1U5=24 

PARAMETER  I R  S  Z  5  =  4  ♦  2*2  +  IEXT*IENVIR*IRANGE*ICDPTH 
PARAMETER  N9Q=IREPS,  IU9=3 

PARAMETER  NR  9  =  1 P5*I REPS  *1  DAYS, IRS  Z9  =  2* I TYPS *1 TYPS  *6+10 
PARAMETER  NlOO  =  IREPS,  N 1 0 1 = I R E P S *  I D A Y S ,  IU10  =  4 
PARAMETER  NR10=IP5*N101*ITYPS1,ZRSZ10=2*ITYPS2*6+10 
PARAMETER  NRl1=IP5*ICIPTP,IUl1=7fIRSZ11=2*ITYPS*ICIPTP*1O+10 
PARAMETER  N R 1 2  =  I P 5  *  I C I PTP , I U1 2  =  8 , I R S Z 1 2 =2  *  I T Y P S *  I C I PT P *  1 0  +  1 0 
PARAMETER  NR14=IP3»IREPS*IDAYS*ITYPS1+ITYPS2,  I U 1 4=31 
8  ,IRSZ14=(3MENVIRMRANGE*ICDPTH*5)  +  1G 

PARAMETER  IU15=32,IRSZ15*5*2MENVIR*IRANGE*ICDPTH*5 
C  PARAMETERS  FOR  NON-DIRECT  ACCESS  FILES 

PARAMETER  Nl32=IREPS,  N  1  3  1  =  I  D  A  Y  S  *  N  1  3  2  ,  IU13=9 
PARAMETER  I R S Z 1 3  =  2 *  I TLOS *  I EN V  I R *1 R A NG E ♦ 4 

PARAMETER  IUIN1=1C,  IUIN2=11,  IUIN3=12,  IUIN4=13,  IUIN6=15 
PARAMETER  IUIN7=16,  IUIN8=14. 

PARAMETER  IUOUT3=33,  IRSZU3=4 
8  IFANGE*IENVIR*2 


IAFPIN=17,  I UOUT 1 = 1 8 
♦  IRANGE*IENVIR*IEXT*2 


INPUT  FILES 


NUMBER 


UNIT 


FORMAT 
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246 

C 

0  3  P  K  S  3  A 

10 

IUI  N1 

2  4  F  3  *  3 

247 

c 

C3RNGDST3A 

1  1 

IUIN2 

2413 

243 

c 

03PRE  F3 A 

12 

I  U I  N  3 

FREE 

249 

c 

03PROJ3A 

1  3 

IUIN4 

FREE 

250 

c 

03KILLSD3 

15 

IUIN6 

FREE 

251 

c 

03C  IPSD3 

16 

IUIN7 

FREE 

252 

c 

03CSCSS 

1  4 

IUIN8 

FREE 

253 

c 

03AFPIN 

17 

IUIN9 

IN  SPECS 

254 

'  c 

255 

c 

FILE  TO  UNIT 

ASSOCIATIONS 

256 

c 

257 

c 

FILE 

UNIT 

NUMBER 

FORMAT 

253 

c 

259 

c 

PKS 

IU1 

20 

UNFORMATTED 

(BINARY) 

260 

c 

RNGOST 

I U  2 

21 

F4.2 

2  61 

c 

CKILLS 

I  U  3 

22 

16 

262 

c 

NUMWPN 

IU4 

23 

16 

263 

c 

EXT 

I  U  5 

24 

UNFORMATTED 

(BINARY) 

264 

c 

PRQJCT 

IU6 

25 

F  6  •  2 

265 

c 

PRE  F 

I  U  7 

26 

F  8  •  6 

266 

c 

LOG 

I  U  8 

27 

16 

267 

c 

ALLOCATE 

I  U  9 

3 

16 

268 

c 

F ALLOC 

IU1  0 

4 

16 

269 

c 

C  IPS 

lull 

7 

F10.3 

270 

c 

COPS 

I  U 1  2 

8 

F10.3 

271 

c 

ttlos 

IU1  3 

9 

UNFORMATTED 

(BINARY ) 

272 

c 

AFPIN 

IAFPIN 

17 

IN  SPECS 

273 

c 

A  FPOUT 

IUOUT1 

18 

IN  SPECS 

274 

c 

ESHOTS  t  SHOTS 

IUOUT3 

33 

UNFORMATTED 

(BINARY ) 

275 

c 

DUELS 

I  U  1  4 

31 

15 

276 

c 

TIMES 

IU1  5 

32 

UN  FORMATTED 

(BINARY) 

277 

END 
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Table  D-2. 

Notes  on  AFP  Combat  Module  Common  Blocks, 

Variables,  and  Arrays 
(page  1  of  5  pages) 

Blocks/Variable  name 

Description 

BK1 

NTYPS  Ia  lb 

Number  of  types  on  each  side 

CASE  I  C 

A  coded  integer  encoding  the  visibility,  day/night 
and  posture 

INSEED  I  I 

Pointer  to  a  seed  ID  for  F IMSLU 

DSEED  D  C 

Contains  seed  for  DETECT 

BK2 

TYPS  I  C 

The  IDs  of  the  weapon  type  we're  examining,  one 
for  each  side 

SiMALER  I  C 

The  side  having  less  weapons  in  the  conflict  at 
hand 

BIGGER  I  C 

The  side  having  more  weapons  in  the  conflict  at 
hand 

CNFLCT  I  C 

The  number  of  duels  in  the  conflict  at  hand 

BK3 

IOUNIT  I  C 

Input  unit  for  symbolic  file 

OUTFIL  I  C 

Unit  number  for  printed  output 

NSTAGE  I  C 

The  expected  number  of  shots  in  each  duel  of  the 
conf 1 ict 

NSTAGEO  I  I 

The  maximum  number  of  shots  allowed  in  any  duel  in 
any  conflict 

NDAYS  I  I 

The  number  of  days  in  the  battle 

aIn  the  first  column,  I  denotes  integer  variable  type;  R  denotes  real 
variable  type;  D  denotes  double  precision  variable  type;  and  L  denotes  logi 
cal  variable  type. 

bln  the  second  column,  I  denotes  input  and  C  denotes  computed. 
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Table  D-2. 

Notes  on  AFP  Combat  Module  Common  Blocks, 

Variables,  and  Arrays 
(page  2  of  5  pages) 

Blocks/Variable  name 

Description 

BK4 

NODDS  I  C 

Number  of  odds  in  the  conflict  (maximum  of  two, 
initially) 

ODDS  I  C 

The  initial  odds  at  which  duels  start  out 

CONFLO  I  C 

The  number  of  duels  by  range  and  environment 

BK5 

LIMITS  I  I 

The  ranges  (encoded  1-6)  between  which  the  weapons 
are  effective 

SENSOR  I  I 

The  sensor  ID  and  the  ID  of  the  medium  sensed 
(e.g.,  light,  heat)  for  each  weapon  type 

SIZE  R  I 

Size  of  targets  (minimum  dimension  in  meters/2)2 

CNTRST  R  I 

Contrast  thermal  measured  in  degrees  centigrade 
Contrast  optical  measured  in  foot-candles 

LIGHT  R  I 

Light  level  measured  in  foot-candles 

MAG  R  I 

Magnification 

ATTN  R  I 

Attenuation  fractional  reduction  in  intensity  are 
kilometer  traveled 

BRIGHT  R  I 

Brightness  level  sky  to  ground  brightness  ratio 
(no  units) 

BK6 

NOEXT  I  I 

Number  of  types  capable  of  indirect  fire  on  each 
side;  by  convention,  these  must  be  the  last  types 
on  each  side 

EXT  I  C 

Combined  preference  and  participation  factors 
against  each  target  type  for  each  indirect  shooter, 
and  the  kills/round  for  that  shooter-target  com¬ 
bination 

EXTN  I  C 

Number  of  indirect  assignments  for  each  indirect 
shooter  against  each  target  type 
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Table  D-2. 


Notes  on  AFP  Combat  Module 
Variables,  and  Arrays 
(page  3  of  5  pages) 


Common  Blocks 


* 


Blocks/Variable  name 


Description 


EXTK  I  C 
EXTN1  I  C 

SHOTS  I  C 
AMOTYP  I  I 

ESHOTS  I  C 


Kills  by  indirect  shooter  by  target  type 

Initial  daily  allocation  of  indirect  shooter 
against  targets 

Direct  fire  shots  by  shooter  and  target  type 

Coded  table  giving  ammo  type  used  for  each 
shooter/target  combination 

External  shot  counts,  recomputed  for  each  type  or 
type  combination 


BK8 

INSERT 


Initial  weapons  entering  battle  at  start  of  day 
and  reinforcements 


PHASE  I  C 


EXTLOS  R  I 
BK9 

ENVDST  I  C 


Grouping  of  days;  currently  day  1  is  in  Phase  1 
and  days  2  through  180  are  in  Phase  2 

Losses  due  to  external  (extraneous)  causes 
Environmental  distribution 


BK10 

CKILLS  I  C  Cumulative  direct  fire  kills  by  kill  category 

BK11 

PKS  R  I  Direct  fire  PKS 


MAXCON  I  C 


Maximum  number  of  duels  encountered 


BK12 

MAXODS  I  C  The  largest  offered  encountered  in  the  model 
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Blocks/Variable  name 


Description 


BK13 

FORCES  I  C 

BK16 

PROJCT  R  I 


BK17 

WPNS  R  I 

WPNSI  I  C 

BK18 

RMAXT  R  C 

BK19 

FORCSI  I  C 

BK20 

NENVIR  I  I 

BK21 

NUMWPN  I  C 


The  initial  daily  type  or  type  preparticipation 
force  allocations  for  direct  fire  weapons 


Contains  participation  rates,  duration  of 
conflict  in  minutes,  number  of  sites  (only  one 
conflict  site  currently),  and  consecutive 
conflict/day  for  each  type  or  type  weapon  combina¬ 
tion 


The  daily  weapon  allocation  for  each  type  on  each 
side,  reduced  as  losses  occur 

The  initial  daily  weapon  allocations  for  each  type 
on  each  side,  unreduced 


2^0,  used  to  indicate  opposing  weapons  out  of 
range/zero  PK  for  direct  fire  weapons  (2^9 
indicates  nondetection) 


The  currect  total  number  of  surviving  weapons  for 
the  weapon  types  being  processed;  the  total  is 
across  all  conflicts 


The  number  of  environments  in  which  conflicts 
occur.  Currently  =  1 


The  number  of  direct  fire  weapons  assigned; 
cumulative  during  battle 
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Table  D-2.  Notes  on  AFP  Combat  Module  Common  Blocks, 
Variables,  and  Arrays 
(page  5  of  5  pages) 


Blocks/Variable  name 

Description 

BK22 

REFIRE 

R 

C 

Refire  time  in  minutes  for  each  shooter  and  target 
type 

BK23 

F0RCS2 

I 

C 

The  current  number  of  weapons  for  the  two  types  in 
a  particular  conflict,  decremented  as  losses  occur. 

NOTPAR 

I 

C 

Nonparticipating  weapons,  only  applies  if 
participation  rates  less  than  1.0  are  used 

BK24 

RNGDST 

R 

I 

Range  distribution 

BK25 

LOG 

I 

C 

Used  in  logging  conflict 

LOGIT 

L 

I 

Writes  out  to  LOG  file  if  .TRUE. 

STATE 

L 

I 

Prints  out  other  debug  information  if  .TRUE. 

BK27 

TTLOS 

I 

C 

Total  losses;  direct  and  indirect  by  indirect 
shooter  for  each  side 
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c.  Program  Routines 

(1)  MAIN 

(a)  Purpose.  To  control  execution  flow  of  the  main  program  of  the 
AFP  Combat  Module.  Figure  D-17  is  a  source  listing  of  the  main  routine 
MAIN. 

(b)  Subtasks 

1.  Initializes  many  reference  and  working  variables  and  arrays. 

2.  Directly  or  by  calls  to  special  subroutines,  inputs  needed 

data. 

3.  Controls  the  nested,  looped  calls  to  routines  in  accord  with 
the  scheme  illustrated  in  Figure  D-15. 

4.  Directly  or  by  calls  to  special  subroutines,  outputs  data 
needed  by  postprocessors  and  other  AFP  modules. 

(2)  CNFALC 

(a)  Purpose.  To  compute  the  initial  odds  and  the  composition  of 
each  conflict,  i.e.,  compute  the  numbers  of  duels  at  each  odds  in  each  con¬ 
flict  for  the  given  weapon  types  at  a  particular  range  and  environment. 
Figure  D-18  is  a  source  listing  of  subroutine  CNFALC. 

(b)  When  called.  Every  time  a  new  pairing  of  opposing  weapon  types 
occurs,  called  from  MAIN. 

(c)  Subtasks 

1^.  Computes  the  nonparticipating  forces  for  each  range  and  envir¬ 
onment  and  subtract  them  from  the  available  forces. 

2.  Tallies  the  direct  fire  assignments. 

2-  Computes  the  odds  and  the  number  of  duels  at  odds  as  follows: 
Let  there  m  weapons  of  one  type  and  n  of  the  other. 

Let  max(m,n)  =  q  min(m,n)  +  r,  where  all  symbols  are  integers;  q  is  the 
quotient,  r  is  the  remainder. 
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1 

2 

3 

4 

5 

6 
7 
S 
9 

10 
1 1 
1  2 
13 
U 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 
27 
2? 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

C  Q 

59 

60 
61 
62 

63 

64 

65 

66 
67 
63 

69 

70 


!  !  !  NOTE  THAT  EXTERNAL  WEAPON  TYPES  MUST  HAVE  THE  LAST  SEQUENCE  !!! 

!!!  NUMBERS  ON  EACH  SIDE  I.E.  MUST  9E  THE  LAST  !!! 

INCLUDE  DECLARATIONS 
INCLUDE  PARM 
INCLUDE  BK1 
INCLUDE  BK2 
INCLUDE  9K3 
INCLUOE  B  X  4 
INCLUDE  0*6 
INCLUDE  B  X  7 
INCLUDE  BK8 
INCLUDE  8X10 
INCLUDE  B K 1 1 
INCLUDE  3X12 
INCLUDE  0X13 
INCLUDE  BX14 
INCLUDE  B  <1 6 
INCLUDE  B  X 1 7 
INCLUDE  B  X 1 9 
INCLUDE  0X20 
INCLUDE  8X21 
INCLUDE  9X23 
INCLUDE  3X25 
INCLUDE  B  X  2  7 

DEFINE  THE  DIRECT  ACCESS  FILES 

DEFINE  FILE  I  U2 ( NR  2 , I R S Z 2 , F , N E XT2 ) 

DEFINE  FILE  I U 3 ( N R 3 , I R S Z 3 , F , N E X T3 ) 

DEFINE  FILE  IU4(NR4,IRSZ4,F,NCXT4) 

DEFINE  FILE  IU6(NR6tIRSZ6fFfNEXT6) 

DEFINE  FILE  I U 7 ( N R 7 f I R S Z 7  ,  F , N E X T7 ) 

DEFINE  FILE  I U9 ( N R 9 , I R S 2 9 , F . N E X T 9 ) 

DEFINE  FILE  IU10(NR1Q,IRSZ1U,F,NEXT10) 

DEFINE  FILE  IU14(NR14,IRSZ14,V,NEXT14) 

SEQUENTIAL  FILE  DEFINITION: 

DEFINE  FILE  I  U 1  (  S D F ,  ,  I  R S Z 1  ,  ,  I R S Z 1 ) 

DEFINE  FILE  I  U 5  (  S D F , , I R S Z 5 , , I R S I  5 ) 

DEFINE  FILE  IU13<SDF,,IRSZ13,,IR$Z13) 

DEFINE  FILE  IU15(SDF,,IR$Z15,,IRSZ15) 

DEFINE  FILE  IU0UT3  < S D F , ,  I  R S Z U 3 , , I R S Z U 3 ) 

DECLARATIONS  PARTICULAR  TO  XILLS 

INTEGER  REPSX  ,  D  A  Y  S  X  ,TYPS1X,TYPS2X  ,  ENVIRX,RANGEX  , $  T  AG  E  X  ,  S  I  D  E  X  , CNFX 
INTEGER  ODDSX 

INTEGER  COMBO, THTR,TPD,NVIS,NDAY,NPOS 
INTEGER  LOTWO  ,  LOONE ,  HITWO,  H I  ONE 
LOGICAL  ALLZ,  IALLZ 

DIMENSION  ITEMP6C2) 

DOUBLE  PRECISION 


SEED (100) 

DATA  PHASE/1,2/, MAXC ON /0/,MAX0D$/0/ 


DATA 


DATA 


123457 
1  1  335064 1 6 
330310551 
1514665799 
1460567237 
274992647 
83729995 
1567253092 
352414337 
1990506775 
1265016020 
235610717 
1946768467 

1241237486 

1328095926 


(SEED(I)  ,1  = 
.DO,  s48661055 
179392340 
1864683550 
609430781 
1903540707 
DO,  1588509478 
.DO,  3C7509594 
DO,  34485768 
DO,  131 2G0975C 
.DO,  34124592 
■DO,  1110128581 
716522888 
1915124666 
(SEEDCI) ,1= 
.DO,  1  8  2648031  0 
.DO,  735026667 


DC, 
DC, 
DO, 
DO  , 


DO  , 
DO, 


1,52)/ 

.DO,  331868080. DO, 
.DO,  880089848. DO, 
.DO,  957584520  . DO, 
.DO,  2126485978.00, 
.DO,  773122865. DO, 
.DO,  1759740400.D0, 
.DO,  1235568876. DO, 
307246871 . DO, 
892733C67.D0, 
134177024. DO, 
79706148. DO, 
658346C1 . DO, 
•  v  u  ,  605204  808  . DO, 

53.100) / 

.DO,  1761  451  800  . DO, 
.DO,  1922904882  . DO, 


DO, 
.DO, 
•  DO, 
.00, 
.DO, 
.DO  , 


795694QQ2 
373453165 
611 600725 
23014Q735 
1753901 423 
1941135750 
1540164579 
1222711937 
1257585462 
1  1  76990974 
1970893844 
26530237 
1250036153 


.  DO  , 
•  DO, 
.  DO  , 
.  DO  , 
.  DO  , 
.DO, 
.DO, 
.  DO, 
.  DO  , 
.DO, 
.  DO  , 
.  DO  , 
.DO/ 


648974769.00, 
1 1274Q8G4, DO, 
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71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

ICO 

101 

102 

103 

1  04 

1  05 

1  06 

1  C  7 

108 

1  09 

110 

1  1 1 

112 

113 

1  14 

115 

1  16 

117 

118 

119 

1  20 

121 

1  22 

123 

1  24 

125 

126 

127 

128 

1  29 

130 

131 

132 

1  33 

134 

135 

136 

137 

133 

139 

1  40 
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c 

2 

10 


c 

c 


1690100682. DC 
14C9578632.D0 
585411451 .DO 
1995361080. DO 
2037737285 .00 
1475434694,00 
133673398.00 
1510133733. DO 
1093293442. DO 
1721714736. DO 


673720340.00 
12672413. DO 
56006  1  85  1  .DO 
2009993142. DO 
37500927. oO 
2074851  491  .DO 
851290297.00 
1940663167. DO 
1  133218931  . DO 
1039836864  . DO 


1103976199.00 
2082847903. DO 
1357483287. DO 
2 7Q 796833. DO 
2052071  248  . DO 
330340421 . DO 
1651 5S6143.D0 
1877417917. DC 
95032401  3  . DO 
1390471833. DO 


200368466. DO, 
2102585575. DO, 
2035203198. DO, 
1364574012. DO, 
136C954032.D0, 
2037642869. DO, 
30162C020. DO, 
617723160. DO, 
199964875. DO, 
403248081 .DO/ 


CONTINUE 

R  E AD ( 5 , 1 0)  C0M90,TPD,THTRfNVIS,NDAY,NP0S, INSEED 
FORMAT ( 3 

CASE  =  (NVIS-1 ) *IDAY*IPOS+  < NO A Y -1 > *  I POS ♦ < NPOS - 1) 

P  R  E  FI =Q 
PRE  F2=0 

PREF3=(THTR-1)*ICASE+CASE 

PREF4=(COMBO-1)*lTHTft*ITPD*ICASEMTPD-1)*ITHTR*ICASE  +  PREF3 
READ  IN  THE  DENSITY  REDUCTION  INDICATORS 
READ (5 ,★)  LESDNS(I) »LcSDN$(2) 

READ  IN  THE  TYPE  LOOP  LIMITS 

READ (5, 10)  LOONE,HIONE,LOTWO,HITWO 

I0UN1T=IUIN6 

OUT  F I L  =6 


C 

C 


C 


25 

C 

C 


C 

c 


77 


READ  IN  ALL  OF  THE  INPUT  EXCEPT  PKS  AND  RNGDST 
CALL  INPUT 

OPEN  LOG  FILE,  IF  APPROPRIATE 

IF  (LOGIT)  OPFN  (UNIT  =  IU8,  S T A TUS  =  "UN K N OW N * ,  A C C E S S  =  ' D  I  R E C T  '  , 
8  RECL=IRSZ8.  BLANK='ZERO',  RFORM='F",  RCDS=NR8, 

8  ASSOC =NEXT8) 

DSEED=$EED( INSEED) 

REPLICATION  LOOP  BEGINS  HERE 
DO  500  0  0  R  t  P  S  X  =  1  , 1 R  E  P  S 
L  C OUNT  =0 

-RITE (OUTFIL  ,25)  REPSX 

FORMAT (iHl  ,T51  ,  "  STARTING  REPETITION  ',15,///) 

CALL  IZERO  (WPNS , 2*ITYPS) 

DAY  LOOP  BEGINS  HERE 

DO  4QC00  D AYSX=1  , NO  A YS 

PREPARE  TO  (RE-)  READ  PKS 
REWIND  IU1 

IU1T1  =0  3  TO  FORCE  INITIAL  READ 

KEYU1  =  0 

CALL  FRCALC (OAYSX) 

CALL  OUTPT (REPSX , DAYSX) 

INITIALIZE  THE  DAILY  BEGINNING  WEAPON  COUNTS 
CALL  IZERO  (BVPNS,2*IRAN6E*IENVIR*ITYPS) 

COMPUTE  INITIAL  DAILY  WEAPON  COUNTS  FOR  EXTKLS 
DO  86  TYPS1X=1 ,NTYPS(1) 

DO  80  TYPS2X  =  1  ,NTYPS(2) 

TYPS ( 1 ) =TYPS1X 
TYPS  (2) =  T  Y  P  S  2  X 

F0RCS1(1)=F0RCES(1,TYPS1X,TYPS2X) 

FORCS1(2)=FORCES(2,TYPS2X,TYPS1X) 

CALL  CNFALC (S80,TYPS1X, TYPS2X  ,0) 

DO  78  cNVIRX=1  ,  NENVIR 
DO  78  RANGEX  =  1  , I  RANGE 
ITEMP6 ( 1 ) =0 
ITEMP6 (2) =0 
DO  77  0CDSX=1 , 2 

ITEMP6(SMALER)=ITEMP6($MALER) 

&  ♦  CONFLO(ODDSX,RANGEX,ENVIRX) 

I TEMP6 (BIGGER )=ITFMP6 (BIGGER) 

8  +  ODDS(ODDSX)  *  C ON  FLO ( OD D S X , R ANG E X  ,  EN V  I  R X  ) 

CONTINUE 

BWPNS(SMALER,TYPS(SMALER),ENVIRX,RANGEX)= 

8  5WPNS(SMALER,TYPS(SMALER),FNVIRX,RANGEX) 

8  ♦  I TEMP6 ( SMALE  R ) 

BWPNS (BIGGER, TYPS (BIGGER), ENVIRX,RANGEX)= 


Figure  D-17.  Source  Listing  of  the  Main  Routine  of  the  Main 
Program  of  the  AFP  Combat  Module 
(page  2  of  6  pages) 


D-lll 


CAA-D-84-14 


141 

142 

143 
1  44 

145 

146 

147 

148 
1  49 
1  50 

151 

152 
1  53 
1  54 

155 

156 

157 

158 

159 
1  60 
161 
162 
1  63 
1  64 

165 

166 

167 

168 
1  69 

170 

171 
1  72 

173 

174 
1  75 
1  76 

177 

178 
1  79 
180 
181 
182 
163 

184 

185 

186 
187 
168 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

1  99 

2  00 
201 
2  C  2 
2  03 
2  04 

205 

206 
207 
2Q8 

209 

210 


130 

140 


200 


8 


&  BWPNS(BIG6ER,TYP$(BIGGERJ,ENVIRX,RANGEX) 

g  +  ITEMP6 (BIGGER) 

78  CONTINUE 

80  CONTINUE 

86  CONTINUE 

C  WRITc  THE  TYPE  LOOP  BOUNDS  IN  THE  SHOT  FILE 
C  BEGIN  TYPE  LOOPS 

DO  31000  TYPS1 X  =  L  OON £  ,  H  I  0  N  E 

CALL  DIRI0(TYPS1X,REP$X,DAYSX) 

CALL  GETPKS(TYPSIX) 

C  WRITE  OUT  THE  POST  PARTICIPATION  ALLOCATIONS 

I0PTRA=REPSX4(DAYSX-1)*N10Q+(TYPS1X-1)*N101 

I0PTRA=I0PTRA>PPEF4*IREPS*IDAYS*ITYPS1 

WRITE(IU10'IOPTRA,1C30,ERR=130) 

g  (I  FIX (FORCES (1 f TYPS IX , J) *PROJCT  Cj  1 1 ) +0.5) , J  =  1 , NTYPS (2) ) 

g  f(IFIX(FORCES(2,J,TYPSlX)*PROJCT(J,2)+a.5),J=1fNTYPS(2n 

GOTO  200 

WRITE  COUTFIL, 140)  REPSX  fDAYSX 

FORMAT  (1Xt30(lH  +  )  ,5X,'REP=  '  ,  I  3 , 3  X  ,  '  D  A  Y  =  M3, 3X 
,'FALLOC  DIRECT  WRITE  E 9 R OR  * f 5 X , 3 0 ( 1 H * ) ) 

STOP 

CONTINUE 

DO  30000  TYPS2X=LOTWOf HITWO 
TYPS  < 1 ) sTYPSI X 
TYPS (2)=TYPS2X 

C  INITIALIZE  THE  TOTAL  LOSSES  TABLE 

CALL  IZERO  CTTLOS,  2  *  I  TLOS *  I ENV I R *  I  RANGE ) 

C  INITIALIZE  THE  EXTERNAL  SHOT  COUNTER  FOR  EACH  TYPE  ON  TYPE 
C  COMBINATION 

CALL  IZERO  (SHOTS,  2 * T E N V  I R * I R A N G E ) 

CALL  ZERO  (ESHOTS,  2  *  I  E XT  *  I  EN V  I R *  I  R A N G E ) 

CALL  ZERO  (EXTN,  2*IEXT*IENVIR*IRANGE*ICDPTH) 

CALL  IZERO  (EXTK,  2  *  I E XT* I EN V  I R *  I R ANG E *  I C D PTH ) 

C  INITIALIZE  THE  DUELS  AND  TIMES  TABLES 

CALL  IZERO  (DUELS,  I  E N V I R *  I R A NG E *  I  C D P T H *  5 ) 

CALL  ZERO  (TMS,  2 *  I E N V I R *  I R A N G E *  1 C D PT H *  5 ) 

C  PLACE  THE  INITIAL  FORCES  INTO  FORCS1 
FORCS1 (1 ) = 

g  FORCES (1 , TYPS (1 ), TYPS (2) ) 

FORCS1  ( 2 )  = 

8  FORCES (2, TYPS (2) ,TYP$<1 ) ) 

IF  (  FORCS1 (1 ) *F0RCS1 (2)  • E  Q •  0  )  GOTO  30000 

CALL  CNFALC($30000,TYP$1X,TYPS2X,1) 

NOCONF =PROJCT(TYP$2X, 5) 

IF  C  NOCONF  •GT.  ICDPTH  )  THEN 
WRITE(OUTFIL,100Q)  NOCONF 

1000  FORMAT (IX, 3C(1H*)  ,5X, "NUMBER  OF  CONFLICTS  EXCESSIVE', 

g  2X,IS«5X«3Q(1H*)) 

STOP 
END  I  F 

C  COMPUTE  THE  EXTERNAL  WEAPON  ASSIGNMENTS 
CALL  EXTASG 

C  THE  ENVIRONMENT  LOOP 

DO  21000  ENVIRX  =  1  ,NENVIR 

C  RANGE  LOOP 

DO  2CC00  R ANGEX  =  1  ,  I RAN6E 
IF  (  LOGIT  )  THEN 
C  INITIALIZE  THE  LOG  TA8LE 

DO  1650  S I D E  X  =  1 ,2 

C  FOR  LOG,  SIDEX  IS  THE  VICTIM  T Y  °E 

C  READ  IN  THE  lOG  TABLE,  AND  INITIALIZE  IF  NOT  THERE 

IOPTR8  =  (SIDEX-1)*Np0MREPSX-1)*N81*(DAYSX-1)*n82 
♦(TYP$(SIDEX)-1)*N83*(ENVIRX-1)*N84*RANGEX 
IOPTR8=IOPTR8+PREF2*2*IREPS*IDAYS*ITYP$*IENVIR 
K  *  I  R  A  N  G  E 

READ <IU8'IOPTR8, 16000,  ERR=15001  NOCONF, 

8  ( < ( LOG ( I , SIDEX, K,L),L=1,9),K=1tNTYP$(3-SIDEXn, 

8  1=1, NOCONF) 

GOTO  1650 

1500  CONTINUE 


& 
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211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
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CALL  IZERO  (LOG*  ICDPTH*2*ITYPS*9) 

1  650  CONTINUE, 

E  N  D  I  F 

00  T5Q0Q  CH  FXM  ,NOt0NF 

CALL  C  N  F  L  C 1  f  $  T  5  5  G  □ T YP3  2  X  ,  E  NU  I  fi  X  .  R  ANG  f  *  T  C  N  f  X  J 

cccccccc  following  trace  added  to  assist  testing,  \  feb  s  1°. 


cc 
cc 

C  C  6  6 

cc 
cc 


*RITE  <6*66  2  TTPSlJl,  TYPS2X,  OAlfSX,  CNF  If ,  RAN6EX* 

&  FO*  C  S  2  < 1 J ,  F0RCS2f ?J 

FORMAT  ('  ***  BLUE  T¥ PE  %  12,  "  VS  BED  TYPE  ' ,  *2, 

|  „  DAr  %  12,  Conflict  ,  U*  '  range  3t  U,  /* 

s  ***  3  L  HE  FORCE  r  16.  *  RED  F0*CE  ",  lil 

CCCCCCCC  END  OF  TEST  TRACE 
C  STORE  THE  ASSIGNMENTS 

DO  17  DC  SIDfX=1,2 
DO  ?7Q0  JP-Tf2 

log iCNEx,siQextTtPs  ri-s  toe  * ) . j )  = 

S  log  (CNF  !( *  S2  DEX.TYPS  f  3-S  IDE  X  1  *  J  }  + 

„  &  FQACSZCJ J APR0JCTfTYPSJX*4? 

1700  CONTINUE 

call  STPREPCSISSnEiMNGEItENVIRKtTlfPSli.TirPSZX* 

DO  TOOQO  STAGE!*! ,N5TAGE 

CA-lL  CHFT^SriNVIft^MN&ESiCHFlf.STAGEJM 
CALL  E  X  TV  L  5  (  E  H  V  T  R  X  ■  T  Y?  5  ?)[ ,  0  U  F  V  ,  R  ANG  £  X  r  5  T A  GE  X  1 
CALL  0 1 **  L  S  ( T  f  P  S l X . EN V I R  X  *  A  AN  G  E  X . C % F  A  *  S  T A  G  E  X  2 
IF  C  STA2E  1  TH  E  V 

IF  (  M0D(LC0UNTtLNCNT5  , EU,  D  J  THEN 
■  RITE  I  OUTFlt, ?  7  2  5  3 

FORMAT?/ *1  I  |TZ  *  J  REPS  ' f  H  0 i '  M*S  TT  3 

TTPS  1  '*T2fl*'  TIPS  2  'pTI4/  ENVIfli.  ' 
T42,'  RANGE*  ,15  0,  '  CNF*  '*7*0 
STA£P*  ' T  T6  9  *  ^  CONFL0  \T&6 

*  ODDS  ',110* P '  FORCSZ  1  *  Tl 2  2 

*  CNfLjT  tXff  lEK'-'!  ,  y1  S  ■  'Cif  ILLS  -  .  ^ 

1  A  *  1  5  (  ”  J  i 

E  NB  J  F 

LCOUNT-L  C  0  U  H  T  ■+  1 

MHITE(0HTFlLf175G>  R£PSXTPArSJr,TTPSTXpTrP52,X 
f  FNVI R  X  j  RANGE  X , CN  FX , STAGE  X 
t (C ONE LO(L, RANGE X,£N VI RX) PL=1 *21 
»  (OfiDStU  ,L*1  f2)  ,  FFQACSZtLJ  .L-1  r£J  .CNFLET 
*  U  C  X  t  L  L  S  ( L  ,  T  V  P  S  C  2 )  :  0  .  K  =  1  *  h  ,  L  =n  ,  2  J 
f  GRM AT  ( 1 A , T  2 * 1 6  *  T 1 0  *  %  5 f T 1 @ 

*1 6*726,16,134, 15 
,14^,15 . TSi, i6tT58 
*I6*T6£*Zf.l82*T6ft 


CC 

CC 

CC 

CC1 725 
CC 
CC 
CC 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

CC1750 
cc 
cc 
c  c 
cc 
cc 
cc 
cc 
c 
c 


ENOIF 

LEFT 


i2l?*Tl04f2I8rT122 
*  I  5  W  ,  T  X  p  T  C  t  -  "  U  T 


ns 1 2 t 7 a 6 * 1 1  j , 3 x s , / 


HERE  TO  SAVE  THE  LOG 
)  THEN 


VICTIM  TYPE 


SKIP  IF  NO  ENTRIES 
END  OF  STAGE  LOOP 
10000  CONTINUE 

C  END  OF  CONFLICTS  LOOP 

1 5  GO  0  CONTINUE 

C  IF  UNUSUAL  RETURN,  JUMP 
15500  CONTINUE 

IF  (  LOGIT 
C  WRITE  OUT  THE  LOG  TA&Le 
C  SIDEX  POINTS  TO  THE  SIDE  OF  THE 

□0  17000  5I0EX-1-2 

1 09Tkt 5  I DE  X-T I  * N RQ *  <  R EPS X- 1 1 *N S  1  *  <  D A T S X  - t )  * N* ? 

*  < TtPS  t  SI DEX > -1 1 f £NVI R¥-1 3 -n  84+RANGEa 
10PTHflMioPTRB  +  PffE  F7*2*IREPS  # I  DATS* I T  Y  P  S  ■* IFNV  I  R 
*  I  R  X  *j  G  e 

WB I TE  C lUt- I0PTBS , 16000, EBR -10  5PO1  NO  CON t p 

4  M  L  i 6  i  n  J  ™  ?  f  *  *  * 1 L  J  1 L  p  ^ 3  ..  It  =  1  i  N  T  Y  p  S  <  3  -  S  I  D  E  A  M  , 

16  000  FORMAT  (iOQ  CSOOU2  1 

GOTO  1 7G  DO 

165  C0  ■  &!  TF  (OljTFlL  ,  1  66GC2  ft£  PS  K ,  «  A  T  S  X ,  T  YPS  (3 -S I  D  Ex  2  * 
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2£  1 
282 

283 

284 

285 

286 
287 
2S8 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 
3C6 
307 
303 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 
3  19 

320 

321 

322 

323 

324 

325 

326 

327 
3  2  8 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 


1  6600 


8 


1  7000 


C 

20000 


5  E  N  V  I  R  X  ,  R  A  N  G  E  X 
F0RMAK1X  j30(1H*)  ,5X,'L0G  WRITE  ERROR', 5X  ,'INDICES 

5  ( 3X  ,  I  5 ) , 5 X  ,  30  ( 1 H* ) ) 

STOP 

CONTINUE 
FNDIF 

END  OF  RANGE  LOOP 

continue 

C  END  OF  ENVIRONMENT  LOOP 
21000  CONTINUE 

C  WRITE  OUT  THE  SHOT  COUNTS  (ESHOTS,  SHOTS) 

IF  (.NOT.  IALLZ  (SHOTS,  2  * I E N V I R *  I R A N G E )  .OR. 

8  .NOT.  ALLZ  (ESHOTS,  2*IEXT*IENVIR*IRAN6E) ) 

6  WRITE ( IU0UT3)  REPSX,  0  A  Y  S  X  ,  TYPSlX,  TYPS2X, 

S  ESHOTS  ♦  SHOTS 

DO  21300  1=1,2 
DO  21300  RANGEX  =  1.IRANGE 
WRIT£(OUTFIL, 212005  TYPSlX, TYPS2X 
8  ,I,RANG£X,  (ESHOTS  (I, J  ,1,RANGEX)  ,J-1,N0EXT(I)) 

FORMAT (/ , IX, "EXTERNAL  SHOTS  FOR  TYPES  ',217,/ 

■  U.  5H0HTPP  PlflPr  '.75.'  DUCC-'  11 


, IX. 'SHOOTER  S I D  E  =  ',12,'  RANGE=',I2 
* / *  SHOT  COUNTS  ' , ( T 1 5 , 1 0 ( F 7 . 2 , 1 X ) )  ) 


CC 
CC 
CC 
CC 

CC21200 
CC  8 

CC  8 

CC2130C  CONTINUE 

C  WRITE  OUT  THE  DUEL  DATA 

I0PTRE=REPSX+(DAYSX-1)*IREPS+(TYPS1X-1)*IDAYS*IREPS 
&  ♦CTYPS2X-1)*ITYP$1*IDAYS*IREP$ 

I0PTRE=IQPTRE+PREF2*IREPS*IDAY$*ITYP$1*ITYPS2 
WRITE(IU14'I0PTRE , ERR=22200)  N E N V  I R . I R ANG E , N 0 C ON F 
8  «  (  <  (  (DUELSU  « J  ,  JC  «L)  «L*1  «5)  «  K*1  tNOCONF)  •  J=1  «  XRANGE) 

&  ,  I  —  1.N6NVIR) 

GOTO  22400 

22200  WRITE (OUTFIL, 22300) 

22300  FORMAT (1X,30(1H*)  ,5X, 'DUELS  WRITE  ERROR', 5X  ,  30  ( 1 H*  )  ) 

STOP 

CONTINUE 

WRITE (OUTFIL. 22500)  NFNVIR.IRANGE ,N0C0NF 

y  1  V  '  Ml  C  I  C  CAB  T  7  *  rtiwf  nAi.uri.l 


8 


22400 

CC 

CC22500 

CC 

CC 

CC 

CC 

CC  8 

CC226C0 
CC  S 

CC22700 
C 


FORMAT(/,1X,*DUELS  FOR  I  J,'  ENVIRONMENTS , 

* » I  2. » 


CONFLICTS  AT  MOST') 


CC 

CC23500 
CC  8 

CC 
CC 

c  c 

CC  s 

CC236C0 
CC  8 

CC23700 
C 


,13,'  RANGES,  AND 
DO  22700  1=1 ,  N  E  N  V  I  R 
DO  22700  J  =1  , I R  ANGE 

WRITE (OUTFIL, 22600)  I , J , ( (DUELS ( I , J , K , L) ,L=1 , 5 ) 
,K=1 , NOCONF) 

F0RMAT(  1  X,  'ENVIRONMENT  ', 12, 3X, 'RANGE  ',I2,3X 
,  500  (T32, 2(5(15, 2X) ,10X) ,/)  ) 

CONTINUE 
WRITE  OUT  THE  TIME  DATA 

IF  (.NOT.  ALLZ  (TMS,  ?*IENVIR*IRANGE*ICDPTH*5) ) 

8  WRITE  ( I U 1 5 )  REPSX,  DAYSX,  TYPSlX,  T  Y  P  S  2  X  , 

&  NOCONF,  TMS 

wRITEC OUTFIL, 23500)  NENVIR,IRANGE, NOCONF 
FORMATC/,  IX, 'TIMES  FOR  ',13,'  E N V I R 0 N M E N T S ,  ' 

„  *13,  RANGES,  AND  ,12,'  CONFLICTS  AT  MOST') 

DO  23700  1=1 ,NENVI R 
DO  23700  J=1,IRANGE 


FORMAT (  IX, 'ENVIRONMENT  ' , I  2 , 3 X , ' R AN G E  ',12 
continue' :T32*'  SIDfr  ',I1,2X,5<F12.5,2X) ,/)  ) 

WRITE  OUT  EXTERNAL  ASSIGNMENTS,  KILLS 

IF  (.NOT.  ALLZ  (EXTN,  2 *  I E X T *  I E N V  I R *  I R A N G E  +  I C D P TH )  .OR. 
S  .NOT.  IALLZ  ( E  X  TK ,  2  *  I  E X T *  I E N V  I R *  I R A NG E *  I C D P T H )  ) 

|  WRITE  ( I U  5 )  REPSX,  DAYSX,  TYPSlX,  T  Y  P  S  2  X  , 

8  EXTN,  E  X  TK 

WRITE  OUT  THE  TOTAL  LOSSES  TABLE,  IF  THERE  WERE  ANY  LOSSES 
IF  (.NOT.  IALLZ  (TTLOS,  2*ITLOS*IENVIR*IRANGE)  ) 

S  WRITE  ( I Ul 3 )  REPSX,  DAYSX,  TYPSlX, 

K  TYPS2X,  TTLOS 

END  OF  SIDE  2  TYPES  LOOP 
0000  CONTINUE 


Figure  D-17. 
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00  30150  1=1,2 
00  301  50  J  =  1  , N  T  Y  P  S (2) 
I$U*=0 


1030 

30200 

30300 


S 


8 


DO  30050  K*1f7 

ISUM=ISUM+CKILLS<I,JfK) 

30050  CONTINUE 

CC  IF  (  ISUM  .LE.  0  1  GOTO  30150 

CC  WRITE<QUTFIL.3G10C)  I  ,TYPS  (1)  , J.  ( CKILLS (I  ,  J  ,K  )  ,K  =  1  ,  7) 

C  C  30 1 00  FOR MAT(/,9X, CKILLS', /,lXf3(l5,2x),1Q0(T30,1G(l5,2X),/)) 
30150  CONTINUE 

I0PTR3=(REPSX-1 )*N31+TYP$1X 
I0PTR3=I0PTR3+PREF4*IREPS*ITYPS1 
WRITE ( IU3'IOPTR3 ,1030, ERR=302C0) 

(  ( (CKILLS (I, J «  K )  ,  K  =  1  ,7) ,J  =  1 ,NTYPS  (2) )  ,1=1 ,2) 

FORMAT  (  500  (  50016) ) 

GOTO  30400 
WRITE (OUTFIL, 30300) 

FORMAT  ( 1 X,  30 ( 1 H*)  , 5 X , 'CKILLS  WRITE  ERROR*, 

5X  1 30<1H*n 

STOP 

CONTINUE 

I0PTR4=(REPSX-1)*N41*TYPS1X 
I0PTR4=I0PTR4*PREF2*IREPS*ITYPS1 
*RITE(IU4'IOPTR4,1030,ERR=30500) 

((NUMWPN(I ,J) ,  J  =  1 ,2) ,I=1,NTYPS(2) ) 

GOTO  30700 
WRITE (OUTFIL, 30600) 

FORMAT (IX, 30(lH+)  ,5X,'NUMWPN  WRITE  ERROR*, 5X , 30 ( 1 H*  )  ) 
STOP 

CONTINUE 

WRITE  OUT  THE  NUMBER  OF  DIRECT  ENCOUNTERS 
DO  30900  J  =  1  ,2 
I SU*=0 

DO  30750  1  =  1  ,NTYPS (2) 

I$UM=ISUM*NUMWPN<I,J) 

CONTINUE 

IF  C  ISUM  .LE.  0  )  GOTO  30900 

WRITE(OUTFIL,308C0)  J,TYPSlX,(NUMWPN(ItJ),I=1,NTYPS(2)) 
F0RMAT(//,1X, "ENCOUNTERS', 5X, 'SIDE  '  ,  I  1  ,  5 X  ,  ' S  I  D E  1  TYPE  ' 
8  , 500<T5C,10(I6,2X> ,/)> 

CC30900  CONTINUE 

C  END  OF  SIDE  1  TYPES  LOOP 

31000  CONTINUE 

C  END  OF  DAY  LOOP 

4C000  CONTINUE 

C  END  OF  REPS  LOOP 

50000  CONTINUE 

WRITE  (OUTFIL,  50100)  MAXCON 

50100  FORMAT  (T41  ,  'THE  MAXIMUM  NUMBER  OF  CONFLICTS  WAS 
8  2X, 16) 

-RITE  (OUTFIL  ,50200  MAXODS 
50200  FORMAT  (// ,T41  ,  "THE  MAXIMUM  ODDS  WERE 
8  2  X  ,  I  6  ) 

STOP 

END 


30400 


8- 

3  0  5  CO 
30600 

30700 
CCC 
CC 
CC 

c  c 

CC 

C  C  30  75  0 

CC 

CC 

CC3C800 
CC 
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SUBROUTINE  CNFALC  (*,TYPS1X,TYP$2X, CASED 

INCLUDE  PARM 
INCLUDE  BK1 
INCLUDE  9K2 
INCLUDE  SK4 
INCLUDE  BK9 
INCLUDE  B  K  1  2 
INCLUDE  S  K 1 3 
INCLUDE  0  K  1  4 
INCLUDE  6  K 1  6 
INCLUDE  0  K 1 9 
INCLUDE  0X20 
INCLUDE  9  K  2 1 
INCLUDE  BK23 
INCLUDE  BK24 
C 

DIMENSION  CONFL1 (2) , CLASS (2 » I RANGE , IENVIR) 

LOGICAL  LOG 
C 

INTEGER  T YPS2X,TYPS1X, CON FL1,ODDSX,POINT,PO INTI , COUNT, CAS  El ,TPS1X 
INTEGER  OUTFIL 
C 


SAVE  TPS1X 


(  TYPS2X  • EQ .  1  ) 


) 


2  CONTINUE 

0UTFIL=6 

C  READ  IN  THE  RANGE  DISTRIBUTION 

IOPTR2  =  (TYP$1X-n*N21+TYPS2X 
IOPTR2=IOPTR2+PREF3*ITYPS1*ITYPS2 
„  REAO<IU2"IOPTR2|1075,FRR=1085) (RN6D$T(I) , 1=1 , IRANGE) 

1  075  FORMAT  (500(500F4.2) ) 

GOTO  1 C  9  5 

1CS5  toRITE  (6  •  1 C90 ) 

1G9C  FOR"AT(1X, 30<1H*) , 5X, "RNGDST  LOAD  ERROR", 

&  SX,30(1H*)) 

STOP 

1095  CONTINUE 

C  INITIALIZE 

ODDS  (1 )=Q 
ODDS  (  2 ) =0 
DO  9Q  0  D  D  S  X  =  1  , 2 
DO  90  ENVIRX=1 , NENVIR 
DO  90  RANGEXD  ,  I  R  ANGE 

_  CONFLOCODDSX  ,RANGEX  ,ENVIRX)=fQ 

90  CONTINUE 

C  READ  IN  PROJCT  FILE  IF  INITIAL  CALL  TO  CNFALC 
C  CHECK  TO  SEE  IF  THIS  ISTHE  FIRST  CALL 
LOG=<  TYPS1X  .EQ.  1  )  .AND. 

C  CHECK  TO  SEE  IF  THIS  IS  A  CASE  0  CALL 
L  0  G  =  L  OG  .OR.  (  CASE1  .EQ.  0 
IF  (  LOG  )  THEN 
TPS1X=TYPS1X 
I0PTR6=TYPS1X 

READ  ( IU6"IGPTR6, 1 10,ERR=200) 

8  ((  PROJCT(I.J) ,J=1 ,5) ,1=1 ,NTYPS(2)) 

FORMAT  (500<50(JF6  .2)  ) 

GOTO  300 

«RITE<OUTFIL,21C3 

FORMAT(1X,20(lHO ,  "  PROJCT  READ  ERROR,  CNFALC  *,30<1H*)> 
STOP 

CONTINUE 
END  I  F 

C  COMPUTE  THE  FORCES  ACTUALLY  ENGAGING  BY  MULTIPLYING  BY  THE 
C  PROBABILITY  OF  ENGAGEMENT 

FORCS2(U=FORCS1 (1) 

FORCS2(2)=FORCS1 <2) 

DO  100  ENVIRX=1 , NENVIR 
DO  ICO  RANGEX=1  , I  RANGE 
DO  ICO  1=1 ,2 
C  COMPUTE  NON-PARTICIPANTS 

NOTPAR(I,ENVIRX,RANGEX)=FORCS2(I) *  r  n  g  d  $  t (RANGEX) 
s  *  E  N  V  D  S  T (ENVIRXI 

„  |  *  (1  .  O-PROJCT (TYPS2X , I)  ) 

C  SUBTRACT  OFF  NON-PARTICIPANTS 

FORCS2<n=FORCS2U)-NOTPAR(If  ENVI  RX  ,  R  ANGE  X  ) 

100  CONTINUE 

„  IF  (  FORC$2<1)*FOPCS2(2)  .LE.  0  )  RETURN  1 

C  SET  UP  POINTER  TO  SIDE  WITH  MORE  WEAPONS  (  OR  SIDE  1  IF 
C  BOTH  SIDES  HAVE  AN  EQUAL  NUMBER  OF  WEAPONS  ) 


110 

200 

210 

300 
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■LE.  Q  3  RETURN  1 


IF  C  FdRCSZM)  *  L  T  * 
a  FCRCS£<23  }  BIGGER*? 

SPftLER-S-’BlGtER 

t  NQ3DS  Will  C  ON  T  *  I N  Th£  HUMBER  OF  ODDS  CLASSES  t  1  OR  2  J 
N,  0  D  D 5-1 

C  PLACE  THE  NUMBER  OF  CONFLICTS  INTO  COUNT 
CGUNT=MJh<  FOPC  32 t1)T 
&  F0RCS2  C  2  ?  } 

0  PLACE  THE  LDw|R  OfeDS  INTO  QflDStl) 

01?  o  5  n  ]  ^FCfiCSZCSlG&ERJ  ; 
a  FOftC  S2  «  STALER } 

00  D  S  C  2  >  *0 

C  FIND  THg  RfcPAINDER 

ITE^P=T"OOC  F0SCS2fSIGGE®J  t 
a  F0RCS2 f SPALE»3  1 

c  SCORE  The  NUMBER  of  CONFLICTS  at  LOUffi  ODDS 
C0NFL1 i 1 i “COUNT- I TIHp 

C  STOPS  TH£  NUMBER  Of  CONFLICTS  AT  HIGHER  ODOS 
C0NFL1 C 2  J  = I Tl * P 
IF  f  (  C6NFL1  (1  3 +C  ON  Fit  {?H 
If  f  HEMP  *  &  T  *  Q  }  THEN 
N0D&S=2 

ODDS  f  2  3  - 0  0  &  S  f 1 3  *  1 
£  N  &  I  f 

C  CHECK  FOR  OUT  QF  BOUNDS  ODDS 

t F  f  ODDS  C  N  0  D  D  S  I  ,GT.  IOCOS  3  THEN 

WRITE<6«  105C1  NODBS  ,  OD&S  (NOOD  S  J  ,  TYPS  1  )f ,  TTPS2K 

10  50  F0R*AT<1CH!l«#Jp3JI*  £NFALC-  ODDS  OUT  OF  BOUNDS"* 

8  5*,4(I1Gp2jO  P  S  X  ,  T  0  ( Itt*  JJ 

END  I  F 

C  TO  RECORD  THE  HIGHEST  ODDS  ENCOUNTERED 

IF  <  DQQStNQDBSI  *&T  .  MAiOtfS  i  M  A  If  0  DS  -  0  D  Q  5  (N  D  D  D  £ 1 
C  DISTRIBUTE  THE  CONFLICTS 
CTR<TJ=D 

IF  r  HO  BPS  *  GT i  i  3  CTfff2)-0 
DC  1100  RANGE X-1 *  I  RANGE 
DO  1100  ENVIR^I.NENWlfl 
DO  1100  0  D  D  5  X  - 1 t  N  3  D  D  S 

T  ENP^CONF  L 1  (  OP  0  S  5f  3  *  R  NG  D  5  T  f  R  A  NG  £  X  1  *E  N  V  DS  T  t  E  N  V  I R  X) 
I  TEPP  =  1EMP 

C  HA KING  Th£  INTEGRAL  ALLOCATIONS 

E  DNFLP  U&BS*  f  RANGE  *  i  ENV  I  R X  >  *1  T£flP 
C  SAVING  THE  FRACTIONAL  PARTS 

CLASS  CODDSX  *  RANGE  X  *  *NVl*  X  3  =  TE*P-  ITEM-P 
C  ADD  UP  THE  ALLOCATED  WEAPONS 

CTR(OODSK3=CTR<0B6Slf3+lTEFiP 

11  GO  CONTINUE 

C  FIND  THE  NU^BFS  QF  UNALLOCATED  CONFLICTS  AT  EACH  ODDS 
DO  11SC  0 & D  S  X  =  T  # N 0 0 D S 

C?R  f D0&S*  3 -T  QNf  Ll  ) -CTR<  ODD  £*3 

1T5C  CONTINUE 

C  SOUNO  CDN^Ldi  THE  CONFLICTS  3T  0&D3*  RANGE,  ENVIRONMENT 
C  LC OP  ON  TH£  ODDS  CLASS 

DO  1 400  QOPS^I  pNOODS 
COUNT^CTR (QDD5* ) 

^  IF  i  COUNT  ,eaP  a  3  GPTQ  U.Q  Q 

12^jD  continue 

c  initialize  pointers  to  range  and  environment  indices 

POINT-1 

P0INT1=1 

C  FIND  THE  LARGEST  FRACTIONAL  PART 

DO  1300  R ANGEX=1 , IRANGE 
DO  1300  ENVIRX=1 .NENVIR 

IF  C  CLASS(0DD$X,RANGEX,ENVIRX3  .GT. 

&  CLASS (OODSX pPOINT fP0INT1 )  )  THEN 

POINT  =  R  A  N  G  E  X 
PO  I  N  T  1  =E  N  V  I RX 
f  Wf  r  f 

1SP0  continue 

c  allocate  to  the  largest  remainder 

C  ONFlC ( ODfrSX , PQIttT , BQ1MT1 )  = 

*  t  Ofcf  L  D  l  a  D  D  S  ir ,  F  0  I KT  .  PO I H  r  T  J  + 1 

c  INSURE  NO  FURTHER  A  L  l  0  C  A  f  I  ON  TAnE  PLACE 

C  L  A  5  S  ( 01?  D  S  X  ,  PO I  N  T  ,  P  0  L  N  T  1 )  »- 1  .  n 

count-cquht-i 

0  3  GOTO  12UG 


14J0 

C 


D-18. 


IF  !  COUNT  .or, 
CONTINUE 

Save  thf  status  for  cnfuci 
SAVIT<'t)sS  HALER 
SAVIT  fJJ-E I G  G  F  R 
SAV  TT (3  5  ( 1 ) 

S*VIT <4>*0U&S  It! 
RETURN 
END 
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The  odds  are  q  +  1:1  and  q:l,  where  the  q  weapons  belong  to  the  more 
numerous  side. 

The  number  of  duels  is  min(m,n). 

The  number  of  duels  at  q  +  1:1  is  r. 

The  number  of  duels  at  q:l  is  min(m,n)  -  r. 

4.  Allocates  the  conflicts  to  each  range  and  environment  using 
the  range  distribution  and  applying  the  same  treatment  of  integers  and 
fractions  as  does  FRCALC. 

(3)  CNFLC1 

(a)  Purpose.  To  compute  the  number  of  weapons  for  each  side  in  the 
conflict.  When  the  conflict  is  between  survivors,  to  compute  the  odds  and 
the  number  of  duels  at  each  odd  (i.e.,  conflict  composition)  for  every  con¬ 
flict.  Figure  D- 19  is  a  source  listing  of  subroutine  CNFLC1. 

(b)  When  Called.  Every  time  another  conflict  is  scheduled,  for 
every  pair  of  opposing  types,  environment  and  range.  This  routine  is 
called  from  MAIN. 

(c)  Subtasks.  Note  that  conflicts  for  a  given  pair  of  opposing 
types,  at  a  given  environment  and  a  given  range,  are  processed  in  succes¬ 
sion  in  a  given  day;  i.e.,  when  one  conflict  ends,  the  survivors  from 
another  conflict  which  is  then  processed. 

1.  For  first  conflicts  at  a  given  environment  and  range. 

a.  In  the  first  conflict  of  every  day  and  for  each  pair  of  oppos¬ 
ing  types,  status  information  developed  by  CNFALC  is  saved  to  be  refused  by 
other  first  conflicts  at  different  environments  and  ranges  for  the  same 
opposing  types.  This  information  includes  the  odds,  which  side  is  smaller, 
and  which  side  is  larger. 

b.  In  first  conflicts  for  other  ranges/environments,  the  odds, 
smaller  and  bigger  indicators  are  reset. 

c.  In  any  first  conflict,  the  number  of  weapons  of  each  type 
participating  in  the  conflict  at  hand  is  computed. 

2.  For  subsequent  conflicts. 

a.  Computes  the  participating  forces  at  the  given  range  and 
environment. 
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UNCLA$SIFIED-M7AFP< 1) .CNFLCt(2DJ 


II 


SUBROUTINE  CNFlC1(*,TYPS2X, ENVIRX, RANGEX,CNFX) 

INCLUDE  PAR* 

INCLUDE  B X 1 
INCLUDE  8X2 
INCLUDE  BX  4 
INCLUDE  9X9 
INCLUOE  BX 1 2 
INCLUOE  0X13 
INCLUDE  B X 1 4 
INCLUOE  9X16 
INCLUOE  8x17 
INCLUOE  BX10 
INCLUOE  9X20 
INCLUOE  3X21 
INCLUDE  8X23 
INCLUOE  SX24 

DIMENSION  NOT  IN  ( 2  ) 

INTEGER  TYPS2X,  COUNT,  R ANGE X , ENVI R X , CN F X ,NOT IN , ODD S X 

SAVE  NOTIN 

CONTINUE 


if  (  cnfx  .st.  i  j  then 

USE  The  regaining  entries  IN  THE  STATUS  TABLE  TO  OBTAIN  SURVIVORS 
SUN  THE  SURVIVORS  ANO  THE  NON-P A RTI C I  P  A NTS 
FOR CS2 <  1 1  *f  0RCS2 <  1 1  ♦NOTINd  I 
F0RCS2  C2)>fORC52<2I ♦N0TIN(2) 

confute  the  non-participants 

N0TIN(1)«F0RCS2<1)*(1.Q-PA0JCT(TYPS2X,13) 

NOT  IN <2 J*XORCS2C2)*<1.0-PROJCTCTYRS2X,2) 3 
SUBTRACT  OFF  THE  NON  RAfTICIRANTS 
FORC32 (1 3 -FOACS2(1)-NOTIN(1 3 
FORCS?(23 »FOACS2(2)-NOTlN<2) 

IF  <  FORCS2(1)*FORCS2(2)  .LE.  0  3  RETURN  T 
SET  UR  ROINTER  TO  SIDE  WITH  RORE  WEAPONS  (  OR  SIDE  1  If 
BOTH  SIDES  HAVE  AN  EQUAL  NURBER  OF  WEAPONS  3 
3!t6ER"1 

IF  (  FORCS2M3  .LT. 
t  FOACS2(2)  3  BISGER-2 

SRALER-3-9IGGEA 

NODOS  WILL  CONTAIN  THE  NURBER  OF  OODS  CLASSES  (  1  OR  2  3 
NO  D  0  S  *  1 

PLACE  THE  NURBER  OF  CONFLICTS  INTO  COUNT 
COUNT-RTNC  FOBCSZd). 

C  F0RCS2  <23  )  - 

PLACE  THE  LOWER  OODS  INTO  0D0SC13 

0005(1 )»F0ACS2(B1G6ER)/ 
t  F0RCS2 ( SNALER3 

ODDS (2) -0 

FIND  THE  RERAINDER 

ITENP»»00(  F0RCS2 (BIGGER)  , 
t  F0RCS2 (SRALER3  3 

IF  (  ITEHP  .ST.  0  3  THEN 

NODOS  *2 

aDDS(2)«000S(1)*1 

ENOIF 

CHECK  FOR  OUT  OF  BOUNDS  ODDS 

IF  (  ODBS(NOOOS)  .GT.  IODOS  3  THEN 

-RITE (6 .1050)  NODDS.  ODDS (NODOS), TTRS ( 1 ) * TTPS C 2) 

FORRAT ( 1C (1H* 3 , 5X ,  CNFL C 1  -  ODDS  OUT  OF  90UNDS  , 

t  Sx«4U10f2X)'5Xa1Q<1H«)> 

ENOIF 

C  STORE  THE  NURBER  OF  CONFLICTS  AT  LOWER  OODS 

C0NFL0(1 .RANGE*. ENVIRX)«COUNT-lTENP 
C  STORE  THE  NUNSER  OF  CONFLICTS  AT  HIGHER  ODOS 
CONFL0(2.RAN&EX,ENVIRXl»ITERP 
I  TfcNRI *c ONf LO ( 1 , RANGE*. ENVIRX) 

IF  (  NODOS  .GT.  1  )  ITE»R1 *ITENR1 
t  ♦  C0NFL0(2, RANGE*. ENVIRX) 


1050 


CC  WRITE(6,91COO)  R AN6EX , CN FX , ( FOR CS 1 C 1 3 , F ORC S 2 ( 13 , NOT  I N ( I) 

CC  i  ,ODOS ( 1 3  ,CONFLQ( I , A ANGE X  .  EN V I R X ) . 1*1  ,23 

CC  i  , SRALER, BIGGER, N0TMM1 , ENVIRX, AANG6X) 

CC  *  .NOTPAA (2 ,  E  N  V I AX, RANGE!  3 

CC  91000  FOFRATdl,  2  CNfLCI  ,  FOR  RANGE  »  CNF  X  *  '  ,  2  (  I  2 , 1  X  )  ,  /  ,  2  (  '  F0RCS1' 
CC  S', F0RCS2, NOTIN. OOOS.CONFLO*  ' , 5 ( I S . 2 X ) , / 3 . '  SRALER*  ' 

i  ,11,1*,  BIGGER-  ' , II , 1 X, 'NOTPAR*  *,2(16,1X3) 


CC 


1  ITENF1  .LE.  C  3  RETURN  1 
TO  RECORD  THE  HIGHEST  ODOS  ENCOUNTERED 

ftSE  lf  c  ODOS (NO  DOS)  .GT.  NAXOOS  3  N A  X 0 OS *0 00 S ( NO  0 0 S 3 
FIRST  CONFLICT  IN  CHAIN 

NOTIN  (2 )»N°TRA« <2, ENVIRX, RANGE!) 

s*,to  co,,oiti°"s 

BIGGER*SAVIT (?) 

ODOS ( 1 3 -S AV IT (3) 

00DS(2)*SAVIT(4) 

SET  THE  NUMBER  OF  ODOS  CLASSES 
NOODS  *2 

«  fcSS?SS.5?;i«2ei.ESCUI5s~“-£R,-'r«*cs2t*"*‘-e.»* 

f2*9^^^®^<*GEB}aCONFLO(TtRAN6EX,ENVIRX)*ODOS(1) 


s*ve»;?iT(n3f;,?s%?fro"s  ,T  ™e  st,,t  of  the  »*t 

OAYST (23«F0RCS2(2) 

ENOIF(  FO,CS2<1,*fO*CS2(2)  ,LE.  0  3  RETURN  1 
NUMWPN<TYPS?X,1)-NUMWRN(TTPS2X,13* 
t  F0RCS2 (1 3 *PR0JCT(TYPS2* ,43 


NUMWPN(TYPS2X,2)*NUMNAN(TTPS2*,2)R 
1  F^FS^?iSI*B*®^CT(TTPS2X,4) 

DO  20C0  1*1, NOODS 


OUE LS (ENVIRX, PANGEX, CNF*, 2*<I-13*1 3 -ODDS(I) 

0  cojyf“‘tf*V^**RB^EX,CNFX:2.n.CONFLC(i%AJjEX, ENVIRX) 

DUELS ( EN VI RX.RANGEX, CNFX, 5) -BIGGER 
REDUCE  ODDS  TO  max  ALLOWED  IF  NECESSARY 
OO  3000  OODSX-1 , NODDS 

q  coJf®J^|ei>SX)«MIN(IOODS,ODDSCODDSX)) 

RETURN 


Figure  D-19. 
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b.  Updates  the  direct  firer  assignment  counts.  For  each  combina¬ 
tion  of  side  1  and  side  2  types,  this  is  a  cumulative  tally  of  the  number 
of  weapons  participating  in  conflicts;  note  that  a  weapon  killed  in  its 
third  conflict  is  counted  three  times. 


c.  Computes  the  odds  and  the  number  of  duels  at  each  odds. 

(4)  CNFTMS 


(a)  Purpose.  To 

and  to  provide  a  time  to 
the  previous  shot  cycle. 
CNFTMS. 


provide  a  time  to  fire  to  every  weapon  initially, 
fire  to  every  surviving  weapon  that  has  fired  in 
Figure  0-20  is  a  source  listing  of  subroutine 


(b)  When  Called.  During  every  shot  cycle,  from  MAIN. 

(c)  Subtasks 


1.  Computes  an  inflated  detection  size  for  multiple  weapons. 

2.  Sets  a  flag  to  prevent  generating  a  firing  time  for  shooters 
with  a  zero  PK. 

2-  Sets  a  flag  to  prevent  generating  a  firing  time  for  shooters 
who  connot  fire  at  the  given  range. 


4.  For  direct  fire  weapons  that  have  not  fired  previously  in  this 
conflict  and  have  targets  in  range,  uses  a  detection  routine  to  compute  a 
time  to  fire;  if  nondetection  occurs,  sets  a  flag.  The  detect  routine  is 
called  in  subsequent  shot  cycles  for  a  flagged  weapon  until  detection 
occurs,  the  weapon  is  killed,  or  the  conflict  ends. 


For  indirect  fire  weapons  or  for  direct  fire  weapons  that  have 
just  fired  (and  therefore  have  adequate  range  and  have  detected 
previously),  a  log  normal  distribution  is  used  to  generate  times  to  fire. 
The  mean  of  this  distribution  is  given  as  input,  and  the  standard  deviation 
is  assumed  to  be  half  the  mean. 


6.  For  direct  fire  duels  where  no  detections  occurred  previously, 
when  weapons  on  both  sides  achieve  a  first  detection  in  the  same  shot 
cycle,  the  physically  smaller  weapon  gets  to  fire  first. 


D-120 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

13 

19 

20 

21 

22 

23 

24 

25 

26 

27 

23 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

61 


CAA-D-84-14 


c 

c 

c 

c 

c 


SUBROUTINE  CNFTMS(ENVIRX,RANGEX,CNFX, STAGEX) 

♦44+4  DENOTES  CODE  TO  FORCE  NUMERICALLY  SMALLER  FORCE 
TO  FIRE  FIRST 


TO 


C 

c 

c 

c 

c 

c 


INCLUDE  PARM 
INCLUDE  SKI 
INCLUDE  3K2 
INCLUDE  3K5 
INCLUDE  BK6 
INCLUDE  B  K 1 1 
INCLUDE  BK17 
INCLUDE  BK13 
INCLUDE  BK22 

DIMENSION  OUTPUT (2)  ,  BAND  (  I  RANGE) 

INTEGER  STAGEX  ,RANGEX,ENVIRX, CONFLX, POINT1 , CN  FX 
REAL  MEAN fLIGHT1,SIZElfMEANl, SIGMA  1 


LOGICAL  SIGNAL, IFOUT,ISEXT 


DATA  NUM/1/ 

RANGE  3ANDS  (IN  KILOMETERS): 
DATA  BAND  /.250,  .500,  1.000, 


1.500,  2.000,  2.500/ 


C 

2  CONTINUE 

M  0  D  E  =  1 
NNRP=INSEED 

C  TO  COMPUTE  THE  I  N I T I  A L / R E F I R E  TIMES 
DO  2500  CONFLX  =  1  ,  CNFLCT 
C  LOOP  THROUGH  THE  STATUS  TABLE  ENTRIES 
C  SKIP  IF  COMBAT  HAS  CEASED  FOR  THIS  DUEL 

IF  (  STATUS  (CONFLX , 1  )  .LT.  -SMALL2  )  GOTO  2500 
POINT1=IFIX(STATU$(CONFLX,2)) 

C  LOOP  THROUGH  WEAPONS  IN  THE  CONFLICT 
DO  2000  I  -0  , PO 1 NT1 

IF  (  I  .EQ.  0  )  THEN 


J=$MALER 
K-TYPS  (  SMALE.R  ) 

NT  GTS  =  POINT1 
ELSE  IF  (I  .EQ.  1)  THEN 
J=B  IGGER 
K-TYPS (BIGGER) 

NTGTS  =  1 
ENDIF 

C  AT  THIS  POINT, 

C  J  =  THE  SHOOTING  SIDE 

C  K  =  THE  SHOOTING  WEAPON  TYPE 

C  NTGTS  =  THE  NUMBER  OF  TARGETS 

C  IS  THE  SHOOTER  INDIRECT  FIRE  ? 

ISEXT  =  (TYPS(J)  .GT.  NTYPS ( J ) -NOBXT ( J ) ) 

C  SKIP  IF  THE  ENTRY  IS  ALREADY  ELIMINATED 

IF  (  STATUS (CONFLX ,3+1 )  .LT.  -SMALL  2  ) 

8  GOTO  2000 

C  IF  PK  IS  ZERO,  TREAT  AS  IF  OUT  OF  RANGE 
IF  (  .NOT.  ISEXT  .AND. 

&  (PKS ( J , TYPS (2) , 4, R ANGFX )  .LT.  SMALLl)  ) 

8  THEN 

STATUS (CONFLX, 3+1) =RMAXT 

CC  WRITE(6, 91800  RANGEX, STAGEX, PKS (J,TYPS(3-J), 4, RANGEX), ISEXT 

CC  8  ,ST  ATUS (CONFLX ,3  +  1 ) 

CC91800  FORMAT  (  1  X  ,  'CNFTWS  1  O'RANGEX  '  ,  I  2  ,  1  X  ,  '  $  T  A  G  E  X  =  *  ,  I  2  ,  1  X 

CC  &  PKS-  ',F8.6,1X,'ISEXT=  " , L 5 , 1 X , " S T A TU S =  ',F15.5) 

C  c  *  4  *  *  * 

GOTO  2000 
ENDIF 

C  CHECK  FOR  FIRST  STAGE  OR  PREVIOUS  N 0 N - D E T E C T I  0 N 
SIGNAL  =  STATUS  (CONFLX, 3+1  )  .GT.  RMAXT/4.1 
SIGNAL=SIGNAL  .AND. 


8  (  STATUS  (CONFLX  ,3  +  1  )  .LT.  RMAXT/1.2  ) 

SIGNAL=$IGNAL  .OR.  (  STAGEX  .EQ.  1  ) 

IF  (  SIGNAL  )  THEN 

IFOUTs(RANGEX  *6T .LIMITS (J  ,  K  ,  2  ) )  .OR. 

&  (RANGFX.LT.LIMITS(J,K,D) 

IFOUT  =  IFOUT  .AND.  (  .NOT.  ISEXT  ) 

IF  C  IFOUT  )  THEN 
C  OUT  OF  RANGE 


Figure  D-20.  Source  Listing  of  the  CNFTMS  Subroutine  of  the  Main 
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8? 

83 

84 

85 

86 
87 
89 
89 
9Q 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
1C1 
1  02 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 
113 
1  1  4 
1  15 
116 

117 

118 
1  19 
120 
121 
122 
123 
1  24 

125 

126 
127 
1  23 
1  29 
1  30 

131 

132 
1  33 

134 

135 
1  36 
1  37 

133 
1  39 
1  40 
141 
1  42 
143 
1  44 
145 
1  46 
147 
149 
149 
1  50 

151 

152 

153 

154 

155 

156 
1  57 
1  53 
1  59 
1  60 
161 
162 
163 


C  C  *  *  *  *  * 

cc 

cc  s 

CC91900 


CC 

CC 

CC 

c 


& 

z 

***** 


STATUS (C0NFLX,3+I)=RMAXT 
ELSE 

WRITE (6  f 9190G)  RA NGEX,  S TA GEX, IF  OUT, STATUS  (C ON FLX ,3  +  1) 
♦SIGNAL  , 

FORMAT (IX, 'CNFTMS  2 ' , 1 X f * R ANG EX =  * , I  2 , 1 X , ' S T A G E X =  ',12 
*  1 X  •  I FOUT  =  ,L5,1X*STATUS=  ',F15.5 
, IX,  SIGNAL®  '  ,  L5 ) 

CHECK  TO  SEE  IF  DETECTION  SHOULD  9E  SKIPPED  SINCE  THE 
l  WEAPON  IN  QUESTION  IS  EXTERNAL 

IF  (  .NOT.  ISEXT  )  THEN 

C  FORCE  DETECTION  IF  FIRED  AT  OFTEN  ENOUGH 

IF  (CSH0TS(3-J,C0NFLX)  .GT.  N S 2 D C T ( 3- J , T Y P S ( 3 - J )) 1  THEN 
STATUS<C0NFLX,3+I)  =  0.01 
GOTO  2000 
END  IF 

C  DON  T  ATTEMPT  DETECTION  IF  IT  WOULD  9E  FRUITLESS 

.  *  „  If  (STATUS (CQNFLX ,3+1 )  ,EQ.  RMAXT/4.G)  GOTO  2000 

C  LI  POINTS  TO  SENSOR  USED  9Y  SHOOTER,  L2  TO  THE  SIGNATURE  TYPE 
C  FOR  THAT  SENSOR 

Ll=SENSOR(J ,K,ENVIRX,1) 

L2®SENS0RU,K, ENVIRX, 2) 

SIZE1  =  SIZEC3-J,  TYPS ( 3-  J ) ,  ENVIRX) 

TBAR  =  RMAXT/2.0  5  SIGNIFIES  NO  DETECTION 
DO  3000  IDTCT  =  1 , MIN(NDTCTN,NTGT$) 
RAN00M=FIMSLU(2NSEED) 

.  .  .  .  RTM  =  8AN0(RANGEX) 

C  !M*  OPTICS  DESTROYS  LIGHT1  EACH  CALL  !!!! 

LIGHT1=LIGHTCENVIRX) 

CALL  DETECT (RANDOM, Li ,RTM 
|  fSIZEl 

5  ,CNTR$T(3-J , TYPS (3-J)  , ENVIRX  ,L2) 

6  ,ATTN(Ll,ENVIRX)f*AG<Ll) 

|  ,BRIGHT(ENVIRX) .LIGHT1,M0DE 

&  i T,RC,MNRP, I  D  E  T  C  T  ) 

IF  (RC  .LT.  RCDET(J,K))  THEN 

*  EVER  DETECT  (UNLESS  SHOT  AT  ENOUGH) 

RMAXT/4.0 


3000 

3099 

C 


CAN  T 
TBAR 

GOTO  3  Q  99 
ENDIF 

IF  (2DETCT  .EQ.  1)  T  H c  N 
SUCCESSFUL  DETECTION 
CONVERT  TIME  TO  DETECT  TO  MINUTES 
T=T / 60 • 

TBAR  =  *IN(TBAR,T) 

ENDIF 

CONTINUE 

CONTINUE 

UPDATE  THE  DETECT  TRIES  COUNT 

TMS(J,ENVIRX,RANGEX,CNFX,1)  = 

S  TMS ( J , ENVI RX , RANGEX , CNFX  ,  1)  ♦  1.0 

IF  (TBAR  .LT.  RMAXT/4.1)  THEN 

UPDATE  THE  DETECTION  SUCCESS  COUNT 
TMS(J, ENVIRX, RAMGEX,CNFX,2)= 

S  TMS(J, ENVIRX, RANGEX,CNFX,2)+1.0 

INDICATE  THE  TIME  IS  DUE  TO  DETECT 
TMS (J, ENVIRX, RANGpX,CNFX,3)  =  T  ♦ 

S  TMSCJ, ENVIRX, RANGEX,CNFX, 3) 

ENDIF 

STATUS(C0NFLX,3*I)  =  TBAR 


wPITf (6,92000)  RANGEX,STAGEX,L1 ,L2, RANDOM, RTM, LIGHT  1 

, TBAR, $fATUS(C ON F LX ,3+1), SIGNAL, ISEXT 

FORMATdX, 'CNFTMS  3 ' , 1 X , ' R A N G E X =  ' , I  2 , 1 X , ' S T A G E X  *  ',12 
,  Li ,L2, RANDOM, RTM, LIGHT1 ,SIZE1=  ',215 

,1X,4F10.3,/,1X,'TBAR=  ',F1Q.3flX,  S  T  ATUS  =  ',F15.3 
, IX, 'SIGNAL, ISEXT=  ',2L5) 


c  c  *  *  *  *  * 

cc 

cc  $ 

CC  I 

CC92000 
CC  S 

CC  & 

CC  8 

c  c  *  *  *  *  * 

ELSE 

C  USE  REFIRE  TIME  FOR  INDIRECT  W  E  A  PONS 

ME AN1 =REFIRE(J,K, TYPS (3-J ) , ENVIRX) 
$IGvA1=M£ANl/2,0 
MEAN=AL0G(.8*MEANl*MEANl)/2.0 
C  USE  0,4723807  SINCE  THAT  IS  THE  S Q R T ( LN ( 1  . 2 5 ) ) 
SIGMA=C. 4723807 

CALL  GGNLG(DSEED,NUM, MEAN, SIGMA, OUTPUT) 
STATUS (CONFLX. 3+1 ) ^OUTPUT (1) 

C  UPDATE  THE  REFIRE  TIME  COUNT 

T*S(J, ENVIRX, RANGEX,CNFX, 4)  = 

S  TMS(J, ENVIRX, RANGEX,CNFX, 4)  ♦  1.0 


Figure  D-20.  Source  Listing  of  the  CNFTMS  Subroutine  of  the  Main 
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1  64 
165 
1  66 

167 

168 

169 

170 
1  71 

172 
1  73 
1  74 

175 

176 

177 

173 
1  79 
180 
181 
182 
183 
16  4 
165 
186 
1  67 
168 
189 
1  90 

191 

192 

193 

194 

195 
1  96 
197 

1  98 
199 

2  CO 
201 
202 
2C3 

204 

205 

206 
2C7 
208 

209 

210 
211 
212 

213 

214 


C  INDICATE  THE  TIHE  IS  DUE  TO  REFIRE 

TWS  (J  ,ENVIRX,RANGEX,CNFX,5)  =  S T A T U S ( C 0 N F L X , 3 ♦ I)  ♦ 

&  TPS (  J  »ENVIRX, RANGEX,CNFXf5) 

CC  ***** 

CC  WRITE (6,93000)  RANGFX.STAGEX, STATUS ( CON FLX,3>I) 

C  C  93000  F0RPAT(1X,'CNFTNS  4  '  ,  1  X  ,  '  R  A  NG  E  =  '  ,  I  2  ,  1  X  ,  '  S  T  A  G  E  =  ',I2,1X 

CC  &  ,  ST  ATUS  =  «F1S*S) 

c  c  ***** 

C  ENDIF  FOR  D  I  R E C T / I N D I R 6 C T  WEAPON 
END  I  F 

C  ENDIF  FOR  IN  RANGE  OR  INDIRECT/OUT  OF  RANGE  IF 
ENDIF 

C  ELSE  "  IF  f  SIGNAL)  * 

El$<= 

C  GENERATE  R£FI  PE  H*E5  IF  I H  RANGE  AND  FIRED  LAST  ROUND 
l*  i  STATlJSUdhFLlt,3-*l3  RMAJfT/U?! 

1  E  0  TO  200D 

C  USE  THE  R El  IRE  TIHES 

IF  t  STRTUSUOUFtlf  *5*1  J  -it,  SNALLl  3  THEN 
C  ENTRT  HAD  FIRED  IN  ThE  LAST  SOUND,  RECOMPUTE  fifFIRE  TINES 
N  E  AMI  aR  E  F I S  E  £  J  ,  K  ,  T  T  P  5  (  3  -  J  )  ,  E  NY  1  M  ) 

S  I£*A1  -*EAN  1 

NE AN- A  LOG  C , ?  *^EAN1 iVEAhll ft *0 
C  USE  0-A7J3SC7  SINCE  THAT  IS  THE  S Q R T < L H M  * 2 5 3  * 

$ IGPAaQ *4723 tO? 

CALI  Sente*  D5E.ED,  NU*  *N«5  I  GF**  OUT  PUT  3 
STATUS  £C2nFLXt3*1  J  =OUTPUTCl  I 
C  UPDATE  THE  R£FIP*  COUNT 

T*S  f j  .fftVIRX , RANGE  X  *  CNF* ,4)  * 

5  T»5  f  J  pEtfVlRSf  t  RANGE*  pC^in,  43  *  T  ,G 
C  INDICATE  THE  T I « £  IS  Duf  TO  fiEFIRP 

TN5(  j  ,  EfcVl  ft*  ,  RAfrGEJ  T  [,  U  F  X  ,  6  J  =  STrTUSICQNFLX  J+]  ]  + 

6  TNS  C  J  ,  Elitf  IH  X  ,  RA  HQ£%  T  CNf  X  ,  5) 

END  !  f 

c  End  gf  if  dn  signal 

END  I  F 

20GC  CONTINUE 

C  END  OF  CONFLX  LOOP  TO  PROVIDE  Tr*E5 
25JC  CONTINUE 

c c  ***** 

CC  IF  f  CNFLdT  *  G  T .  0  >  THEN 

CC  VRITE(6  +  9CaPC)  *  A  Niif  X*STaGEX,  CNF  LET 

„nnn  t  :«:isss:iTs?3Hiii5:5S}:sj5T:sas:ssE?:Kit???*",-TT”M» 

fi 

EN&i  F 


c  r 

C  C 
CC 
CC 


■  tnr  i  n?  -  *  i  -4  f  i  f  -  *  J.  £  ,  1  S  , 

CNTLCTt  i  Ii,1*p'HEFIIJf  =  ',2<fR.4,2*l 

,_STATUS=  'p5Q[)C/,'  *',10(F10.4,  2X1  U  ,1Q<  M3. 4, 2*1  ,/J  ) 


RETURN 
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(5)  DETECT 

(a)  Purpose.  When  called,  to  return  whether  a  weapon  has  detected 
a  target  and,  if  so,  the  elapsed  time  increment.  Figure  D-21  is  a  source 
listing  of  subroutine  DETECT. 

(b)  Source.  DETECT  is  an  implementation  of  logic  developed  at  the 
Night  Vision  Laboratory. 

(c)  When  Called.  During  every  shot  cycle  for  surviving  weapons 
that  have  not  previously  detected  a  target  or  otherwise  begun  to  fire. 

Note:  As  implemented  here,  detection  is  deterministic  but  dependent  on  the 
routine's  call  arguments.  Only  elapsed  time  is  a  stochastic  variable. 

(6)  DIRIO 

(a)  Purpose.  To  initialze/read  in  the  cumulative  kills  and  cumula¬ 
tive  direct  fire  assignments,  and  to  read  in  the  relevant  data  from  the 
projection  file  (participation  rates,  conflict  durations,  number  of 

conf 1 i cts/day,  number  of  sites  at  which  simultaneous  identical  conflicts 
occur).  Figure  D-22  is  a  source  listing  of  subroutine  DIRIO. 

(b)  When  Called.  Every  time  a  conflict  is  being  processed  which 
includes  a  side  1  type  that  has  not  been  processed  earlier. 

(7)  DIRKLS 

(a)  Purpose.  To  compute  the  direct  fire  kills  in  each  conflict. 
Figure  D-23  is  a  source  listing  of  subroutine  DIRKLS. 

(b)  When  Called.  Called  once  during  each  shot  cycle,  by  MAIN. 

(c)  Process.  DIRKLS  examines  every  duel  in  each  shot  cycle.  In 
each  duel,  the  weapon(s)  with  the  shortest  time  to  fire  (if  any  are  eligble 
to  fire)  is  made  to  fire,  and  the  kill(s)  are  assesed.  Note  that  all  duels 
are  processed  simultaneously  in  every  call  to  this  routine.  Duels  whose 
expended  time  exceeds  the  conflict's  duration  are  prevented  from  firing 
again.  The  conflict  ends  when  the  estimated  number  of  shot  cycles  is  pro¬ 
cessed. 


(d)  Subtasks 

1_.  Locates  the  shortest  time  to  fire  among  eligible  shooters  in 
each  duel,  and  subtracts  this  time  from  every  eligible  shooter's  time  to 
fire. 

2.  Updates  the  duel's  elapsed  time  counter,  and  sets  flag  to 
indicate  that  no  further  firing  should  occur  in  the  duel  if  the  elapsed 
time  exceeds  the  conflict's  maximum  permitted  duration  (an  input). 
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69 

70 

71 

72 

73 

74 

75 

76 

77 

73 

79 

80 

81 
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SUBROUTINE  DETECT  (RN, LSCC, RT*, CD, ACON.ATTN, AMAG, SOG, AL, MODE, TBAR, 
+  RC  ,NNRPV IDETCT) 

C  *  *  *  * ★  CALLED  BY  -TGTACQ- 

C*****INPUTS  VARIABLES  FOR  NVL  SENSOR  LOGIC 

C  *  *  * ★* 

C  LSCC  =  SENSOR  DEVICE 

C  RTM  =  RANGE  TO  TARGET  IN  KM 

C  CD=  TARGET  MINIMUM  DIMENSION  IN  METERS 

C  AL  LIGHT  LEVEL  IN  FT  CDLS 

C  ACON  =  OPTICAL  IS  CONTRAST,  THERMO  IS  TEMPERATURE  DIFFERENCE 

C  ATTN  =  EXTINCTION  COEFFICIENT  ARRAY 

C  AMAG  =  MAGNIFICATION  ARRAY 

C  FOV  =  FIELD  OF  VIE*  ARRAY 

C  SOG  =  SKY  OVER  GROUND  BRIGHTNESS  RATIO 

C ★*  *  ** 

C-  TBAR  =  TIME  TO  ACHIEVE  DETECTION 
C-  RC  =  RESOLVABLE  CYCLES 

C-  IDETCT  =  1  ON  SUCCESSFUL  DETECTION,  0  OTHERWISE 
C 

DOUBLE  PRECISION  El 

C  CHECK  SENSOR  DEVICE 


c 

1 

= 

OPTICAL 

-  EYES 

c 

2 

s 

OPTICAL 

-  BINOCULARS 

c 

3 

= 

IMAGE  INTENSFIER  -  STARLIGHT 

C 

4 

= 

-  RED  SIGHT 

c 

5 

-  CREW  SIGHT 

C 

6 

= 

THERMO 

c 

7 

= 

THERMO 

c 

8 

= 

THERMO 

c 

9 

THERMO  - 

AIRBORNE  FLIR 

c 

1C 

OPTICAL- 

TV 

c 

11 

- 

THERMO  - 

NIGHT 

c 

12 

= 

OPTICAL 

-  TV 

c 

13 

r 

R  ADAP 

c 

1  4 

s 

THERMO 

c 

1  5 

= 

OPTICAL 

c 

1  6 

= 

OPTICAL 

C 

*  *  ★  *  ★ 

2 

CONTINUE 

IDETCT  =  0 
R  C=0. 0 
S  =C  .0 
T  3  A  R  =0  • 

P I N  F  =  0  •  0 
A  L  1  =  A  L 


IF  (AMAG. IE. 0.)  AMAG=1.0 
IF  (ATTN. Lt .0.0)  GO  TO  190 

OPTICAL  VISIBLE  BANDS  (1,2,10,12,15,16,19-50) 

IMAGE  INTENSIFIERS  (3,4,5) 

THERMO  DEVICES  (6,7,8,9,11,14,17,18) 

IF  (LSCC.LE.0.0R.LSCC.GT.50)  GO  TO  190 

GO  TO  (100, 1  00 ,110,110,110, 120, 120, 120,  120, 100, 120, 100, 130,120, IOC 
+,100,120,120,100,100,100,100,100,100,100 
+,100,100,100,100,100,100,100,100,100,100,100,100,100 
+  , ICO, 100,100, 100, 100,100, 1  00, 100, ICO, 100, 1  00, ICO), LSCC 

-  VISIBLE  BAND  DEVISES 

100  CALL  OPTICS  (RC  ,  ACON, ATTN , RTM , LSCC , SOG, AL1  , MOD E , AMAG ) 

GO  TO  140 

„„„  *  IMAGE  INTENSIFIERS 

110  CALL  IMAGES  ( RC , AC  ON , ATTN , RTM , LSC C , SOG , AL 1 ) 

GO  TO  140 

.  -  THERMO  DEVICES 

120  CALL  THERMO  (PC  ,  ACON, ATTN, RTM, LSCC ,*ODE ) 

GO  TO  140 

*  RADAR  DEVICES 

130  CONTINUE 
R  C  =0  • 

I F ( FI"SLU(NNRP)  .LT.  .80)  THEN 
RC  =  1  .0 

IDETCT  =  1 
END  I  F 


TBAR  =  3.0  +  FIMSLU(NNRP)  *  12.0 


Figure  D-21.  Source  Listing  of  the  DETECT  Subroutine  of  the  Main 
Program  of  the  AFP  Combat  Module 
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82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
ICO 
1  G 1 
1  C  2 
1C3 
104 
1  C  5 
1  C  6 
1C7 
1  C8 
1  C  9 
110 
111 
112 

113 

114 

115 

116 
1  17 
118 

119 

120 
121 
122 

123 

124 

125 

126 


333 

C 

C 

140 

C 

C 

C 

C 

C 

C 


C 

c 

c 


c 

c 

c 

150 

c 

c 

c 

160 

c 

c 

c 

c 

c 

190 


IF(RC  .  LE  .  0.)  PRINT  *33 

FORMAT (55X  f "RADAR  LESS  THAN  802*) 


GO  TO  190 

CONTINUE 
IFCRC  .LE, 


S-CD/RTM 

RC=RC*S 


CONVERSION  FROM  ...  TO  RESOLVABLE 

0.)  60  TO  190 

CRTITICAL  D I  ME N S I  ON/ R A N 6 E  PER  THOUSAND  METERS 
RESOLVABLE  CYCLES  ACROSS  TARGET 

TENTH  OF  A  CYCLE  -  FORGET  IT 


-  IF  LESS  THAN  A 
IF  (RC.LT.0.1C)  GO  TO  19Q 


A  A  =  1 .0 
R  C 1  =  RC  / 


FIND  PROBABILITIES  OF  DETECTION  AND  DESIRED  LEVEL  OF 


AA 


IF  (  R  C 1  .LE.  4)  GO  TO  150 

PINF  =  1.0 
GO  TO  160 

PINF  =  (RC1)**E  /  (  1  ♦  (RC1)**E  ) 

El  =  2.7  +  0.7  *  R  C 1 

EX=  R  C 1  **  El 

PINF  =  EX  /  (1  ♦  EX) 

CONTINUE 

IF  (RN.GE.PINF)  GO  TO  190  TGT  N°T  0ETECTED 

T3AR  =  (-3.6  /  PINF)  *  LOGO.Q  -  RN/PINF) 

IF  (TPAR  ,LT.  30  IDETCT  =  1 

CONTINUE 

RETURN 

END 
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1 

2 
3 


4 

5 

6 
7 
3 
9 

10 
11 
1  2 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 
27 
23 

29 

30 

31 

32 

33 

34 

35 

36 

37 
35 

39 

40 

41 

42 

43 
4  4 
45 

4  6 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 


SUBROUTINE  DIRIO(TYPS1X,REPSX,DAY$X) 

INCLUDE  PAR" 

INCLUDE  B  K 1 
INCLUDE  8  K 1  0 
INCLUDE  8K13 
INCLUDE  BK16 
INCLUDE  BK21 
C 

INTEGER  TYPS1X,REPSX,DAYSX,SIDEX 
C 

2  CONTINUE 


I0PTR3=(REPSX-1)*N31+TYPS1X 
I0PTR3=I0PTR3+PREF4*IREPS*ITYPS1 
I0PTR4=(REPSX-1 ) *N41+TY°S1X 
I0PTR4=I0PTR4+PREF2*IREPS*ITYPS1 
I  0  PTR  6  =T  Y  PS  1 X 

I0PTR6=I0PTR6+PREF3*ITYPS1 

C  TO  REINITIALIZE  AT  THE  BEGINNING  OF  EACH  DAY  ONLY 
IF  (  DAYSX  .EQ.  1  )  THEN 

C  INITIALIZE  CKILLS 

DO  1025  S IDEX=1  ,2 
DO  1025  1*1  1  NT YPS  ( 2 ) 

NUMWPNC I .SIDEX) =0 
DO  1025  J  =  1  ,  7 

CKILLS(SIDEX,I,J)=0 
1025  CONTINUE 

ELSE 

C  READ  IN  THE  CUMULATIVE  KILLS  TO  DATE 

READ (IU3'IOPTR3,1 030, ERR=1 035) 

io3o  '  ™SS)S55!i!s^6W!>‘=,’7>’J*1’,mpS<2” 

GOTO  1040 

1035  WRITE (6 , 1 037) 

1037  FORMAT(1X,30(1H*) ,5X, 'CKILLS  READ  ERROR 

8  30 ( 1 H* ) ) 


1040 

8 

1045 
1  046 

1047 

C  READ 

8 

1048 

1043 

1044 

104? 


STOP 

CONTINUE 

READ ( IU4'I0PTR4,1C3CjERR=1045) 

( (  NUMWPN ( I ,J ) ,J=1 ,2) ,1=1 ,NTYPS(2) ) 
GOTO  1C47 
WRITE (6, 1046) 

FOR  MAT ( 1 X , 30 ( 1 H* )  ,  5 X  , 'NUMWPN  READ  ERROR 
STOP 

CONTINUE 
ENDI  F 

IN  THE  DATA  USED  TO  PROJECT  LOSSES 

READ (IU6'I0PTR6, 1048, ERR =1043)  ((PROJCTCI 
1=1 ,NTYPS(2) ) 

F0RMATC500C500F6.2) ) 

GOTO  1049 
-RITE (6 ,1044) 

FORMAT(1X,30(1H*) ,5X,'PR0JCT  READ  ERROR', 
STOP 

CONTINUE 

RETURN 

END 


Figure  D-22.  Source  Listing  of  the  DIRIO  Subroutine  of 
Program  of  the  AFP  Combat  Module 
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i 

! 

4 

5 

6 
7 

a 

9 

10 

11 

12 

13 

14 

15 

16 
17 
13 

19 

20 
21 
22 

23 

24 

25 

26 
27 
23 

29 

30 

31 

32 

33 

34 

35 

36 

37 
33 

39 

40 

41 

42 

43 

44 

45 

46 

47 
43 

49 

50 

51 

52 

53 

54 

55 

56 

57 
53 

59 

60 
61 
o  2 

63 

64 

65 

66 
67 
63 

69 

70 

71 

72 

73 

74 

75 

76 

77 
73 
79 

50 

51 


SUBROUTINE  0  I RKLS (TYPS2X , E N V I R X , R A NGE X f  C N F X , S T AG E X 1 

INCLUDE  FARM 
INCLUDE  8  K 1 
INCLUDE  BK2 
INCLUDE  BK6 
INCLUDE  B  K  9 
INCLUDE  BK1C 
INCLUDE  8  K 1  1 
INCLUDE  8  K  1  5 
INCLUDE  8  K 1 7 
INCLUDE  B  K 1  6 
INCLUDE  BK13 
INCLUDE  9  K  1  9 
INCLUDE  BK21 
INCLUDE  BK23 
INCLUDE  B  K  2  4 
INCLUDE  B  K  2  5 
INCLUDE  BK27 

DIMENSION  DONE (3) * K I LL $ < I OD D S* 1 ) ,DURATN  ClCONFL) 

LOGICAL  DONE  ,SIGNAL,DWPNfCONDl ,  CQND2 

INTEGER  RANGE  X ,TYPS2X f P0INT1 , CON F LX , S I D E , 0 T HE R * P E X T , CN F X , S T A G E X  , 
L  ENVIRX 


CONTINUE 

*  *  *  *  * 

IF  (  CNFLCT 


.GT.  0  )  THEN 


bRITE  (6,90000)  TYPS2X.RANGEXICNFX*CNFLCT 
S  ,  (  (STATUS (10 t JO) , J0*1 ♦ 20) ,10  =  1 , CNFLCT) 

)  F0R*AT(1X  ,  "DIRKLS  1  T  Y  P  $  2  X  .  9  AN G  E  X  .  C  N  F  X  ,  C  N  FL  C  T  =  ",4(I3,2X) 

2  ,  "  STATUS^  ,500  (/,"  *  ,10<F10.4,2X) ,/f4Xf10{Fl0.Z,2x), 


/  )  ) 


)  GOTO  5000 


-SMALL2  ) 


C 
2 

CC 
C  D 
C  D 
C  D 

C  D90000 
C  D 

CD  ENDIF 

CC  ***** 

C  INITIALIZE  THE  DUEL  DURATION  TABLE 

IF  (  STAGEX  • EQ •  1  )  THEN 

DO  2000  C0NFLX=1 tCNFLCT 
DURATNC  CONFLX)=0.0 
2CCC  CONTINUE 

ENDI  F 

C  LOOP  TO  COMPUTE  KILLS  DUE  TO  DIRECT  FIRE 

DO  5000  C0NFLX=1 ,CNFLCT 

C  SKIP  IF  EXTERNAL  SHOOTERS  ELIMINATED  THE  DUEL 

IF  (  STATUS(CONFLX.I)  . L  T •  0.0 
P0INT1=I FIX (STATUS (CONFLX, 2)) 

C  CHECK  THAT  NEITHER  SIDE  IN  DUEL  IS  DEPLETED 

CONDI -STATUS ( CONFLX  ,3 )  ,6T.  -SMALL  2 

DO  2100  J  =  1  , PO  INTI 
C0ND2=C0ND1  .AND. 

S  (  STATUS(C0NFLX,3*J)  .GT. 

IF  (  C  OND  2  )  GOTO  2200 
21GC  CONTINUE 

STATUS (CONFLX , 1 )=-1 .0 
GOTO  5C00 

2200  CONTINUE 

ITEMP=-1 

TEMP  =  RMAXT/16 .0 

C  SEARCH  FOR  THE  SHORTEST  TIME  TO  FIRE 

DO  2700  I  -Q , P  0 1  NT  1 

a  I F  (  (  $TATUS(CONFLX, 3*1) .LT. TEMP  )  .AND. 

„  „  5  (  STATUS ( CONFLX ,3*1 )  .GE.  0.0  )  )  THEN 

C  FOUND  A  NEW  CANDIDATE 

I T  E  MP  =  I 

TEMP=STATUS (CONFLX, 3*1 ) 

ENDIF 

2700  CONTINUE 

C  CHECK  FOR  NO  SHOOTERS  IN  RANGE 

IF  (  ITEMP  .EG.  -1  )  THEN 

GOTO  5000 
ENDIF 

SHORTEST  TIME  TO  FTSE 
DO  l=0*Pfl INTI 

IF  (  f  STATUS  (CONFLX  ,  3+1  J  *LT*  RMAXT/1&.D  3  .AND. 

\  status(cdnflx,3  +  i )  * g t ,  a. a  )  )  then 

time  THE  NEXT  FILING  QCCUftS  AT 

STATU S£C0NFLX,3+l> ^STATUS? CONFLX ,3+1 )~TFMP 
TO  tq  0*0 

IF  f  Aesf  ST4rilSCC0NFLJrP3  +  EH  *LT.S^ALL1  3 
*  STATUS  f  C  QN  F  L  X ,3  +  1 ) “Q .0 


SUBTRACT  OFF  THE 
& 

SUBTRACT  OFF  THE 
SET  ENTRIES  CLOSE 
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82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 
93 
99 

1  GO 
101 
102 
103 
1  C  4 
105 
1C6 
1  C  7 
108 
1  09 
110 
1  1 1 
112 
1  13 
1  14 
1  1  5 
1  16 
1  17 
1  13 
1  19 
120 
121 
122 

123 

124 

125 
1  26 

127 

128 
1  29 

130 

131 
1  32 
1  33 
1  34 
135 
1  36 
1  37 
133 
1  39 

140 

141 

142 
1  43 

144 

145 
1  46 
147 
1  48 
149 
1  50 
151 
1  52 

153 

154 

155 
1  56 
157 
153 
1  59 
160 
161 
162 
163 


£  NO  I  F 

2800  CONTINUE 

C  UPDATE  THF  DUEL'S  DURATION 

DURATN (CONFLX) =  D  U  R  A  T  N (CONFLX) 4  T  E  M  P 
IF  (  DURATN(CONFLX)  .GT.  PROJCT (TYPS2X,3)  I  THEN 
C  TIME  IN  DUAL  AT  MAX*  SET  UP  TO  DENY  FURTHER  COMBAT 

STATUS(C0NFLX,1 )=-1 .0 

C  GO  TO  THE  NEXT  DUEL 

GOTO  5000 
ENDI  F 
I T  E  M  P  =  0 

DONE  < 1 )=. FALSE  . 

00  2850  I -0  *  P 0 1  NT  1 

C  INDICATE  WHICH  SIDE  SHOOTS  FIRST/BOTH 

IF  (  ABSCSTATUS (CONFLX, 3+1) )  ■  L  T  •  SMALLl  )  THEN 

IF  (  I  .EG.  0  )  THEN 
ITEMP=$MALER 
ELSE 

IF  (  .NOT.  DONE (1 )  )  I  TEMP  =  I TEMP  +  9 I GGER 

DONE(1)=.TRUE. 

END  I  F 
ENDI  F 

2850  CONTINUE 

C  1  IF  SIDE  1  SHOOTS  FIRST,  2  IF  SIDE  2,  3  IF  BOTH 

STATUS (CONFLX ,1 )=ITEMP+.Q1 
C  DETERMINE  THE  KILLS 

SIGNAL  =  . TRUE  . 

DO  3000  J=0<*P0INT1 
KILLS ( J+1 ) =0 

IF  (  A8S(STATUS (CONFLX, 3+J) )  .LT.  SMALLl  )  THEN 

C  A E  HAVE  A  SHOOTER 

C  RECORD  THE  SHOTS 

I  TEMPI =9  I GGER 

IF  (  J  .EQ.  0  )  ITEMP1 =SNALER 
SH0TS(ITEMP1,ENVIRX,RANGEX)= 

8  SH0T$(ITEMP1,ENVIRX,RANGEX) 

8  4  PROJCT(TYPS2X,4j  4  S  M  A  L  L  2 

C SHOTS (I  TEMPI, CONFLX)* 

&  C SHOTS (I  TEMPI , CONFLX) 

&  4  PROJCT (TYPS2X,4)  +  SMALL2 

C  OMIT  REPETITIVE  PROCESSING 

IF  (  SIGNAL  I  THEN 

IF  (  J  .GE.  1  )  SIGNAL=. FALSE. 

IF  (  J  .EQ.  0  )  THEN 

SIDE=SMALER 
ELSE 

SIDE=9IG6ER 
END  I  F 

OTHER=3-SIDE 

C  CHECKING  FOR  DIRECT  FIRE  SHOOTER 


DWPN-TYPS(SIDE) •  L  E  • (NTYPS(SIDE)“NOEXT(SIDE)  ) 
IF  C  DWPN  )  THEN 
DO  2875  1  =  1  , I P K  S 

C  LOOP  THROUGH  M ,  F,  K,  M  OR  F  KILLS 

ATEMP(1  ,  I  )  = 

S  P*S (SIDE,TYP$ (23 , I ,RANGEX ) 

2875  CONTINUE 

C  COMPUTE  BPEAKDOWN  OF  CO, 13  INTO  DISTINCT  INTERVALS 
C  PROPORTIONAL  TO  THE  M , F , K  PROBABILITIES 
C  PROBABILITY  OF  NO  KILL 


C  OBVIATE  REST  OF  ATEMP 


ATEMP(2,1)=1.0-ATEMP(1,4) 


C 


C 

C 

c 


ATE"P(2,2)=2.0 

ATEMP(2,3)=2.0 

ATE*P(2,4)=1.0 

NORMALIZE 


ATEMP(3,1)=ATEMP(2,1)/ATEMP(2,4I 
ATEMP(3,2)=ATEMP(2,2)/ATEmP(2,4) 
ATEMP(3,3)=ATEMP(2,3I /ATEMP(2 ,4) 

ELSE 

AN  EXTERNAL  WEAPON  IS  SHOOTING  IN  A  DIRECT  FIRE  DUEL 
DERIVE  THE  EXTERNAL  WEAPON  NUMBER 

PEXT=TYPS(SIDE)-NTYPS(SIDEI4N0EXT(SIDE) 

COMPUTE  THE  EXPECTED  KILLS 


A  TEMP  (  3 , 3  I  = 

S  EXT (SIDE, PE XT.TYPS (OTHER ),ENVIRX,RANGEX) 

ATEMP(3,3)=AMINU1.C,ATEMPC3,3n 

ATEMP(3,3)=1.0-ATEMP(3,3) 

ATEMP(3,1 3=2.0 
ATEMP(3,2)=2.0 
END  I  F 

endif 
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164 

165 

166 
167 
1  6  S 
169 
1  70 

171 

172 

173 
1  74 
1  75 

176 

177 

178 

179 

180 
181 
182 
183 
124 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 
1  96 
1  97 
1  98 

1  99 

2  CO 
201 
202 

203 

204 

205 

206 
207 
203 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 
2  3  9 

240 

241 

242 

243 

244 

245 


C  GENERATE  A  RANDOM  NUMBER  TO  FIND  THE  TYPE  OF  KILL 

TEMP=FIMSLU<IN$EED) 

IF  (  TEMP  .  GE  .  ATEMP(3,3)  )  THEN 
KILLS (J+1)=3 
ELSE 

IF  (  TEMP  .GE.  ATEMP(?,2)  )  THEN 
KILLS (  J  ♦  1 ) =2 
ELSE 

IF  (  TEMP  .GE.  ATEMP<3,1)  )  KILLS(J+1)=1 
ENDIF 
£  N  D  I  F 

C  END  OF  SHOOTER  IF 

ENDIF 

C  END  OF  LOOP  THROUGH  COORDINATES  OF  STATUS  ENTRY 
3  OOQ  CONTINUE 

C  FOR  THE  SIDE  WITH  MULTIPLE  WEAPONS,  DETERMINE  THE  TOTAL 

C  DAMAGE  DONE  TO  THE  SINGLE  WEAPON 

K I LL  S 1 =0 
DO  3200  1=1,3 
D0NE(I)=. FALSE. 

C  LOOPING  THROUGH  THE  DAMAGE  CATEGORIES 

DO  3100  J=1 , POINTY 

C  CHECK  TO  SEE  IF  THIS  DAMAGE  CATEGORY  HAS  ALREADY  OCCURRED 

IF  (  DONECI)  )  GOTO  3200 
IF  (  KILLS (J+1 )  .EQ.  I  )  THEN 
C  MAKE  SURE  THIS  CATEGORY  IS  NOT  EXAMINED  AGAIN 

DONECI) = • TR  U  E • 

C  ACHIEVED  A  KILL  OF  TYPE  TESTED  FOR  IN  THIS  PASS 

KILLS1=KILLS1*2** (1-1 ) 

C  CHECK  THE  NEXT  DAMAGE  CATEGORY,  SINCE  THIS  ONE  IS  DONE 

60T0  3200 

C  NOW  KILLS  1  CONTAINS  THE  APPROPRIATE  CODE  FROM  1  TO  7 

ENDIF 

3100  CONTINUE 

3200  CONTINUE 


RECORD  THE  KILLS 

IF  (  KILLS1  .GT.  0  )  THEN 
THE  WEAPON  ON  THE  SMALLER  SIDE  IS  M ,  F  ,  K  KILLED 
(  OR  SOME  COMBINATION  THEREOF  ) 

MARK  STATUS  ENTRY  FOR  DELETION 

STATUS (C0NFLX,1 )=-1 .0 

t  *★  *  * 

IF  (  CNFLCT  . G  T .  0  )  THEN 

WRITE (6 .901 00)  CONFLX 

c  a  o  m  « t  t *  DIRKLS  1 ,5'*3Xf "HIT  SMALLER  SIDE, 


C 

c 
c 

cc 

C  D 

CD  _  _ _  _ _ 

CD901C0  FOR  M  A  T  (  *  DIRKLS  1.5',3X,'HIT  SMALLER  SIDE,  DUEL 
CO  S  ,15) 

CD  ENDIF 

C  C  ***** 

C  SKIP  PROCESSING  IF  ALREADY  DEAD 

IF  (  STATUS(C0NFLX,3) 

C  SET  ENTRY  TO  SHOW  KILL 

STATUS (CONFLX, 3) 0.0*ITYP$ 

C  RECORD  THE  KILL 

CKILLS(BIGGER,TYPS2X,KILLS1)= 

&  CKILLS (BIGGER, TYPS2X,KILLS1) 

g  +PROJCT (TYP$2X,4) 

EC  * *  *  *  * 

CD  IF  <  CNFLCT  .GT.  0  )  THEN 

CD  WRITE (6,94000)  TYPS2X,RANGEX,CNFX, BIGGER 

CD  S  fCKILLS(BIGGER,TYPS2X,KILLSl),TFMP,ATEMP(3,1),ATEMP(3,3) 
CD  S  ,  INSEED,  CONFLX 

CD94Q00  FORMAT  (IX  ,'*DIRKLS  ' 


LT.  0.0  )  GOTO  3250 


C  D 
C  D 
C  D 
CC 


S  , 'CKILLS 
8  , 'INSEED 

ENDIF 


,'*DIRKLS  2  TYPS2X,RANGEX,CNFX,BIGGER=  ',4l5,1X 
=  ',18,/,'  R  AN  D  OM  =  ',F8.6f3X,'1-PKS=  ',2<F8.6,3X) 
E  D  =  ,16, 3X, ''DUEL  ',15,'  ENTRY  3') 


***** 


C 

3250 


TTL0S(SMALERf1,ENVIRX,RANGEX)  = 

8  TTL0$(SMALER,1,ENVIRX,RANGEX) 

5  ♦  PROJCT CTYPS2X,4) 

STORE  THE  KILLS  IN  THE  LOG  TA8LE 

L0G(CNFX,SMALFR,TYPS(BIGGFR),2+KILLS1)= 

6  LOG (CNFX,SMALER.TYPS  (BIGGER )  ,2  +  KILLS 1 ) ♦ 

&  PR0JCT(TYPS2X,4; 

F0RCS1 (SMALER)=MAX( 

S  0, F0RCS1 (S*ALER)-1> 

F0RCS2(SMALER)=MAX( 

S  0,FORCS2(S*ALER)-1) 

WPNS(SMALER,TYPS(SMALER))=MAXCO,»#PNS(SMALER, 
g  TYPS(SMALEP) )-1) 

ENDIF 

SKIP  HERE  IF  TARGET  IS  ALREADY  DEAD 
CONTINUE 


Figure  D-23. 
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CC 
C  D 
C  D 


CHECK  TO  SEE  IF  SMALLER  SIDE  KILLED  SOMETHING 
IF  <  KILLSd)  .GT.  0  )  THEN 

SMALLER  SIDE  KILLED  SOMEONE.  RECORD  THIS  KILL  IF  NOT  ALREADY  DEAD 
IF  (  P0JNT1  .  E  Q  .  1  )  THEN 

END  OF  THIS  DUEL,  KILLED  SOLE  WEAPON  ON  A  SIDE 
MARK  STATUS  ENTRY  FOR  DELETION 

STATUS (CONFLX ,  1  )=-1 .0 
SET  ITEMP  FOR  DIRKLS  4  DE9UG  PRINTOUT 
I TE  N  P  =  1 

IF  C  CNFLCT  .GT.  0  )  THEN 
•  RITE  (6 .94010)  CONFLX 

tnomkTf*  ftTD^ic  ->  i  *  ■» 


CD94010  FORMAT t  DIPKLS  2.2  ,3*. 'HIT  8IGGER  SIDE  .DUEL  ' 


C  D 
C  D 
CC 
C 


S  ,  I5.3X,  'ENTRY  4' j 

ENDI  F 

***** 

SKIP  IF  TARGET  IS  ALREADY  DEAD 

IF  (  STATUS (CONFLX, 4)  .LT.  0.0  ) 
0  GOTO  3300 


C  SET  STATUS  ENTRY  NEGATIVE  TO  DENOTE  KILL 
C  TALLY  THIS  WIN  S  TATUS  C  CONFLX  ,  4  >  ~1  0. 0*1  TYPS 

ELSE 

C  SIDE  HAS  MORE  WEAPONS,  DETERMINE  WHICH  WAS  KILLED 

DO  1000  L  =  1.POINT1 

IF  (STATUS<CONFLX,3*L)  .GE.  0.0)  THEN 
ITEMP  =  L 
GOTO  1099 
ENDIF 

1000  CONTINUE 

CC9*****  CONTINUE 

CD  IF  (  CNFLCT  .GT.  0  )  THEN 

CD  URITE (6 .94020)  C  ON  F  L  X , 3  *  T  TE  MP 

CD94020  FORMAT  ( *  DIRKLS  2.6*,3X,  HIT  9 


C  D 
CO 
CC 

c 


CC 
C  D 
C  D 
C  D 
C  D 


8  ,  I  5 , 3X , 

ENDI  F 


'ENTRY  ',13) 


BIGGER  SIDE,  DUEL 


SKIP  IF  TARGET  IS  ALREADY  DEAD 
0  If  <  STATUSCCONFLX, 3*ITEMP) 

8  GOTO  3300 


.LT.  0.0  ) 


ITEMP  CONTAINS  POINTER  TO  THE  KILLED  ENTRY 
SET  KILLED  ENTRIES  VERY  NEGATIVE 

cur,  S  T  A  T  U  S  (  C  0  N  F  L  X  ,  3  ♦  I  T  E  M  P  )  *  -  1  0 . 0  *  I  T  Y  P  S 

END  OF  IF  (  P0INT1  ,£Q.  1  ) 

ENDIF 

I  TEMPI =2** (K ILLS ( 1 ) -1 ) 

„  CKILLS(SMALER,TYPS2X,ITEMP1)= 

5  CKILLS ( SMALER ,TYPS2X , ITEMP1 )* 

8  PR0JCT(TYPS2X,4) 

***** 

IF  (  CNFLCT  .GT.  0  )  THEN 
*RITE(6,941C0)  TYPS2X,RANGEX,CNFX,SMALER 

i  atemp<3-15 *ate"p<3’3’ 


CD94100FORPATC1X,'. DIRKLS. 3  TY  P  S2X  .  R  A  NGE  X  ,  C  N  F  X  ,  S  "  AL  E  R  «  4I5.1X 

CD  8  t  CKILLS=  *  1 8  »  / *  RANDON=  ',F8.6  3x,'1ipxs=  ',2  f 

CD  8  .  TNSfFfts  Ma.U  'mici  -  r  *:  -  cltd,  -  ,  t  <■  ’ 


C  D 
C  D 
CC 


8  ,'INSEED= 
ENDI  F 


RECORD  THE  KI LLS 


,16, 3X, 'DUEL  ',15,'  ENTRY  ',13) 

TTLOS (3 I6GER , 1 , EN V  I R X , R ANG E X )  = 
TTLOS (BIGGER, 1.ENVIRX.PANGEX) 
♦  PROJCTCTYPS2X, 4) 


3  X ) 


8 


8 


C 

3300 
C 
C 


L0G(CNFX,9IGGER,TYPS(SMALER),2+ITEMP1)= 
L0G(CNFX, BIGGER, TYPS(SMALER),2+ITEMP1)+ 
PR0JCT(TYPS2X,4) 

FORCS1 (83GGER)="AX( 

FORCS1  (BIGGER)-I ,0) 

FORCS2 (B IGGER ) =MAX  < 

F0RCS2(8IGGER ) -1 . 0) 

WPNS(9IGGER,TYPS(9IGGER) )=MAX(0,WpNS (3IGGER , 
_ .  ^  _  fTP5(BIGGER))“1) 

END  OF  IF  (  KILLS(I)  .GT.  0  ) 

ENDIF 

SKIP  HERE  IF  TARGET  ALREADY  DEAD 
CONTINUE 

CH^cJ£?I  90™  SIDES  SURVIVE  I.E.  THAT  FURTHER  COMBAT  IS 

C0ND1=STATUS (CONFLX ,3)  .GT.  -S  M  A  L  L  2 
DC  3400  1=1  , PC  I  NT  1 
C0ND2=C0ND1  .AND. 

S  Tr  ,  (STATUS (CONFLX, 341)  .GT.  -SMALL2  ) 

T/nn  IF  (  C  ON  0  2  )  GOTO  3500 

3^00  CONTINUE 

,-.n  STATUS (CONFLX,  1)=-1 .0 

35J0  CONTINUE 

C  END  OF  CONFLX  LOOP  FOR  LOSSES 
53C0  CONTINUE 

c  c  ***** 

CD  IF  (  CNFLCT  .GT.  0  )  THEN 

CD9100Q  Fgi;i4^?:9S?SK£r^SJii,t5TATU|CIO^O,  =  1  20J.IO-1.CNFUCT, 

CD  8ENDlf500</’'  •'•10‘^0-*.2X)./.**.?0(F10:4;|i)"n  ) 

CC  ***** 


RETURN 

END 
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3.  Records  the  side  firing  in  each  duel. 

4.  For  each  duel,  determines  whether  a  kill  occurs  by  comparing 
the  PK  to  a  random  number,  and  computes  the  type  of  kill  (currently,  only 
one  kill  type  is  used). 

5.  Record  the  kills. 

(8)  EXTASG 

(a)  Purpose.  To  compute  the  number  of  indirect  firers  assigned  to 
each  range  and  environment.  Figure  D-24  is  a  source  listing  of  subroutine 
EXTASG. 


(b)  When  Called.  Every  time  a  new  pair  of  opposing  direct  fire 
types  is  to  be  processed,  called  by  MAIN. 

(c)  Subtasks 


1.  The  fraction  of  each  indirect  firer  type  allocated  to  each 
range  and  environment  is  the  product  of  the  following  factors: 

a.  The  input  datum  that  is  the  product  of  the  preference  and 
participation  factors  for  the  indirect  shooter. 


b.  The  fraction  of  indirect  shooters  used  for  area  fire. 

c.  The  fraction  of  direct  fire  conflicts  occurring  at  the  given 

range. 

ci.  The  fraction  of  direct  fire  conflicts  occurring  at  the  given 
environment. 


2. 

the  indirect 


This  fraction  is  multiplied  by  the  initial  daily  inventory  of 
firer  to  obtain  a  preliminary  integer  assignment. 


3.  The  unassigned  fractional  weapons  are 
similar  to  the  one  used  in  FRCALC. 


allocated  by  a  method 
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SUBROUTINE  EXTASG 
C 

INCLUDE  PA RW 
INCLUDE  SKI 
INCLUDE  3*2 
INCLUDE  3*6 
INCLUDE  9*9 
INCLUDE  0*13 
INCLUDE  0*16 
INCLUDE  3*17 
INCLUDE  0  K  2  0 
INCLUDE  B  K  2  2 
INCLUDE  B  *  2  4 
C 

DIMENSION  REMS (  IENVIR, I  R  ANGE  3 


INTEGER  SIDEX, EXTX, RANGEX,ENVIRX 
INTEGER  COUNT 

CONTINUE 

DO  4000  SIDEX-1 +  2 
IOTH|fi=3-5IDEl 


LOOP  QWEfl  THE  EXTERNAL  UEARON  TTP*5  1A3Sumes,  TO  BE  THE 
E  LAST  TTPC5 

C  SKIP  IF  NO  EXTERNAL  WEAPONS  PRESENT 

IF  {  fSlDEX  *  F  £  -  1)  i  A  N  D  *  f I EXT  1  0  I  I 

S  GOTO  4 COG 

IF  (  CSlPE3t  ,Ea.  21  *  AND  #  (  I  £  X  T  2  03  J 

K  SOTO  4000 

DO  4Q0Q  E  X  T  X  - 1  g  NOE  X  TCSIDEX) 

COUNT'D 

I P T  R  r N T  t  P  S  I S I D  E  X  3  -NOEX  T  f  S  t  D  E  X  3  +  E  X  T  K 
DO  2525  RANGEX  =  1 t lp A N G E 
p  ENVlffx-1  »PtENVI  R 

CREATE  POINTER  TO  INE  IYP£  NUMBER  Q F  THE  EXTERNAL  WEAPON 
C  COMPUTE  THE  NUMBER  OF  EXTERNAL  SHOOTERS 

T^d^PnSKs  IDE**  IPTR3  *  TJtDDSTfSID  EX,  EXT  X  .RAHGEX) 
r  Tl  ^  *f!tPFfi*S^*t£*TTO  *ENVDSTCENVI«X3 

C  APPEND  TO  THE  EXTERNAL  ASSIGNMENTS  ARRAf 

EXTN1  (SIDEX  , EXTX  ,  E  N  V  I  R  X  ,RANG£X)  =  T  E  M  P 

?nnSi^)(,Il5i’RAN6EX;=TE^P“EXT^1  (SIDExtFXTX  ,£NVIRX  ,RANGEX  3 

LUUN I— COUNTS 

"  C0NTINUpTN1<SIDEX,£XTX,ENVIPX,RANGEX) 

COUNT =UPNS1 (SIDEX, IPTR) 

S  *EXTPER (SIDEX, EXTX) -COUNT 

DO  3000  1=1 , COUNT 
I PTR  R  =  1 
IPTRE=1 

DO  3500  ENVI RX=1 , NENVI R 
DO  3500  RANGEX  =  1 , I  RANGE 
a  IF  (  REMS (ENVIRX , RANGEX)  .GT. 

8  REMS (IPTRE,IPTRR}  )  THEN 

IPTRE=ENVIRX 
IPTRR=PANGEX 
ENDIF 

3500  CONTINUE 

EXTN1 (SIDEX, EXTX, IPTRE,IPTRR)= 

S  EXTN1 (SIDEX, EXTX, IPTRE,IPTRR)+1 

REMS  (  IPT  RE  ,  I  PTRR ) =  -1  .Q 
30G0  CONTINUE 

4000  CONTINUE 
R  ETURN 
END 


Figure  D-24.  Source  Listing  of  the  EXTASG  Subroutine  of  the  Main 
Program  of  the  AFP  Combat  Module 
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(9)  EXTKLS 

(a)  Purpose.  To  assess  the  kills  due  to  indirect  fire  during  a 
conflict.  Figure  D-25  is  a  source  listing  of  subroutine  EXTKLS. 

(b)  When  Called.  During  every  shot  cycle,  from  MAIN. 

(c)  Process.  The  number  of  indirect  shots  during  this  shot  cycle 
is  computed  and  the  number  of  expected  kills  derived.  For  each  expected 
kill,  a  pointer  is  generated  to  an  opponent's  particular  weapon  in  a  par¬ 
ticular  duel  in  the  conflict.  If  the  weapon  has  been  destroyed  previously, 
no  credit  is  given.  If  the  weapon  was  intact,  a  kill  is  recorded,  and  the 
weapon  ceases  to  participate  in  the  duel.  Note  that  when  the  direct  fire 
duel  terminates  before  the  estimated  number  of  shots  occur,  the  artillery 
may  cause  casualties  after  the  duel's  termination. 

(d)  Subtasks.  For  a  given  indirect  shooter  type: 

1^.  The  number  of  shooters  allocated  to  the  given  opponent  type, 
range,  and  environment  is  obtained  from  the  table  computed  by  EXTASG. 

2.  The  number  of  tubes  derived  above  is  multiplied  by  the  number 
of  indirect  fire  salvos  expected  during  this  shot  cycle  to  obtain  the  num¬ 
ber  of  rounds.  The  number  of  indirect  salvos  during  this  shot  cycle  is 
computed  by  the  routine. 

3.  Multiplication  of  the  number  derived  in  step  3  by  the  frac¬ 
tional  kill  per  round  per  target  gives  the  expected  number  of  kills.  This 
number  is  reduced  by  multiplication  by  the  fraction  of  the  initial  daily 
inventory  of  the  target  type  present  at  the  conflict.  Another  adjustment 
may  be  applied  to  account  for  changes  in  target  density  associated  with 
whether  an  attrited  force  defends  or  attacks  over  the  original  or  reduced 
area. 


4.  For  each  expected  kill,  a  potential  victim  is  picked  randomly 
from  the  conflict.  If  the  victim  is  not  previously  destroyed,  a  kill  is 
credited  and  the  weapon  is  removed  from  the  duel.  If  the  victim  was 
previously  destroyed,  no  credit  is  given.  As  usual,  there  is  some  special 
logic  to  determine  whether  fractional  results  are  to  be  rounded  "up"  or 
"off." 

5.  During  the  process,  the  number  of  indirect  shots  is  tallied. 
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C 


C 

c 

c 


c 

c 

c 

2 

c 


c 


10 

c 

c 

c 

c 


c 


c 

c 


c 


cc 

C  D 
C  D 
C  D 

C  D97 

CC 

C 


SUBROUTINE  EXTKLS  (  E  N  V  I  R  X  ,TYPS2X,CNFX  v RANGEX  ,STAG£X) 

INCLUDE  PARM 
INCLUDE  3  K 1 
INCLUDE  3K2 
INCLUDE  BK  3 
INCLUDE  B  K4 
INCLUDE  B  X  6 
INCLUDE  9K7 
INCLUDE  9  K  9 
INCLUDE  BK 1 3 
INCLUDE  9  K 1 4 
INCLUDE  B  K 1 5 
INCLUDE  9  K 1 6 
INCLUDE  0K17 
INCLUDE  3 K 1 9 
INCLUDE  BK22 
INCLUDE  8K23 
INCLUDE  3  K  2  4 
INCLUDE  9K25 
INCLUDE  BK27 

DIMENSION  CNFSK2) 

REAL  INTERV f STRCNT 

INTEGER  EXTX,P0INT1.P0INT2 ,  CONPTR ,CONFLX, SIDEX, STAGEX,ODD$X 
INTEGER  ENVIRX,TYPS2X, CNFX, RANGEX, COUNT, WPNPTR,VPTR,CNFST 

LOGICAL  CONDI  ,  C0ND2 

SAVE  CNFST, COUNT 

CONTINUE 

LOOP  THROUGH  CONFLICTS  RECORDING  KILLS  BY  EXTERNAL  WEAPONS 
IF  (  CNFLCT  .LE.  0  )  RETURN 
KILLS1=0 

IF  (  STAGEX  .EQ.  1  )  THEN 

SAVE  THE  STRENGTH  THE  CONFLICT  STARTS  WITH 
CNFST  Cl ) =F0RCS2 (1  ) 

CNFST(2)=FORC$2(2) 

COUNT=Q 

DO  1 0  0  D  D  S  X  =  1  ,NODDS 

COUNT  =  COUNT  +  C ON FLC(ODDSX, RANGEX, ENVIRX) 

8  *  ODDS(ODDSX) 

CONTINUE 

ENDIF 

LOOP  OVER  THE  SIDES 

DO  2527  S I D  E  X  =  1 ,2 

LOOP  OVER  THE  EXTERNAL  WEAPON  TYPES  (ASSUMED  TO  3E  THE 
LAST  TYPES  )  !  !  !  ! 

SKIP  IF  NO  EXTERNAL  WEAPONS  PRESENT 

IF  {  (SIDEX  .EQ.  1)  .AND.  (IEXT1  .EQ.  0)  ) 

8  GOTO  2527 

IF  (  (SIDEX  .EQ.  2)  .AND.  (IEXT2  .EQ.  0)  1 

8  GOTO  2527 

DO  2525  EXTX  =  1  ,NOEXT (SIDEX) 

CREATE  POINTER  TO  THE  TYPE  NUMBER  OF  THE  EXTERNAL  WEAPON 
ITEMP=NTYPS(SIDEX)-NOEXT(SIDEX)+EXTX 
IF  (  REFIPE(SIDEX,ITEMP ,  T  Y  P  S  (  3  -  S  I  D  E  X  ) ,£NVIRX) 
I  .LT.  SMALL2  )  GOTO  2525 

COMPUTE  THE  OF  EXTERNAL  SHOOTERS.  BY  REDUCING  BY  THE 

TICIPaTIQY  RATE 

S  TB  C  N  T  s  E  V  TN 1 C  5  X  Q  E  X  t  E  X  TV , £*V I R  V  t  *  A  N  £  m 
*  ,  *  IN&SAW  (  SIDEX  P E XTX , TYPS C3-S  1&£X  )  ? 

IF  (  STAGEX  .EQ,  1  )  THEN 

APPEND  TQ  THE  EXTERNAL  ASSIGNMENTS  AfifiAT 

EXTN(SIQ-EX,EXTXtENVINX.  RANGEX,  CNFX)  - 
l  E  X  TN  <  S I D  E  *  T  E  N  V I R  X , «  A  HG  E  X  ,  C  N  F  XJ 

4  ■+  STflC3*T*PRO  J  CT  f  TYPS  2*  ,  4J  *  SMALLS 

-RITE  (6,97)  STRCNT,  P R 0 J C T ( T Y P S 2 X , 4 ) , 

3  STRCNT*PR0JCT(TYP$2X,4)4S"ALL2, 

8  EXTN(SIDEX,EXTX,ENVIRX, RANGEX, CNFX) 

FORMAT  ('  EXTN  .5  ",  4G10.4) 

****** 

RECORD  The  ASSIGNMENTS 

LOG(CNFX,3-$IDEX,ITEMP,$IDEX)= 

8  LOG (CNFX, 3-SlDEX,ITEMP,SIDEX)*STRCNT* 

&  PR0JCT(TYPS2X,4) 

ENDIF 


Figure  D-25.  Source  Listing  of  the  EXTKLS  Subroutine  of  the  Main 
Program  of  the  AFP  Combat  Module 
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158 

159 

160 
161 
1  62 
163 


IF  <  STRCNT  .EG.  0  )  GOTO  2525 
C  COMPUTE  THE  TIME  PER  SHOT 

RATIO=PROJCT(TYPS2X,3)/NSTAGE 

RATI0  =  RATI0/REFIRE (SID  EX, I  TEMP ,  TYPS (3-SIDEX) 

8  , ENVIRX) 

C  SEE  IF  THE  ELAPSED  TIME  ALLOWS  ANOTHER  SALVO 

ITEMP4=IFIX(RATI0*STAGEX)-IFIX (RATIO* (STAGEX-1 ) ) 

c  c  ***** 

IF  (CNFLCT  .GT.  0  3  THEN 

WRITE(6,99)  (PR0JCKTYPS2X  tM)  f  M*3f  4)  ,  NSTAGE.R  ATIO 
8  ,REFIRE(SIDEX,ITEMP,TYPS (3-SIDEX) ,ENVIRX),ITEMP 
l  , STAGEY, RATIO*STAG EX ,RAT!0*(STAGEX-1),ITBMP4 
8  , STRCNT*ITEMP4*£XT<SIDEX  ,£XTX  ,TYPS (3-SIDEX) , ENVIRX  , RANGE  X) 

8  ,EXT(SIDEX, EX TX, TYPS (3-SIDEX), ENVIRX, RANGEX), STRCNT 

,TYPS(3-S1DEX) ,WPNS1 (3-SIDEX. TYPS (3-SXDEX)) v FOR CS2( 3-SIDEX) 
FORMAT (IX , " E  X  TK  L S  1  PROJCT=  *  ,  2  (  3 X . F 5 . 2 )  , 3 X , " H S T A G E =  " , 15 
,3X,'RATI0=  ",F10.5,3X,"REF1RE=  ,F10.5,3X/ 

,1X,"ITEMP=  ",I5,3X  'STAGEX=  ',I5,3X 


CD 
C  D 
CD 
CD 
CD 
CD 
CD 
CD99 
C  D 


CD 
CD 
CD 
CD 
CD 
C  D 
CC 


,ia,  i.icnr—  jja.  J  I  flbCA-  |  1  j  )  ja 

,-’raT*STG=  ".F1Q.5,3X,"RAT*STG-1=  ",F10.5 
,3X,"ITEMP4=  *,  15, 3X,/, 1X,"KILL$=  "  ,  f  1  0 . 3 
,3X,"KPR=  ',FlG.5,3Xf "$TRCNT=  "  ,  F 1 0 . 3 , / 1 X , "T A R G ET  TYPE; 
,1X,  TARGET  INVENTORY^  ,110, 3X, "LIVE  TARGETS=  ",I10) 


M3 


END!  F 


)  GOTO  2525 


IF  (  ITEMP4  .EG.  0 

C  OBTAIN  THE  EXPECTED  KILLS  PER  ROUND 

TEMP=EXT(SIDEX,EXTX,TYP$ (3-SIDEX) ,ENVIRX, RANGEX) 
C  TO  OBTAIN  THE  KILLS  FOR  THIS  SHOT  CYCLE,  3Y  MULTIPLYING  THE 
C  KILLS  PER  ROUND  PER  TARGET  BY  THE  NUMBER  OF  SHOOTERS  AND 

C  BY  THE  NUMBER  OF  SALVOS  PER  SHOT  CYCLE 

TEMP=TEMP*STRCNT*ITEMP4 

C  DEGRADE  KILLS  BY  FRACTION  OF  INVENTORY  PRESENT 

TEMP5=FL0AT (DAYSTC3-SIDEX) ) / 

8  ewPNS (3-SIDEX, TYPS (3-SIDEX), ENVIRX, RANGEX) 

TEMP=TEMP*TEMP5 

C  DECREASE  KILLS  DUE  TO  REDUCED  DENSITY  IF  REQUIRED 

IF  (  LESDNS (3-SIDEX)  )  THEN 

TEMP6  =  F  L.O  AT  (WPNS1  (3-SIDEX, TYPS(3-$IDEX)  )  ) 

&  /  FL0AT(WPN$11(3-SIDEX,TYP$(3-SrDEX))) 

ELSE 

TEMP6  “  1.0 
ENDI  F 

TEMP  =  TEMP  *  TEMP6 

C  C * *★*  * 

C 

c 

C 
C 

c 

C101 
C 
C 
C 

c 

CC 

c 


IF  (  CNFLCT  .GT.  Q  )  THEN 

WRITE  (6,101)  TYPS(I),  TYPS ( 2) ,  CNFX, 

8  T EM P,DAYST(3-SIDEX)fBWPNS (3-SIDEX, TYPS (3-SI OEX), 

8  ENVIRX, RANG  EX), TEMP5.WPNS1  (3 -SIDEX,TYPS(3-SIDEX)), 

8  wPNSI 1  (3-SIDEX, TYPS (3-SIDEX)), LESDNS(3-SIDEX),TEMP6 
FORMAT (IX , "EXTKLS  2  ",  313,"  KILLS=  "  ,  F  1  0 . 3 , 3  X  ,  "  D  A  Y  S  T  =  ",I5, 
,"9wPNS=  ",  17, 3X , "FRACTION  PRESENT  =  ",F6.4,3X, "  w  P  N  $  1  =  1 
, I  5 , / , 4X , " WPNSl 1 =  ",  15  ,3X  ,  "DENSITY?  ",L5,3X 
.^hPWCTTv  rarmo=  '  ca  l  \ 


8 
8 

8  , "DENSITY  FACTOR 

ENOI  F 


3  X 


’  , F6 .4) 


CC 
C  D 
C  D 
CD 
C  D 

C  D  9  8 
C  D 
C  D 
C  D 
CC 


ADD  THE  NUMBER  OF  EXTERNAL  SHOTS 

ESHOTS(SIDEX,EXTX, ENVIRX, RANGEX)  = 
ESHOTS(SIDEX,EXTX, ENVIRX, RAN6EX) 

♦  STRCNT*ITrMP4*PR0JCT(TYPS2X,4)*TEMP5 


5 

6 

*  *  *  *  * 


& 

& 

s 

s 

8 

8 

*  *  *  *  , 


WRITE (6,98)  EX TN(SIDEX,EXTX, ENVIRX, RANGEX, CNFX) 
,ESHOTS($IDEX,EXTX,ENVIRX,RANGEX), STRCNT, ITE*P4 
,TEMP5,LCSDNS (3-SIDEX), T^MP6 


KILLS=IFIX(TEMP) 

REMN=TEMP-K ILLS 

C  ADD  1  IN  ORDER  TO  ALLOw  ASSESSMENT  OF  FRACTIONAL  KILL 

KILLS=KILLS+1 

C  LOOP  OVER  THE  NUMBER  OF  CONFLICTS  IN  WHICH  EXTERNAL  WEAPONS 
C  WILL  INTERVENE 

DO  2520  1=1, KILLS 

C  DETERMINE  WHETHER  A  FRACTIONAL  KILL  IS  TO  3E  ASSESSED 

IF  (  I  .EG.  KILLS  )  THEN 
TEMP2=f IM$LU( INSEED ) 

C  SKIP  IF  RANDOM  NUMBER  BIGGER  THAN  FRACTION 

IF  (  TEMP2  .GT.  REMN  )  GOTO  2520 
ENDIF 
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1  64 

165 

1  66 

167 

163 

169 

170 

1  71 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

183 

189 

190 

191 

192 

193 

1  94 

195 

196 

197 

198 

1  99 

200 

201 

202 

203 

204 

205 

2C6 

207 

2  08 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

233 

239 

240 

241 

242 

243 

244 

245 


CAA-D-84-14 


cc 

CD 
CD 
CD102 
C  D 
CC 

c 


IF  C  SIDEX  .EQ.  BIGGER  1  THEN 

C  0  NPT  R  =  (  CNFLCT-1  )  *  FIMSLU(INSEED)  ♦  1 

ELSE 

COMPUTE  THE  INTERVAL  SIZE  PER  WEAPON  ON  LARGER  SIDE 

INTERV  =  1  .C/COUNT 

COMPUTE  A  WEAPON  NUMBER  FOR  THE  WEAPON.  IDS  RUN  FROM  0 
TO  COUNT-1 

*pnptr=fim$lu(inseed)/interv 

REDUCE  THE  WEAPON  NUMBER  IF  NECESSARY 

IF  <  WPNPTR  .EQ.  COUNT  )  W PNP TR =C OUNT - 1 

CHECK  TO  SEE  IF  WEAPON  IS  IN  THE  LARGER  ODDS  DUELS 

IF  (  WPNPTR  .GT. 

&  ODDS  (1) *CONFLG (1 , R ANGEX, ENVI RX ) -1  )  THEN 

REORIGIN  THE  WEAPON  NUMBER 

WPNPTR=WPNPTR 

&  -ODDS (1) ♦CONFLOCI ,  RANGE X  ,ENVIRX) 

SET  THE  CONFLICT  POINTER 

CONPTR  =  WPNPTR/ODDS  C  2) 

8  ♦CONFLOC 1 ,  RANG EX  * ENVIRX)+1 

COMPUTE  THE  POINTER  TO  THE  WEAPON  IN  THE  DUEL 

VPTR  =  MODCVPNPTR,ODDS(2n+1 
ELSE 

WEAPON  IN  THE  LOWER  ODDS  DUELS 

CONPTR-CWPNPTR/ ODDS  C 1 ) ) +1 
VPTR  =  MOD  (WPNPTR  ,ODDS  < 1))  +  1 
ENDIF 
ENDIF 

POINTER(S)  TO  THE  STATUS  ENTRY  FOP  THE  IMPACTED  WEAPON 
DETERMINE  THE  CONFLICT  IN  WHICH  THE  EXTERNAL  WEAPONS  INTERVENE 
TO  DETERMINE  THE  KILLS,  IF  ANY 

IF  (  BIGGER  .EQ.  SIDEX  )  THEN 


IF  C  CNFLCT  .GT.  0  )  THEN 
WR  ITE (6 *102)  CONPTR 

FORMAT (IX ,EXTKLS  2.5',3X,'WIT  DU  EL  = 
ENDIF 


’ , 1 5 , 3X ,  *  ENTRY  3") 


il 


RECORD  KILLING  WEAPON  IF  WEAPON  HASN'T  BEEN  KILLED  EARLIER 

IF  (  STATUS (CONPTR, 3)  .LT.  0.0  ) 

S  GOTO  2520 

STATUS (CONPTR, 3) =-EXTX-.1 
KILLS1=KILLS1*1 


CD 

CD104 
C  D 
C  D 

CC  *** 


IF  (  CNFLCT  .GT.  0  )  THEN 

WRITE(o,104)  KILLS, CONPTR, EXTX 

F0RMAT(1x,'*EXTKLS  3,  K I L  L  S  =  ' , I  5 , 3 X , ' DU E L =  ',15 
S  ,3X  , 'EXTERNAL  WPN  JD=  ' ,  I  5  ) 

ENDIF 


C 

CC 
C  D 
C  D 

CD1C6 
CD 
C  D 
CC 
C 


GOTO  2520 
ELSE 

SMALLER  SIDE  DID  KILLING.  FIND  WHICH  WEAPON  WAS  KILLED 


*  *  *  *  * 


IF  (  CNFLCT  .GT.  0  )  THEN 


WRITE(6,106)  CONPTR, 3+VPTR.C0UNT,WPNPTR,INTERV 
F0RMAT(1X,'EXTKLS  3.5',3X,*HIT  DUEL=  '  ,  I  5 , 3 X , ' E N T R Y =  ' 
,/,  C  OU  N T  =  , I  5 , 3  X , ' WPN  PTR  =  '  ,  I  5 , 3 X , * 1 N T E R V  A L =  ',F3. 


ENDIF 


,  15 
6) 


RECORD  KILLING  WEAPON  IF  WEAPON  HASN'T  BEEN  KILLED  EARLIER 
„  I  F  (  STATUS (CONPTR, 3+VPTR)  .LT.  0.0 

S  GOTO  2520 

STATUS ( CONPTR  ,3  +  VPTR ) =-EXTX-.1 
KILLS1=KILLS1+1 


IF  (  CNFLCT  .GT.  0  )  THEN 

WRITEC6.105)  KILLS, CONPTR  ,3  +  VPTR.EXTX 

FORMAT (1X, '*EX  TKLS  4,  KILLS*  ' , I  5 , 3 X , ' DUE L  =  ' , I  5 , 3 X , ' £ N T R Y =  ' 
S  ,  15 ,3X  , 'EXTERNAL  WPN  I D=  '  -  '  ' 

ENO  I  F 


M  5) 


ENDIF 
CONTINUE 
CONTI NUF 
CONTINUE 

NOW  TO  PECORD  EXTERNAL  KILLS 

IF  (  KILLS1  _  _  „  .. 

EXTERNAL  WEAPONS  HAVE  KILLED  SOMETHING 

DO  25*0  C0NFLX=1 , CNFLCT 
SIDEX  INDEXES  THE  SHOOTERS 

00  2560  SIDEX -1,2 


.NE.  0  )  THEN 
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246 

247 
243 

249 

250 

251 

252 

253 

254 

255 

256 

257 
253 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
281 
282 

2  6  3 
284 
265 
286 
267 
263 
269 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 
3C6 

307 

308 

309 

310 

3  11 

312 

313 
3U 
315 
3  16 
317 
3  1  3 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 


IF  (  SIDE*  BIGG£H  3 

PC [NT  1=0 

Z-Q 

ELS£ 

POINTlil 

!  FH  <  STH  Til'S  (  CQNf  L  *  H  ill 

e*DI  t 

LOOP  fh»QUGH  LOOK  THE  FD*  VI  CUPS*  ±  HflEaES  POTENTIAL  V  I  C  T  I  ■  S 

&(?  E$40  J^POi  NT1  f  PCINT2 
I  TE"P?m?TMUS  fCONFLK  i  ?*  J  1 

SHIP  TO  NFlT  POTENTIAL  VICTIM  if  EXTERNAL  type  Mpg  HO  KILLS 

If  t  I T  FMoJ  ,G£.  0  ]  SOTO  £340 

Skip  entries  ilreiat  dead 

l  F  f  ITiPPZ  «LT.  -IF  IT  )  GOTO  £5  40 
PLACE  Twe  ID  0*  THE  EXTERNAL  KILLER  I N  ITfflP? 

I  rtKfZMTEPFZ 

ItEPR3=HTTFS  CSISiKl-NOEKT  1ST  ftEU  MT£»PZ 
IF  {  SIDE*  .£0.  9I^GEP  l  T H E * 

The  gEGGER  SIDE  n  DOING  THf  SHO&TImS.  friC  SMALLER  SIDE  TWEN 
FijflhIShiS  ThC  PQT*NT!al  VICTIM? 

MAS*  THE  EFfTAT  FOG  DELETION 

5  T  ATUSf  COHFUC . 1 ] »^T¥0 
POINT  TO  TH£  TTP£  OF  TMf  KILL 

E  t  7*  (  5  3  CE  H  .ITEMRJ  ,  £Nvl  P  *  ,  RANGF  X  4  IU  f  T  l  z 
3  EtTk^SIoEk  .  I  T  E  m  p  2  .ENVER*  .  fi  A  H  G  E  X  .  t  H  F  ft  1 


STORE  T WE  KILLS 


+  PBOJCT  (TVMSJm  ,  i.] 

LOG  «  CNF*.  1-SIDC  *  .[ TKMPl  .fi  J  * 

'  - - "lf $-5 J|  “  “ —  ' 


a  LDSEClIFKf  $-3  Ifl  Ei  ,  ITEWPT  ,  fij  + 

4  PPn4CT(TTP5iTt4 J 

■  PNS  f  7*SI&EI|  tYPS  f  3-5  IDF*  J  J  "Mi  *  (G 
F.  1-SIDEK  *TTPSi't-SI  Dl*  M“1  I 

TTLaEfSMALfBilTEhP2^T,£NVlflj(lflAH(iEiS* 

8  TTLD^f  SMlLE*f<  Tf|MP2«T  ,£NV|  fli  ,fl  AP(G£t  I  * 

*  P  ftviCT  t,TT  M‘  fit  ►  4  } 

SUBTRACT  LOSS  FAQ*  FORCES  AVAILABLE  Th£  NfaT  ENGAiSEH*Nr 

F&PCST  fSPiALEPI 

5  *  p  A  K  f  F  G  fi  C  S  1  C  i  M*  *  L  E  N  S  -  T  ,  0  ) 

FORKSJiS^ALEHl 

a  F0RCS2C SPalEM 3-T, 0J 

PROCESS  OTHER  SIDE,  ONLY  MEAPOH  R&SSliLE  HAS  P£En  5IlL£& 

#  ELSF 

THE  STILLER  5JCE  T  E  0O|N&  Th£  SCOOTING 

PICK  UP  T«£  NUMBER  OF  -EAPGN5  ON  TmE  CAflGFfi  STDE 

lTEMP  =  ifD5(sTATUSlCDNFL3fT?^2 
REC&&D  T  h£  LOSSES  Et  E&TERmAl  WEAPON  5H0DTER  rTP£ 

£*T  KC5I0£  R  i  I  T  f  M  P  2  »  c-NV  [  H1C  ^  a  AN  G  Ex  .  C  Kf  Y  j  * 

3  ElTK CSIDEK, ItEMP^ | £NvTR F ,  RA N&& X h C N f K 3 

E  *  MtN  UTEmp,  i  J -PROJCt  CTvps  Jx  k4  3 

SIC-fit  THE  ULLS 

LCt{CNIY,!-fTDf  I,  lTM*I»dJ  = 

L  IQECthFltWIHi  .  j  T£mp?  ,AH 

S  HIM<TT|APt  T1  *P&Q  jXJMTYP42!U4] 

wPNJ  f  DEA  +  TTPSn-SI  DEA  )  l=^ATfEt 

K  MPHS  f j -  SIDE ft*  TV  P  5  (3-SI  0  t A  J  3 “ 

I  M^ITEFPjtif 

TTLOSCH  JGGEP  +  I  TEMF?*1  +  EP*YIR)r*RANGEX  3  = 
l  TTLPS*0lGfiE®  +  It  E^Pi^l  tENvTR)!  ,  PAN$fK  3  ♦ 

!  »IH! | TE“P»1 J-PfflJCT (TTPja>1*| 

Sl'pTRACr  LOSS  FROM-  FDflCfE  AVAIL-6T.E  FOP  THE  N€>T  ENGAGEMENT 

FOfiCS 1  (P3 GGER 1 

1  =  ■ Ar C FORCSl f iIGG£R3 

l  -MTN(  r  TEMP*  1  I  1,03 

FGRC3?i?[ G&E  £  1 

I  m  -AYI F0PCS2 3 

S  - w T  ih  f  |  TEMP.  !  3  PC3 

END  IF  FOR  IF  1  5  IQ F a  .  £ S  -  9  I G  &  E  fi  J  Then 

endtf 

SET  KILLED  ENTRIES  VERY  n6GaT1v€ 

IF  f  ST* TUT ECDNFLT  .  I* J I  *Ll«  -SP*LLl  1 
STATUS  ICON  FI  t . 3* J 1 =-10. C* [ T  T  P  5 


:  f h d  of  loc-p  oh  victim? 

13  AC 

E  END  Of  LO0P  0W  SIDES 


CONTINUE, 


2  5faC  CCHTINUC 

C  CHECK  FOP  SURVIVALS  INSUFflCIIHT  F-3R  F  u  R  T  P  £  R  COMBAT 

CONDI =S T ATUSICDNFL* , 3 J  . GT .  -SMRLL2 
50  257C  K-l  +  1FI A (STATUS [ COhFlT pjl ] 
CGND2-  COvol  +  A  N  0  # 

t  i  STATUS fC0HFLXfl^K3  ,&T4  -  S  M  A  L  L  2  3 

IF  (  C0NO?  3  60TQ  2?75 
2570  tONFlNUE 

„  STATUS IfQHFttf.Tli-ltQ 

*rlZl  CONTINUE 

2  -*  £  w  CONTINUE 

C  ENDIF  FOR  IF  <  KILLS1  . N  E •  0  ) 

END  I  F 
RETURN 


DEBUG  SU9CHK,  INIKEXTIC,  RATIO,  I  TEMP,  ITEMP4.NST  AGE,  STRCNT) 

AT  2 

TRACE  ON 
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(10) 


FIMSLU 


(a)  Purpose.  To  return  a  pseudoramdom  real  number  in  accord  with 
seed  designated  on  first  call  with  Combat  Module  run.  Figure  D-26  is  a 
source  listing  of  function  subroutine  FIMSLU. 


(b)  Source.  FIMSLU  is  an  adaptation  of  a  routine  from  the  Inter¬ 
national  Mathematics  and  Statistics  Library. 

(11)  FRCALC 


(a)  Purpose.  This  routine  computes  the  type  on  type  allocations. 
More  specifically,  for  each  pair  of  opposing  types,  this  routine  computes 
the  number  of  weapons  of  each  type  slated  to  meet  the  other  type,  exclusive 
of  participation  rates.  Figure  D-27  is  a  source  listing  of  subroutine 


FRCALC. 


(b) 

(c) 
1. 

allocations 


When  Called.  At  the  beginning  of  each  day,  by  MAIN. 

Subtasks 

Obtains  the  available  weapons  by  adding  reinforcements/initial 
to  survivors. 


2.  Removes  external  losses,  i.e.,  losses  before  combat,  if  any. 

3.  Saves  the  initial  inventory  for  the  day. 

4.  Reads  in  the  appropriate  modified  preferences. 

5.  Computes  the  preferred  target,  i.e.,  the  product  of  the 
preferences  and  the  initial  daily  target  inventory. 

6.  Computes  the  unnormalized  fractional  allocation  and  normalizes 
it  to  sum  to  the  sum  of  the  preferences. 


7.  Allocates  opponents  using  the  normalized  allocations.  The 
first  phase  allocates  integral  numbers  of  weapons.  The  second  phase  allo¬ 
cates  the  fractional  weapons  unallocated  in  the  first  phase. 


D-139 


CAA-D-84-14 


REAL  FUNCTION 
INTEGER 


INTEGFR 
DOUBLE  PRECISION 
DOUBLE  PRECISION 


s 

C 

9 

c 

10 

DOUBLE  PRECISION  ! 

1 1 

C 

1  2 

DATA 

I 

13 

DATA 

! 

14 

DATA 

15 

* 

123457.00, 

16 

* 

1133536416.00, 

17 

* 

330310551 .DC, 

18 

* 

1514685799. DO, 

19 

* 

1460567237. DO, 

20 

* 

274992647.00, 

21 

* 

83729995. DO, 

22 

* 

1 56  725  3092  .  DC  , 

23 

* 

33241  4837. DO, 

24 

* 

* 

19905Q6775.DC, 

25 

* 

1265016C2O.DO, 

26 

+ 

235610717.00, 

27 

* 

1946788467. DO, 

23 

DATA 

29 

* 

1241237486.00, 

30 

* 

1328095926. DC, 

31 

* 

169Q1Q0682  . DO, 

32 

* 

1409578632. DO, 

33 

* 

585411451. DO, 

34 

* 

1995361080. DO, 

35 

* 

2037737285. DO, 

36 

* 

1475434694.00, 

37 

* 

1  33673398  . DC, 

38 

* 

1510133733. DO, 

39 

* 

1093293442. DC, 

40 

* 

1721714736.00, 

41 

c 

42 

IF  (IREP. ST. 0)  GO  T 

43 

I  F  (DSEED. EQ.C.O)  D 

44 

GO  TO 

200 

45 

c 

46 

ICO  IF  (IREP.EQ.LPEP)  G 

47 

I  REPM 

=  I  REP-1 

48 

MR  EP 

=  M0DOREPM, 

49 

DSEED 

=  SEED (MR EP) 

50 

c 

5  1 

2  CO  DSEED1  =  DMOD  (  6060 

52 

DSEED2  =  DMOD  (55934 

53 

DSEED 

=  DMOD (65536 

54 

FIMSLU  =  DSEED  /  D2 

55 

LREP 

=  I  R  E  P 

56 

RETURN 

57 

END 

-  1 


FIMSLU  (IREPI 

SPECIFICATIONS 

IREP 

SPECIFICATIONS 
IRERM,LREP,MREP 
DSEED,DSE£Dl  , D  S  EED  2 
D2P31M, D  2  P  3 1 

D2P3lM-<  2**31 ) 

D2P31  =(2**31 )  (OP  AN 

SEED(IOO) 

SEEDS  SPACED  100*000 
D2P31M/2147483647.D0/ 
D2P31/2147483648.D0/ 

(SEED ( I)  .1=1 ,52) / 

848661  055  . DO,  331  868080 
17<5392340.D0, 

1864683550. DO, 

609430781  .DO, 

19Q354C707.O0, 

1  588509478  . DO, 

307509594  .DO , 

34485768 .DO, 

1812QC9750.D0, 

34124592.00, 

1  1  1  01  2858  1  -DO, 

716522388.00, 

1  91  51  24666  . DO, 


FOR  ARGUMENTS 

FOR  LOCAL  VARIABLES 


i  DO, 
►  DC, 
,  DO, 
.  DO, 
.DO, 


(SEEDCI) ,1=53.100)/ 
1826480319.00,  1761 451800. DO, 
735026667. DO,  19 22*04 882  .DO, 


880089848 
957584520 
2126485978 
773122865 
1759740400. DO, 
1235568876. DO, 
307246871 . DC, 
892733067  “ 

134177024 
79706148 
65*84601 
605204808 


.  DO , 
»  DO, 
.  DO  , 
.  DO  , 
.  DO, 


673720340.00, 
1  267241''. DO, 
560061  85  1  .DO, 
2009993142. DO, 
37500927.00, 
207485149^  .DO, 
851290297  . DO, 
1  9406631  67  . DO, 
1  1  33218931  .DO , 
1  039836864  . DO, 
FIRST 


1103*76199, 
2082847903, 
1357483287, 
270796833, 
2052071248, 
330340421 , 
1651586143, 
1877417917, 
950324013, 
1390471833, 
EXECUTABLE 


ADJUSTED  VALUE) 
RAND  NOS  APART 


795694002. DO, 
373453165. DO, 
611600725. DO, 
23014Q735. DO, 
1753901423. DO, 
1941 135750. DO, 
1540164579. DO, 
1222711937. DO, 
1257585462. DO, 
1176990974. DO, 
1970893844.  DO, 
26530237. DO, 
1250036153. DO/ 

648974769,00, 
112740804. DO, 
20036o466 . DO  , 
2102585575. CO, 
2035203198. DO, 
1364574012. DO, 
1860954082. DO, 
2037 642  869  . D  0  , 
301  620020  . DO  , 
617723160. DC, 
199964875. DO, 
403248081 -DO/ 


DO, 

DO  , 

DC  , 

do, 

DO  , 

DO  , 

DO, 

DO  , 

DO  , 

DO, 
STATEMENT 


Figure  D-26. 


Source  Listing  of  the  FIMSLU  Subroutine  of  the 
Program  of  the  AFP  Combat  Module 


GGUT039  0 
GGUTC400 

GGUTQ440 

GGUT0430 

GGUTC460 

GGUT0470 

GGUT0480 


6GUTC490 

GGUT0500 


GGUT0510 


GGUT053O 

GGUT054C 

GGUTQ55C 

GGUT0560 

GGUT05S0 

GGUTC59C 


Main 
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2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

13 

19 

20 

21 

22 

23 

24 

25 

26 

27 

23 

29 

30 

31 

32 

33 

34 

35 

36 

37 

i  s 

39 

40 

41 

42 

43 

44 

45 

46 

47 

43 

49 

50 

51 

52 

5  3 

54 

55 

56 

57 

58 

59 
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SUBROUTINE  FRCALC (  D  A  Y  S  X  ) 


INCLUDE  PAR* 

INCLUDE  3< 1 
INCLUDE  B  K  7 
INCLUDE  BKS 
INCLUDE  8  K 1 3 
INCLUDE  B  K 1  7 

DIMENSION  REMS<2»ITYPS,ITYPS),  ALLOC(2,ITYPS,ITYP$),PREF(2,ITYPS) 
INTEGER  DAYSX tTYPSXtTYPESX, COUNT, POINT, SI DEX 
EQUIVALENCE  (ALLOC,  REMS) 


2  CONTINUE 

C  DEVELOP  THE  DAY'S  INITIAL  FORCES 

DO  200  SIDEX=1,2 

00  1U0  TTPS  (NTYPS  CSIOEJf  j 

C  INCLUDE  A00E0  d  F  A B  ONS 

WPNS(SID|X,TYPSt3-INSFRTCPHASE<DAYSn,SIDEXiTYPSjO* 

*  VPNS  CSIDEX VTVPSXI 

C  REMOVE  LOSSES  EXTERNAL  To  THE  MODEL 

VPNS  (S  I  D  E  X  *  T  Y  P  S  X  J-uPnsTsIOEX,  T  f  P  S  X  J  * 
l  M  .0-6  mo  5  ISJ  OEX  1  TYPS  X)  ) 

tf  PN5  1  (  S  I  D  E  X  ,  T  Y  P  S  X  J  3W  P  M  5  (  $  I D  E  X  ,  T  Y  P  5  X  ) 

IF  (DAYSX  »  E  y  ■  T3  VFNSl1CSIDE3<tTYPSXJ  ^  -  Pr*S  (  5  I  D  E  X  ¥  TY  P  S  X  3 
100  CONTINUE 

ZDD  CONTINUE 

C  COMPUTE  THE  y  E  A  P  O  H  ALLOCATIONS 
DO  240  S  I  D  E  X  =  1  ,2 
DO  240  TYPSX=1 pNTTPSeSIQEYS 
£  READ  E N  THE  APPROPRIATE  F  R  E  FtPENCE  FILES 
I  OPTii  7 *  (  S  I  D  E  X  - 1 r  T  Y  P  S  +  T Y  PS  X 
:0PT*7  =  IOPTR7+FREF3*2M  type 
RE A0<  TU7'TOPTP7- 2000, ERP=21 003 
ft  CPftEMS  I  DEX  *  J  3  ,  J*1  iNTYPSC3-SI  DESr  3  3 

FOfiWAT ( 5C0  i  500^3 , 6) I 
GOTO  2 3 CO 

PpRITt  (6 ,22001  SIDEX 

F0HMATC1X  t5X,  'PREF  ',11,'  READ  E  R  R  0  R  '  ,  5  X  ,  3  0  (  1  H  *  )  ) 

5  TOP 

CON TINUE 
TEMP-P.D 
TEMPl=0-0 

DO  220  TTPESl^l tNTYPS El-SIDEXl 

C  COMPUTE  THE  -SIGHTED  ALLOCATION 

AU.OC  <5  JQEX, TYFSM , TY P  =  5 X ) -P PE F £ S I D E * * T Y P E S X 1  * 

£  »PNS(1-SI&£Y,TYPC SXl 

C  COMPUTE  THE  -EIGHTED  AlLQCAtI0N  TOTALS 

TEMp  =  TEMP4 ALLOC CSI DEX  tTYFS X,T YPESX) 

TE.MP1=TEHP1+PPEF(  SIDE  X*TYPESX  3 
22 J  CONTINUE 

TEMPI  =AP*IN1  (  1,0,  TEMPI  J 

C  FORMALIZE  BY  THE  HEIGHTEN  ALLOCATION  TOTALS 
DO  23P  TTPtSA-1  .NTY°5(3-*STDEjO 
IF  {  TEMP  SMALLS  >  THEN 

ALLOC(SIO£X1TYPSXrTYPFSXJ=(ALLOC(SIDEX,TYPSXfTYPESX)/ 

S  TEMP)* TEMPI 

ELSE 


2GDC 

2100 
2  2  J  0 

23UQ 


Figure  D-27.  Source  Listing  or  the  FRCALC  Subroutine  of  the  Main 
Program  of  the  AFP  Combat  Module 
(page  1  of  2  pages) 
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61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 
60 
61 
£2 

83 

84 

85 
66 
67 
88 
69 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 


ALLOC(SIDEX,TYP$X,TYPESX)=0.Q 

ENDIF 

230  CONTINUE 

240  CONTINUE 

C  ALLOCATE  OPPONENTS 
DO  1 00  Q 

DO  1GCG  TTPSX=1 *NTYP5 £ EI&FXl 
COUNT=G 
TEMP 1*0.  a 

&0  7QQ  TYPESX^I iMTYPS f3-Sr&EX3 

TE  M  P  =W  PN  S  i  $  1 0  £  X  *  TY  P  5  X  J  *  A  L  L  0C  C  5 1 1>  E  X  .  TY  P  S  X  *  T  t  P  E  5  X  ) 
TPrtP1=TEHP1+ALL0CfSjDexTTTPSK1TYPESJfJ 
C  ALLOCATE  THE  INTEGER  PAST 

f&R  CESCSlUEMtTYPSSfjTYPESX)  =T£^p 

REnStSIOEBfTYPSXtTYPESD-TErfP-FOffCEStSlQEXiTYPSViTYPESJf) 
C  TALLY  THE  ALLOCATED  .CAPONS 

C  OUN  T  =  C  OU  N  T  +  F  o H  C  £  3  (  5  I  D  E  »  ff  T  Y  P  S  X  1 f  TP  E  5  X* 

700  CONTINUE 

T  E  N*1 ■ A* I M It  1  *  0  f  TE  H  FI  3 
C  RETAIN  thf  UNALLOCATED  WEAPON  count 

C  0  U  N  T  = -g  P  N  s  t  s  I  0  E  Y  f  T  Y  p  s  Jc  ]  *  T  E  H  p  1  -  c  0  U  N  T  +  s  N  A  L  L  2 
IF  <  COUNT  ,LE.  d  j  GOTO  TOGO 
C  T  0  ALLOCATE  the  vf paining  WEAPONS  using  THE  largest 
c  fractional  mrts 

800  CONTINUE 

P  O  I  N  T  =  1 

£0  9jO  TYP£SX=2,  NfYPSn-SlDEX  1 

C  TEST  FOP  A  LAB&ep;  BE  MIND  Eft 

IF  (  °£WS  fSIDEK  r  TYRSXrTTPESX]  .GT. 

S  REFS C SIDE* , Tt PSXfl POINT)  )  THEN 

P01HT*TVP£5N 
ENDIF 

900  CONTINUE 

C  MAKE  SURE  NO  FURTHER  ALLOCATIONS  OCCUR  TO  MAX  JUST  FOUND 
REMS($IDEXfTYPSXf POINT) =-1.0 
C  ALLOCATE  A  WEAPON 

FORCES  (SIDtXt  TYPSX, POINT)=FORCES (SIDEX,TYPSX  , POINT)  +1 
C  DECREMENT  THE  COUNT 

COUNT  =  C0UNT-1 

IF  (  COUNT  .GT.  0  )  GOTO  800 
1000  CONTINUE 

RETURN 
END 


Figure  D-27.  Source  Listing  or  the  FRCALC  Subroutine  of  the  Main 
Program  of  the  AFP  Combat  Module 
(page  2  of  2  pages) 
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(d)  Example:  Let's  say  there  are  10  weapons  of  a  given  type  to  be 
allocated  against  three  opposing  types.  Say  also  that  applying  the  rates 
yields  the  following  allocations 


1.8 


2.5 


5.7 


against  opposing  types.  We  rewrite  this  as: 


Allocation 


Remainders 


1 

2 

5 


.8 

.5 

.7 


The  first  phase  allocates,  1,  2,  and  5  weapons;  note  that  two  weapons  remain 
unallocated. 

The  second  phase  uses  the  remainders,  which  are: 


.8 

.5 

.7 

The  phase  allocates  weapons  based  on  the  size  of  the  remainders.  The  first 
weapon  is  allocated  against  the  target  associated  with  the  largest  remainder 
(.8).  The  next  weapon  is  allocated  against  the  target  type  associated  with 
the  next  largest  remainder  (.7).  Since  no  unallocated  weapons  remain,  the 
third  target  is  not  allocated  additional  weapons  in  this  day. 
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(12)  F2FRT.  The  alternate  file  reference  table  element  F2FRT  is  in¬ 
cluded  in  order  to  extend  the  number  of  write  files  available  to  the  Main 
Program  of  the  AFP  Combat  Module  beyond  the  standard  number  defined  within 
the  installation  FORTRAN  system  library.  The  version  of  F2FRT  included  for 
the  combat  modules  adds  units  91-99  as  alternate  print  symbionts.  Figure 
D-28  provides  the  source  listing  of  the  alternate  file  reference  table 
element. 


1 

F $  F  R T  9  9 

2 

PR  6 

7 

PU  1 

l 

CR  5 

5 

APR  91  ,  =  2,  93,04,95,96  ,  97,95 

,99 

h 

PR  C 

7 

.  i 

PRINT  FILES  =  I/O  UNIT  6 

S 

.  i 

PUNCH  FILE  =  I/C  UNIT  1 

-'»■ 

.  i 

CARD  READ  FILE  =  I/O  UNIT  5 

1  0 

.  i 

RE-READ  FILE  (NOT  USED)  =  I/O  UNIT  C 

1 1 

.  9 

ALTERNATE  PRINT  SYMBIONTS  =  I/C  UNITS 

91 

12 

1  3 

***  FILE  DEFINITIONS  *** 

1  4 

15 

1  6 

END 

Figure  D-28.  Source  Listing  of  the  F2FRT  Element  of  the 
Main  Program  of  the  AFP  Combat  Module 


(13)  IMAGES 


(a)  Purpose. 

return  the  number  of 
subroutine  IMAGES. 


For  specified  image  intensifier  and  conditions,  to 
resolvable  cycles.  Figure  D-29  is  a  source  listing  of 


(b)  Source.  IMAGES  is  an  implementation  of  logic  developed  at  the 
Night  Vision  Laboratory. 


(c)  When  Called.  From  DETECT  if  the  weapon  platform  in  question 
depends  on  an  image  intensifier. 
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i 

z 

3 

4 

5 

A 

7 

r 

9 

10 

11 

12 

13 

14 

15 

16 
17 
IS 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

7  C 

36 

27 

35 

39 

40 

41 

42 
4? 

44 

45 

46 

47 

43 

49 

50 

51 

52 

53 

54 

55 

56 

57 
59 
59 
6  C 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 


C 

c 

c 

c 


c 


c 


c 


c 


c 


c 

•c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  IMAGES (RC , AC  ON , ATTN , RNG f LS C , SOG , AL ) 

I  * A  G  E  INTENSIFIERS 

DIMENSION  AMRCS(6,2),AMRCC(6,?>,AMRCI(6,2) 


LIGHT  LEVELS, COEFF  CURVE 

DATA  (AMRCS (1,1), 1=1, 6)/ 

I  0.01 938, 0.041 95 ,0.1 1580, 0.35 398, 1.1 1386, 3.38584/ 


DATA  (AMRCS ( 1.2) , 1*1 ,61 / 

1  0.33982,0.41019,0.47368,0.48725,0.29944,-0.20059/ 

DATA  (AMRCC  (1,1)  ,1  =  1,6)/ 

1  0.01255,0.02657,0.07682,0.22171 ,0.71499,2.09944/ 


DATA  (AMRCC (I ,2)  ,  1  =  1  ,  6 )  / 

1  0.19153,0.23353,0.24174,0.29012,0.10917,-0.12972/ 


1 

1 


DATA  (AMRCI (1,1) , 1*1 ,6) / 

0.01464,0.02648,0.06138,0.14226,0.54625,1.64788/ 

DATA  ( AMRCI (1,2)  ,1  =  1  , 6)  / 

0.35 62 2, 0.36992, 0.40250, 0.61333, 0.36543, 0.28 7* 9/ 

IMAGE  INTENSIFIES  DEVICES 

R  C=C. 

R  C 1 =0  • 

R  C  2  =0  . 

C  =  ACON  /  (1 .+SOG* (EXP(ATTN*RNG)  *1.)) 

CHECK  IF  TOO  DARK 

IF  (AL .LT.0 .000001  )  GO  TO  270 


(3,4,5) 


ACK=0 . 1 0 

IF  (AL.GT.0.1)  GO  TO  270 

DO  200  11=1,5 
I  LI =1 1 

IF  (AL.LE.ACK.AND.AL.GE.ACK/10.)  GO  TO  210 

ACK=ACK/10. 

200  CONTINUE 
210  I  L2  *IL  1  *♦  1 


IF  (LSC.EQ.5)  GO 
IF  (LSC.EQ.4)  GO 

R  C  1  =  C / ( AMRCS ( IL1  , 
R  C2=C / (AMRCS  ( IL2 , 
GO  TO  240 

220  RC1*C/ (AMRCI <IL1  , 
R  C  2  =  C / (AMRCI  (  IL2  , 
GO  TO  240 

230  R  C 1 *C / (AMRCC (  I  L 1  , 
RC2  =  C/ (AMRCC (  IL2, 

24Q  IF  (C .LT.0.02 .OP. 

IF  (LSC.EQ.3)  GO 

IF  (C .LT. 0.07. AND 
IF  (C  .LT .0. 33 . AND 
GO  TQ  260 

250  IF  (C.LT..33.AND. 
IF  (C.LT. .57. AND. 


TO  220 
TO  230 

IMAGE  INTENSIFIER  3  STARLIGHT 
1 ) + AMRCS ( IL1  ,  2) *C ) 

1  )  +AMRCS ( IL2 ,2)*C ) 

IMAGE  INTENSIFIER  5  RED  SIGHT 
1  )  4AMRCI  (IL1  ,2) *C) 

1 ) ♦  A  M  R  C  I  (IL2,2)*C) 

IMAGE  INTENSIFIER  4  CREW  WPN  S 

1 ) ♦ A  M  R  C  C (ILl *  2 1 *C  1 
1)+AMRCC(IL2,2)*C) 

(C  .LT. 0.04.  AND. ILl .EQ. 5) 5  GO  TO  270 
TO  250 

.IL1.EQ.5)  GO  TO  27Q 
•1L1.EQ.5)  RC2=0. 


ILl. EC. 5)  GO  TO  27C 
IL1.E0.5)  R  C  2  =  0 . 


260  RC=RC2+(RC1-RC2)*((AL-ACK/10.)/(ACK-ACK/10.)) 

270  RETURN 
END 


INTERPOLATE 


Figure  D-29.  Source  Listing  of  the  IMAGES  Subroutine  of  the  Main 
Program  of  the  AFP  Combat  Module 
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(14)  INPUT 

(a)  Purpose.  To  read  input  data  from  the  run-specific  file 
BASEDATA.  Figure  D-30  is  a  source  listing  of  subroutine  INPUT. 

(b)  When  Called.  Near  beginning  of  MAIN. 

Note:  See  Annex  I  to  Appendix  D  for  description  of  BASEDATA  file. 

(15)  OPTICS 

(a)  Purpose.  For  specified  optical  band  sensor  and  conditions,  to 
return  the  number  of  resolvable  cycles.  Figure  D-31  is  a  source  listing  of 
subroutine  OPTICS. 

(b)  Source.  OPTICS  is  an  implementation  of  logic  developed  at  the 
Night  Vision  Laboratory. 

(c)  When  Called.  From  DETECT  if  the  weapon  platform  in  question 
depends  on  an  optical  band  sensor. 

(16)  OUTPT 

(a)  Purpose.  To  write  out  the  preparticipation  reduced  force  al¬ 
locations.  Figure  D-32  is  a  source  listing  of  subroutine  OUTPT. 

(b)  When  Called.  At  the  beginning  of  each  day,  by  MAIN. 

(c)  Format.  16 
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27 

23 

29 
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SUBROUTINE  INPUT 
C 

INCLUDE  PAR* 

INCLUDE  BK1 
INCLUDE  BK3 
INCLUDE  B  K  5 
INCLUDE  8  K  6 
INCLUDE  BKS 
INCLUDE  B  <9 
INCLUDE  B  K  2  0 
INCLUDE  8 K2  2 
INCLUDE  8  K  2  5 
C 

PARAMETER  M A  X W P N  =  1 0 0 0 00 , ft E  F I R M  =  3 0 , f s I Z E L  =  - . 0 1  ,  SIZEU  =  5 ,0 
PARAMETER  RLITEM=650. 

PARAMETER  CNTRSL=.CO,CNTR$U=25.0Q,ATTNM=15.O,RMAGM=125. 
PARAMETER  UBRUND=1Q0.f  U3PART=1.0 
PARAMETER  B  R  I  GTM  =  7 .00 
C 

CHARACTER*60  JUNK 
C 

DATA  IER/0/ 

C 

2  CONTINUE 

C  DEFINE  THE  OUTPUT  FILE 
0UTFIL=6 

C  STORE  THE  ID  OF  THE  LAST  PHASE  ,  ASSUMED  EQUAL  TO  THE  NUMBER 
C  OF  PHASES 

NPHASE  =  PHASE (  I  D  A  Y  S ) 

C 

C  *!!!  NSTAGO  IS  USED  TO  REDUCE  THE  NUMBER  OF  STAGES,  SO  IN  !!!!! 
C  !!'!  NON  TEST  RUNS,  MAKE  INPUT  VERY  LARGE  !!!!! 

C 

C  READ  IN  THE  NUMBER  OF  DAYS,  NUMBER  OF  WEAPONS  FOR  SIDES 
C  1  AND  2,  NUMBER  OF  ENVIRONMENTS,  THE  NUMBER  OF  STAGES, 

C  AND  THE  NUMBER  OF  EXTERNAL  WEAPONS  FOR  SIDES  1  AND  ? 

C 

READ( IOUNIT ,100)  NDAYS ,NTYP$ (1 ) , NTYPS (2) , NENV IR , NSTAGO, 

8  NOEXT (1 } ,N06XT(2)f  NDTCTN 

100  FORMATd 
C 

IF  (  (NDAYS  .GT.  IDAYS)  .OR.  (NDAYS  .LT.  0)  )  THEN 

WRITE(OUTFIL,200)  NDAYS 

200  FORMAT(lX,3C(lH*)  ,5Xf"NDAYS=  M5,5X,!0(1H*)) 

IER*1 

ENDIF 

C 

IF  (  (NTYPSd)  .GT.ITYPS1)  .OR.  (NTYPS (1 ) .LE  .0)  )  THEN 

WRITE  (OUTFIL,300)  NTYPS(I) 

300  FORMATdX,30dH*)  ,5X,'SIDE1  TYPES  %  1.5 , 5  X  *  3  0  (1  H  *  )  ) 

I  ER  =1 
ENDI  F 

IF  (  (NTYPS (2)  .GT.ITYPS2)  .OR.  ( N T Y PS ( 2 ) . L E  .  0 )  )  THEN 

*RITE(0UTFIL,4Q0)  NTYPS  (2) 

400  FORMATC1X* 3Q(1H*) ,5x* 'SIDE2  TYPES  * , I  5 , 5 X , 3 0 ( 1 H * ) ) 

IER-1 

ENDIF 

C 

IF  (  CNENVIR.GT .IENVIR)  .OR.  (  N E N V  I R . L E  .  0 )  )  THEN 
WPITE  (OUTFIL.500)  NENVIR 

5CG  F0RMAT(1X,3C(1H*),5X, 'NENVIR =  '  , 15, 5X , 30 ( 1 H* ) ) 

I  E  R  =  1 
ENDIF 
C 

IF  (  (NSTAGO  .GT.ISTAGE)  .OR.  ( NS T AGO . L E  .  0 )  )  THEN 

WRITE(OUTFIL,550)  NSTAGE 

550  FORMAT(1X*30(lH*)f5X,'N$TAGE=  ',I5,5X*30dH*n 

I  E  R  =  1 
ENDIF 
C 

IF  (  (NPHASE  .GT. I  PHASE)  .OR.  (  N PH A S E . L E  .  0 )  )  THEN 

WRITE(OUTFIL,600)  NPHASE 

600  F0RMAT(1X,30(lH*),5X,'NPHASE=',l5,5X,30(1H*n 

I  ER  =  1 
ENDIF 

IF  (  (NOEXT(I)  .LT.  0)  .OR.  ( NO E X T ( 1 ) . G T . I E X T 1 )  )  THEN 
WRITE  (6,3220  NOEXTd  ) 

3220  FORMAT <1x *30 C1H*) ,5Xf 'NOEXTd )  =  ', IX, 1 10, 5X, 30(1 HO) 

IER=1 

ENDIF 

IF  (  (NOEXT  (2)  .LT.  0)  .OR.  ( N 0 E X T ( 2 )  .  G T  .  I E X T 2 )  )  THEN 
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32 

83 

3240 

84 

85 

86 

87 

88 

3241 

89 

90 

91 

C 

92 

93 

94 

95 

96 

97 

3242 

98 

99 

100 

101 

650 

102 

C 

103 

104 

105 

1  06 

107 

108 

109 

110 

1  11 

700 

112 

1  13 

114 

115 

300 

1  16 

C 

117 

113 

119 

120 

121 

122 

123 

900 

1  24 

125 

1  26 

1000 

127 

C 

125 

129 

130 

131 

1  32 

133 

134 

1300 

135 

1  36 

137 

138 

139 

1400 

140 

C 

141 

142 

1  43 

1  44 

145 

1  5  00 

146 

147 

148 

149 

1600 

1  50 

C 

151 

C 

152 

153 

1  54 

155 

156 

1  57 

153 

159 

160 

1620 

161 

162 

163 

WRITE(6,3240)  N0EXT(2) 

FORPAT(lXf3C<lH*)f5X*#NOEXTC2)*'flX,I10,5Xt30C1H*J) 
IER  =  1 
ENDIF 

IF  CNDTCTN  .LT.  1)  THEN 
WRITE  (6,3241)  NDTCTN 

FORMAT  (IX,  30  <  *  * ' )  ,  5  X ,  'NDTCTN=',  110,  5X  ,  3Q('*')) 
IER  =  1 
ENDIF 


8 


READ  ( I OUN IT  ,100)  (  (  N  $  2  D  C  T  (  I  ,  J  )  ,  J =1 , NT YPS < I ) ) 

DO  65C  I  -  1,2 

DO  650  J  =  1  .NTYPS(I) 

IF  ( NS  2  DC  T  < I , J )  .LT.  0)  THEN 


-RITE  (6,3242)  I,  J,  NS2DCT(I,J) 
FORMAT  (IX.  3  0  (  *  '  )  .  '  INDICES^'. 

'  NS2DCT=',  110,  5  X ,  3  0 (  *  * 


)?13’ 


IER  =  1 
ENDIF 
CONTINUE 


1=1,2) 


READ(IOUNIT ,1CQ)  (((INSERT(I,J,K),I=1,NPHASE),K=1,NTYPS(J)), 
8  J  =1 ,2  ) 

DO  80C  1  =  1  ,NPHASE 
DO  800  J  =1 , 2 
DO  800  K=1,NTYPS(I) 

IF  (  (INSERTCX, J.KJ  .GT.  MAXWPN)  .OR. 

8  ( INSERT ( I  ,  J  ,  K )  .LT.  0)  )  THEN 

wRITE(0UTFIL,7G0)I,J,<,INSERT(I,J,K) 

F0RMAT(1X,30(1H*),5X,'INDICES=',3(I4,2X),'INSERT=', 

8  I7,5X,3G(1H*) ) 

I  E  R  =  1 
ENDIF 
CONTINUE 

READ(IOUNIT,1C0)  <<EXTL0S(I,J),J=1,NTYPS(I)),I=1,2) 

DO  1000  1=1 ,2 
DO  1000  J=1 , NTYPS ( I ) 

IF  (  (EXTLOS(I, J) .GT.1 .0)  .OR.  (  E XTL 0 S (  I  ,  J )  .  L T . 0 . 0 )  ) 

8  THEN 

WRITE(OUTFIL,900)  I,J.EXTLOS(I.J) 

FORMAT (IX, 20(lH*)  , 5X,  INDICES-, 2(14,2X5  ,I8,5X,30(lH*)  ) 

I  E  R  =  1 
ENDIF 
CONTINUE 


READ(IOUNIT,1C0)  ( ( ( LI M I T S ( I , J , X) , , 2 ) , J =1 , NT Y P S ( I ) ) , I = 1 , 2 ) 
DO  1 4C0  1=1,2 

DO  14CQ  J  =  1 , NTYPS ( I ) -NOEXT ( I ) 

IF  (  (LIMITS (I , J ,2)  .GT.IRANGE)  .OR.  ( L I M I TS ( I , J  , 1 )  . L T . 1  )  ) 

8  THEN 

WRITE (0UTFIL,1300)  IfJ,LI*ITS(I,J,1),LIMITS(I,J,2) 

FORMAT (1X,30(1H*)  .5X,'INDICES=',2(I5,5X)  , 

S  'LOW  L I M I T  S  =  ,13, 5X, 'HIGH  LIMITS=  ',13, 

8  5X,3Q(1H*) ) 

I  E  R  -1 
ENDI  F 
CONTINUE 

R£AD( IOUNIT ,100)  (ENVDST(I),I=1,NENVIR) 

DO  1600  1  =  1  ,  N  E  N V  I  R 

IF  (  (ENVDST  (I )  .GT.  1  .0)  .OR.  ( E N V D S T ( I) . LT . 0 . C )  )  THEN 
WRITE(0UTFIL,15QQ)  I,ENVDST(I) 

F0RMAT(1X,30(lH*),5X,'INDEX=',l5,5X,'ENVDST=',fR.2, 

8  5  x  ,  30  (  1  H*)  ) 

I  E  R  =  1 
ENDI  F 
CONTINUE 

READ  IN  THE  INDIRECT  FIRE  DISTRIBUTION 

R  E AD (  IOUNIT ,*)  ((<INDDST<I,J,K),K  =  1,IRANGE),J=1,NO£XT(I)) 

8  ,1=1,2) 

DC  1660  1=1,2 
DO  1660  J=1 fNOEXT(I) 

DO  1  660  K  =  1  ,  I R  A  NG  E 

I  F  (  (INDDST(I,J,K)  .LT.  0.0)  .OR.  (  I  N  D  D  S  T  (  I  ,  J  ,  K  )  .GT.  1.0) 

8  THEN 

WRITE(OUTFIL,1620)  I, J,K,INDOST(I J,K) 
F0R"AT(1X,30(1H*),5X,'INDICE$=  ' , 3( I  5 , 3X) 

8  , 'INDIRECT  DISTRI9UTI0N=  '  ,  Fg  .  4 , 5 X , 7 0 ( 1 H * )  ) 

I  E  R  =1 
ENDIF 


) 
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165 

166 

167 

168 

1  69 

1  70 

171 

1  72 

1  73 

1  74 

175 

1  76 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

168 

1  89 

190 

191 

192 

1  93 

1  94 

1  95 

196 

197 

198 

199 

2  CO 

201 

202 

203 

2  C  4 

205 

206 

207 

208 

2C9 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

226 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 
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1660 


17G0 

1800 

C 


1900 

2000 


2021 


2020 

2010 

C 


2100 

2200 

C 

2300 

2400 

C 


2500 

2600 

C 


CONTINUE 

R  EAD  ( I QUNI T  ,100)  <<<(PEFIRE<I,J,K,L),L=1,NENVIR),K=1,NTYPS(3-in 
8  .J=1 ,NTYPS(I)) ,1=1,2) 

DO  1800  1=1 , 2 

DO  1 8  C  0  J  =  1  , NTYPS(I) 

DO  1800  K  = 1  j  NTYPS (3-1) 

DO  1800  L  =  1  *  N E N V I R 

IF  (  (REFIRE  (  I  ,J  ,K  ,L)  .GT.RE *IP«)  .OR.  ( R E F I R E ( I  * J , K , L ) . L T . 0 . 0 ) 
THEN 

WRITE (OUTFIL, 1700)  I,J,K,L,REFIRE<I,J,K,L) 

F0RMAT(1X,30(1H*)  ,5X,"INDICES=  * , 4 (  I  5 , 3 X )  , " R E F I R E =  % 
F8.2»5x,3Q(1hO) 

I  F  R  =1 
ENDI  F 
CONTINUE 


8 


& 


READ  < IOUNIT  ,100)  <<<(SENSOR(IfJ.K,L)*L=1,2),K=1,NENVIR), 

8  RCDET(1,J) ,J=1,NTYPS(I)) ,1=1,2) 

DO  2000  1=1,2 
DO  2000  J=1 , NTYPS  <I) 

DO  2000  K  =  1  , N  E  N V  I R 
DO  2000  L  =  1 ,2 

IF  (  (SENSOR(I,J,K,L)  .GT.ISENSR)  .OR.  ( S E NS  0 R ( I , J , K , L )  . L T  .  0 )  ) 

&  T  H  E  N 

URITE(0UTFIL,190Q)  I, J,K,L, SENSOR (I , J ,  K  ,  L  ) 
FORMAT(1X,3Q(lH*),5X,"INDICES=  ", 4(15, 3X5, "SENSOR  =  ", 

&  I  5 , 5X  ,30 ( 1 H*) ) 

I F  R  =1 
END  I  F 
CONTINUE 
DO  201 0  I  =  1  ,2 

DO  2020  J  =  1,NTYP$(I) 

IF  (RCDET(I,J)  .LE.  0.0)  THEN 
WRITE  (6.2021)  I,  J,  RCDET(I,J) 

FORMAT  (IX,  30 ( "* ")  ,  5  X  ,  "INDICES  =" ,  214,  "  RCDET  =", 

8  1PG11.4) 

I  E  R  =  1 
END  I  F 
CONTINUE 
CONTINUE 


READ(IOUNIT,100)  (<(SIZE<I,J,K),IC  =  1,NENVIR)tJ=1,NTYP$(I))f 

&  1=1,2) 

DO  22C0  1=1,2 
DO  2200  J=1 , NTYPS ( I ) 

DO  2200  K  =  1  ,  N  E  N  V  I R 

IF  (  ( S I Z  E ( I ,  J  ,  K  ) .GT.SIZEU)  .OR.  ($ I Z E < I  ,  J , K )  .  LT  .  S I Z EL )  ) 

8  THEN 

WRITE(0UTFIL,2100)  I,J,K,SIZE(I,J,K) 

FORMATdX  ,30(1H*)  ,  5  X  ,  "  I  N  D  I  C  E  S  =  "  ,  3  (  I  5  ,  5  X  )  ,  "  S  I  Z  E  =  ", 

8  F8.2,5X,3Q(1H*)) 

I E  R  =1 
END  I  F 
CONTINUE 


READ(IOUNIT  ,100)  (LIGHT(I),I  =  1,NENVIR) 

DO  24C0  1  =  1  , N  E  N  V  I  R 

IF  (  (LIGHT(I) .GT.RLITE")  .OR.  ( L I GHT ( I) . LT . 0 . 0 )  )  THEN 

WR1TE(OUTFIL,2300)  I , LIGHT (I) 

FORMAT (IX ,30(lH*)  ,5X,"INDFX=  "  ,  1 5 , 5 X , " L I G H T =  ",F8.2, 

5  X  ,  3  C  ( 1  H  *  )  3 
I  E  R  =  1 
ENDIF 
CONTINUE 


READ(IOUNIT ,1C0)  (  (  ( ( CNTRST < I , J ,K , L) , L=1 , 1 SGNTR ) , K  =  1 , NENV I R ) 

&  ,  J=1 , NT  Y PS  (  I  )  ) ,1=1  ,2) 

DO  2600  1=1,2 

DO  2  6  r  0  J=1  , NTYPS ( I ) 

DO  2600  K  =  1  ,  N  E  N  V  I R 
DO  2600  L  =  1  •  I  S  GNTR 

IF  (  (CNTRST ( I  ,  J  ,K  ,  L)  .GT . CNTRSU)  .OR.  ( C N TR S T ( I  ,  J  ,  K  ,  L  )  .  L T  . 
8  CNTRSL)  )  THEN 

WRITE(QUTFIL,250G)  I  ,  J  ,  K  ,  L  ,  CNTRST ( I  ,  J , K , L ) 
F0RMAT(1X.30(1H*)  ,5X,  "INDICES=  "  ,  4  (  I  5 , 5 X )  , " C N T R S T =  ", 

8  F8.?,5X,3C(1H*)) 

I  E  R  =  1 
ENDIF 
CONTINUE 

PEAD(IOUNIT,100)  C(ATTN(I,J), J=1,NENVIR) , I=1,ISENSR) 

DO  2800  1  =  1  ,  1  SENS  R 


) 
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246 

247 
243 
249 
2  5  C 

251 

252 

253 

254 

255 

256 

257 
253 

259 

260 
261 
262 

263 

264 

265 
2  06 
267 
263 

269 

270 

271 

272 

273 

274 

275 

276 

277 
273 
279 

230 

231 
282 
283 
234 

285 

286 

2  S  7 
288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

3  C  3 

304 

305 
3C6 

307 

308 
3  C  9 

310 

311 

312 

313 

314 

315 

316 

317 
313 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 


2700 

2800 

C 

2900 

3000 

c 

3100 

320C 

C 

322  5 


00  2 8C0  J  =  1  ,  N  E  N  V  I  R 

IF  (  (ATTN(I, J) .GT.ATTNM)  .OR.  (  ATTN < I , J 3 . L T . 0 . 0 3  ) 

s  then 

WRITE(OUTFIL ,27003  I  ,  J  ,  ATTN (I , J3 

FORMAT**  IX  ,30  (  1  H*3  ,  5X  ,  "INO  ICES  =  "  ,  2  (  I  5  ,  3  X  3  ,  *  A  T  TN  =  ", 
8  F8.2,5X,3C(1H*33 

I  E  R  =  1 
ENDIF 
CONTINUE 


READ(IQUNIT,1CC)  (MAG(n,I  =  1,I$ENSR) 

00  3000  1  =  1  ,ISENSR 

IF  (  (MAG ( I  3  .GT. RWAGM)  -OR.  ( M A G (  13  .  L T . 0 . 0  3  3  THEN 

WRITE(0UTFIL,29QQ3  I f  MAG ( I  3 

F0RMAT(1X,30(1H*3  ,5X,"INDEX  =  " f I  5 , 5 X f " M A G =  ",F8.2, 
8  5  X  ,  3  0  <  1  H  *  3  3 

I  E  R  =1 
ENDIF 
CONTINUE 


R£AD(IOUNIT,1CC)  (BRIGHT(I3,I=1,NENVIR3 
00  3  2  00  1=1  ,  N  E  N  V  I  R 

IF  (  (BRIGHT (I  3  .GT.BRIGTM)  .OR.  < 9R  I G H T ( 1 3  . LT . 1 . 0 3  3 

8  THEN 

WRITE(GUTFIL,310Q3  I  .BRIGHT (I ) 

FORMAT(1X.30(1H*3,5X,"INDEX=  ",I5,5X,"BRIGHT=  " ,  F8 .2  , 
8  5X ,30  <1 H* J  3 

I  F  R  =  1 


ENDIF 

CONTINUE 

IF  (  (NOEXT ( 1 3 +NOEXT( 2 3 3  .EG.  0  3  GOTO  3500 
READ  IN  THE  PARTICIPATION  RATES 

READ  < IOUNIT,*)  (<(INDPAR(I,J,K3,K=1,NTYPS(I3)  , J =1 f NO EX T ( 1 3  3 
8  *1-1 «  2  3 

DO  3250  1=1 ,2 
DO  32  50  J  =  1  *  N  OE  X  T ( I  3 
DO  3  2  5  Q  K  =  1  *  N T  Y  P S  ( I  3 

IF  (  (  INDPAR ( 1 f J , K)  .LT.  0.0  3  .OR.  (  I N D P A R ( I  ,  J  ,  K 3  .GT. 

&  UPRUND  3  3  THEN 

WPITE(0UTFIL*3225)  r,J,K,lNDPAR(I,J,K) 
FOR*AT(1X,30(1H*3,5X1"INDICES=  "*3(15.3X3 
8  , "PARTICIPATION*  %  F  8 . 4 , 5  X  ,  3  0  (  1  H  *  3  3 

I  E  R  =  1 


3250 


ENDIF 
CONTINUE 


LUNIlNUt 

READ(IOUNIT  *1003  ((( ((EXT<I,J,K,L,W) , M  =  1 *  I R  ANG  E  3 *L  =  1*NENVIR3 
8  ,K  =  1 ,NTYPS(3-I3  3  ,J=1 *NOEXT(I) )  *1  =  1,23 

DO  3400  1=1,2 


8 


DO  3400  J=1  *  N  OE  X  T ( I  3 
DO  3400  K  =  1  ,NTYPS (3-13 
DO  3400  L  =  1  *  N  E  N V  I R 
DO  3  4  CQ  M  =  1  ,  I  RANGE 

IF  (  (  EXT ( I  ,  J , K , L ,M  3 
(  EXT < I , J , K,L,M) 


_  ,  _ _  -LT.  0.0  3  .OR. 

(  EXT  (  I  ,  J , K , L , M 3  .GT.  UPRUND  3  )  THEN 

WRITE(6,33C0)  1  *J*K*L*M,EXT(I ,  J •  K  •  L  ,  M  3 

FORMAT(1X,30(lH*3,5X,INDICES=  ,$I5,5X,"cXT=  ", 
F8.2,5X,30(1H*3  3 


;3oo 


8 


ENDI  F 

3  40C  CONTINUE 

READ  < IOUNIT , 100)  <(EXTPER<I,J3,J=1,NOEXT(I)),I=1,2) 

DO  3430  1=1,2 
DO  3430  J  =  1  ,NOEXT  <  I  3 

IF  (  (EXTPER(I,J3  .LT.  0.0  3  .OR.  (EXTPER(I,J)  .GT.  1.0  ) 
WRITE(6, 34203  I,J,EXTPERCI,J3 

3420  FORMAT (1X.30(1H*3  ,5X, "INDICES3  " , 2  I  5 , 5 X , " E X T P E R =  ",F8.2 

8  ,5X,3u(lH*3  3 

I  E  R  =  i 


THEN 


ENDIF 

3430  CONTINUE 
35GO  CONTINUE 

READ(I0UNIT,1CC3  ( ((AM0TYP(I*J*X3  *K  =  1  *NTYPS(3-I33  *J=1  *NTYPS(I3  3 
8  ,1=1,23 

READ(IOUNIT ,1003  LOGIT , STATE 
C  CHECK  THAT  NO  DATA  IS  LEFT 

READ(IOUNIT,1000Q,END=101C03  JUNK 
10C00  FORMAT  (A1 3 

WRITE (OUTFIL,10C503  JUNK 

10050  F  0  R  M  A  T (1X,10(1H*3 ,5Xf"LEFTOVER  DATA  ",A°0f5Xf1Q<lH*)3 
I  E  R  =  1 

10100  IF  (  IER  .EQ.  1  3  STOP 
RETURN 


END 
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12 
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17 
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20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

33 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

53 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

SO 

81 
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c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


100 


110 

120 

130 


140 

150 

160 

170 

180 

190 


SUBROUTINE  OPT  I  CS ( R C , A C ON , ATTN , RNG , LS C , SOG , AL E V , MO D E , A M A G ) 
DIMENSION  RCDAT(7) ,  RC  3 ( 2 ) 

DATA  RCDAT/2. 74, 2. 74, 2. 29, 1.80,1. 32, 0.47, 0.14/ 

VISIBLE  BAND  DEVICES 

RC=0. 

C  =  ACON  /  (1.+S06  *  C  E  X  P ( ATTN  *  RNG3-1.0)) 

IF  (LSC.EQ.103  GO  TO  250 

IF  (LSC.EG.12)  GO  TO  250 

IF  (LSC.EQ.15)  GO  TO  250 

3CX  LOST  BY  OPTICAL 

IF  (LSC.EQ.2)  ALEV=ALEV*0 .7 
ACK=1CQ. 

IF  (ALEV. LT. 100.)  GO  TO  100 


I  Li  =1 
I  L2  =1 
ALEV=100. 
GO  TO  130 


IF  (ALEV. LT. 0-0001  )  GO  TO  320 


OVERCAST  DAYLIGHT 


CHECK  IF  TOO  DARK 


DO  110  11=1 ,6 
I  L  1  =  I  I 

IF  (ALEV. LE.ACK. AND. ALEV. GE.ACK/1G.)  GO  TO  120 
ACK=ACK/10. 

CONTINUE 


IL2=IL141 

R  C  3  ( 1  3  =0  • 

RC3(2)=0. 

DO  240  1-1,2 
IF  (I.EQ.1)  LIGHT=IL1 
IF  (I. EG. 23  LIGHT  =  1L2 

R  C  3  ( I 3  =  RCDAT (LIGHT3 

IF  (C.GT.0.8)  GO  TO  240 

GO  TO  (140,160,180,190,200,210,220) , LIGHT 

(OVERCAST  DAY 

IF  (C.LE. 0.253  GO  TO  150 
RC3(I3=2.8&59221*(C**0. 2291015) 

GO  TO  240 

IF  (C.LT. 0.025)  GO  TO  230 

RC3 (I) =2.3365 166-0. 05  09533 /C 
GO  TO  240 

IF  (C.LT. 0.35)  GO  TO  170 

RC3(I)=2.8667792*(C**0. 2251284) 

GO  TO  240 

IF  (C.LT. 0.025  )  50  TO  230 

R C3 (I) =2. 3262 999-0. 05 145 85 /C 
GO  TO  240 

IF  (C.GT.0.7)  GO  TO  240 

IF  (C.LT. 0.03)  GO  TO  230 

RC3( I) =C/ (0.0497605+0.3579996*0 
GO  TO  240 

IF  (C.GT.0.7)  GO  TO  240 
IF  (C.LT. 0.05)  GO  TO  230 

RC3(I)=1. 61 49345-0. 0651033/C 

GO  TO  240 


DETERMINE  LIGHT  LEVEL  RANGE 


100  FT  CDLS) 


(HEAVILY  OVERCAST  DAY  10  FT  CDL 


(SUNSET  OVERCAST  DAY  1.0  FT  CDLS 


(1/4  HR  AFTER  SUNSET  0.1  FT  CDLS) 


<1/2  HR  AFTFR  SUNSET  0.01  FT  CDLS) 


Figure  D-31.  Source  Listing  of  the  OPTICS  Subroutine  of  the  Main 
Program  of  the  AFP  Combat  Module 
(page  1  of  2  pages) 
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£2 

o 

o 

l\J 

S3 

84 

85 

C 

86 

C 

87 

210 

88 

89 

c 

90 

91 

c 

92 

c 

93 

220 

94 

95 

c 

96 

97 

c 

98 

c 

99 

230 

100 

c 

101 

240 

102 

103 

104 

c 

105 

106 

c 

107 

103 

c 

1  09 

1  10 

c 

1  1 1 

c 

112 

c 

113 

250 

114 

115 

1  16 

1  1  7 

113 

c 

119 

1  20 

c 

121 

122 

1  23 

c 

1  24 

125 

126 

260 

127 

270 

123 

1  29 

130 

131 

1  32 

1  33 

c 

1  34 

c 

135 

280 

136 

137 

138 

139 

140 

1  A1 

c 

1  42 

c 

143 

290 

1  44 

145 

1  46 

147 

148 

c 

149 

c 

1  50 

3C0 

1  51 

152 

153 

1  54 

c 

155 

c 

156 

310 

157 

c 

158 

1  59 

320 

IF  (C.LT. 0.084)  SO  TO  230 

RC3  (I) =1.336422-0.1 12391 6 /C 

GO  TO  240 

IF  (C.LT.0.18)  GO  TO  230 
RC3CI) =0.5686696-0.0968436/0 
GO  TO  240 

IF  (C.LT. 0.5)  GO  TO  230 

RC3(I)=0. 29-0. 12/C 

GO  TO  240 

RC3(I)=0.0 

CONTINUE 

RC1 =RC3  <1  ) 

RC2=RC3  C2) 


(MOONLIGHT  CLEAR  0.001  FT  COL 


(MOONLIGHT  CLEAR  NIGHT  0.00G1 


TOO  DARK 


RC=RC2*(8C1-RC2)*<(ALFV-ACK/1O.)/<ACK-ACK/10inERPOLAT£ 


RC=RC*AMAG 
GO  TO  320 


IF  (ALEV  .LT.  10.  .AND.  L$C 
C=C*1 .63 

I F  (C.LT.0.01 )  GO  TO  320 
I F  (LSC . EQ. 1 2)  GO  TO  260 
IF  (LSC. EQ. 153  GO  TO  270 


SILICON 

.NE.  15)  GO  TO  320 

CHECK  LIHINAL  CONTRAST 


TELEVISIONS 


R  C  =1  3. 43  *C/  (0.030  3*0. 1473*0 

IF  (MOOE.EQ.1)  RC=RC/8. 

GO  TO  320 

RC =8. C6*C/(. 0206 +.2559*0 
IF  (MO DE.EQ.2)  RC=RC*4.0 
GO  TO  320 

IF  (ALEV. LT.. 01)  GO  TO  280 

IF  (C.LT. 0.035)  GO  TO  320 
IF  (C.GE.C.035)  R  C  =  ~  1 .25*63 .66*0 
IF  (C.GE. 0.115)  RC=3. 48+23. 39*C 
IF  (C.GT.0.24)  RC=8. 38+3. 41*0 
GO  TO  310 


IF  (ALEV.LT .0.001 )  60  TO  290 

IF  ( C . LT.0.05)  GO  TO  320 
IF  (C.GE. 0.05)  RC=-2 .47+57. 59*0 
IF  (C.GE. 0.15)  RC=4. 13  +  14.24*0 
IF  (C.GT.0.35)  RC=8 .01 +3 . 1 7*C 
GO  TO  310 


IF  (ALEV. LT.O. 0001 )  GO  TO  300 

IF  (C.LT. 0.082)  GO  TO  320 
IF  (C.GE. 0.082)  RC=-2. 12+29. 62*C 

IF  (C.GT.0.23)  RC =3. 70 +  5.42*0 
GO  TO  310 

IF  (ALEV. LT.O. 00001  )  GO  TO  320 

IF  (C.LT. 0.15)  GO  TO  320 
IF  (C.LE.0.34)  PC=-2. 14  +  15. 39*C 

IF  (C.GT.Q.34)  RC=1 .91 +3.66*C 

IF  (M0DE.EQ.1)  RC=RC/3.0 

RETURN 

END 


Figure  D-31.  Source  Listing  of  the  OPTICS  Subroutine  of  the  Main 
Program  of  the  AFP  Combat  Module 
(page  2  of  2  pages) 
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10. 

C 

11 

2 

12 

C 

13 

14 

C 

15 

16 

17 

tt 

13 

c  c  TOO 

19 

c  c 

20 

cc 

21 

cc 

22 

cc 

23 

cc 

24 

ccisa 

25 

cc 

26 

cc 

27 

cc 

28 

CC200 

29 

CC3C0 

30 

C  WI 

31 

32 

33 

225 

34 

35 

2?a 

36 

37 

2*0 

33 

39 

40 

275 

41 

42 

SUBROUTINE  OUT PT < R E P S X # D A Y $  X ) 

INCLUDE  PAR* 

INCLUDE  BK1 
INCLUOE  BK2 
INCLUDE  B  K  6 
INCLUDE  9  K  1  3 

INTE6ER  SIDEX,TYPSX,TYPESX,OUTFIL*REPSX,DAYSX 
CONTINU? 

Oil  IF  IK -6 

I aPTR^=RePSX+f OAY5X-1 1 
I 3PTH**IOPTR94PP£FA  *1  REPS  *iOA 
-RITE  fOUTF  Ilt  ■'00  3 

FOftPUTOJ  *T5  1  «  'DIITEET  ASSIGNMENTS  -  .  /  } 

00  ?0 2  5 I 6G*sf >2 

DO  ICC  TT*SX^T  p  JiTTRS  rS10E3C  ) 

I  Su*-0 

40  1S0  YXPCSX M iNTYPJ C3-S I DEX 1 

ESUH-rSU^+FOfiC&S  CS  IEJEX  *  TIPS*  iTYPESX  3 
CONTINUE 

IF  f  I5U*  *  L  E  .  0  I  S0TQ  500 

ITEfOUTFIL^COI  SIDfX^TYPSX,  C  FORCES  1 5  IflfX  *TTPSX  *  TYPESX) 
i  .TtPESx^l  ,NTYPSl3-SlDEXn 

F  Oftf  A  r  m  ,  1 2  *  J  X  *  I T  w  I  ?  QQ  f  1  X  f  1  0  <  1 3 , 2  *  5  I  /  n 

CONTINUE 

dflITE  OUT  TPE  FQAC£  ALLOCATIONS 
l  T£  f  iu9'lflpTn9p22S,£R[7=2531 

*  CUFfltCES  r  I  *  j  |KJ  kIT*1  t  HTTP!  1T-J1  )  J  ■  1  f  NTT PS  t  JJ  I  I  lal  3 

FORMAT (500(300X6) ) 

GOTO  275 
CONTINUE 

WRITE (OUTFIL,  2603  REPSX,OAYSX 

F0RNAT(1X,30(1H*3  f5X,"REP=  - , I  3 , 3 X , - D A Y *  -,I3,3X 
3  * - ALLOC  A  T I  ON  WRITEOUT  DIRECT  ERROR-, 5X,3G(1H*)  ) 

S  TOP 

CONTINUE 

RETURN 

END 


Figure  D-32.  Source  Listing  of  the  OUTPT  Subroutine  of  the  Main 
Program  of  the  AFP  Combat  Module 

(17)  STPREP 

(a)  Purpose.  To  prepare  the  status  table  and  to  determine  the  max¬ 
imum  number  of  shots  in  each  duel  in  a  conflict.  Figure  D-33  is  a  source 
listing  of  subroutine  STPREP. 

(b)  When  Called.  Every  time  another  conflict  is  scheduled,  for 
every  pair  of  opposing  types,  environment  and  range.  This  routine  is 
called  by  MAIN. 

(c)  Subtasks 

1.  Computes  the  number  of  duels  in  the  conflict. 

2.  Sets  the  entries  for  each  duel  to  zero. 

3.  Stores  the  odds  in  each  entry. 

4.  Bounds  the  number  of  shots  in  the  conflict  by  the  sum  of: 
a^_  Conflict  duration/ref  ire  time  for  smaller  side. 

bj_  (Conflict  duration/ref ire  time)  x  largest  odds  for  the  larger 

side. 
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1 

2 

3 

u 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 
19 
2C 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 
<*0 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 
5  3 

54 

55 

56 

57 

53 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 


SUBROUTINE  STPREP(*,RANGEX,ENVIRX,TYPS1X,TYP$2X1 

!!!!!  NSTAGE  WILL  TRUNCATE  THE  NUMBER  OF  STAGES  UNLESS  !*M! 
!!!!!  IT  IS  SET  TO  A  LARGE  NUMBER  WHEN  RUNNING  !!!!! 

INCLUDE  PAR* 

INCLUDE  B  K 1 
INCLUDE  BK2 
INCLUDE  B  K  3 
INCLUDE  B  K  4 
INCLUDE  8K11 
INCLUDE  B  K  1  6 
INCLUDE  B  K  2  2 

DIMENSION  TIMES(21 

INTEGER  RANGEX,ENVIRXtCONFLXfTYPS1XtTYPS2X,ODDSX 


1475 


1  5DQ 


1600 


2  CONTINUE 

C  CREATE  THE  STATUS  TABLE  ENTRIES 
C  N  F  LC  T  =  0 

IF  (  REFIRE<1fTYPSlXfTYPS2X,tNVIRX)  * 

8  REFIRE (2  , TY  P  S  2  X , TY  P  S  1  X  ♦  E  N  V  I  R  X  3  .LT.  SMALL2  1  THEN 

NS  T  AG  E  =0 
GOTO  999 
END  I  f 

t qnflx=Q 

C  LOOP  THROUGH  THE  ODDS 

50  17QQ  QDQ53(*1THODDS 
C  St  IP  IF  NO  CONFLICTS 

IF  C  0DDS<0&OSxi  » E  G ■  0  3  GOTO  T  7^0 

IF  (  CQifFLCKaDDSXiRlNfiEXi  ENVIPXI  ,  L  E  •«  C  1 
£  GOTO  170  0 

C  N FLCTsCONFLO(ODD5X.ffANGEX,ENVlRXl*CNFLCT 
IF  (  CNFLCT  •  E  ^  +  0  )  GOTO  1700 
IF  (  CHFLCT  -GT.  tCQNFL  )  THEN 

-RITE (6,1475 1  E N F L C T t 00 D S X  * R A NGE % , EN V I R X 

f  Q  R*  fc  T  T 1  J|  ,  30  C 1  , 4  f  1  5  v  2  JL )  t 

'STATUS  TABLE  TOO  L  A  R-G  E  '  i  5  X  t  3  0  <  1 H+  13 

STOP 
END  I  f 
CONTINUE 
C0NFL*=C0NfLX*1 

INITIALIZE  THE  STATUS  TABLE  ENT  PIfS; 

DO  1*00  I -t  ¥ IL£N 

STATUS ( CONFL  x 1  I )sQ*C 
CONTINUE 

$  T  k  TU  5  ( X  ON  F  L  X  f  2  5  =«  I N  U  0  Q  D  S  ,  0  0  D  S  f  0  D  0  S  X  M  +  <  I 
t  TNITIALIE  SHOT  COUNTS 

CSHOTS (1 T C ON F LX )  -  0 
C  SttO T 5(2, CON  F L X  7  -  £ 

C  IF  NOT  FINISHED t  GO  *A  C)C  TO  CREATE  ANOTHER  ENTRY 

IF  t  CON  F  L  X  pLT*  CNFLCT  )  GOTO  15C0 
1  7QJj  CONTINUE 

C  CHECK  FOR  NO  CONFLICTS  left 

•  IF  t  CNFLCT  0 

t  SEEK  MAX  NUMSEH  OF  CONFLICTS 

IF  i  CNFLCT.GT.MAXCON 
£  HA *CON=CN FLCT 

C  STAGE  LOOP 

c  CALCULATE  THE  NUMBER  Of  SHOTS  IN  TH&  Tt>*E  ALLOTTED 

T  I  M  E  S  MJ  =  P  R  0  J  C  T  f  T  Y  PS  ?  X  ,  3 1  7REFiRcMTTT^&1Jr,TYP52V 
S  j  E  N  V  I  R  X  3 

TIMES (il^PR OJCT(TY PS 2Jt33/BEFlRE(2,TYPS2XtTYP SIX 
£  i  E  N  V  ]  R  X  T 

TF«P*TlMESeSM4LFff>  +  fHIN0ClOD0S*0&DSCN0ODSM 
K  -TI-ES  lalGGER ]  3 

NSTAGE=*IN(  NST*GOiIFTX(TEMP  +  0*53  ) 

90N  CONTI  Nu  E 

CCCC  FOLLOWING  TRACE  ADDED  FOR  T  E  £ T  PURPOSES,  18  JAN  qL: 

CC  WRITE  16jE63  TYPST*,  T  T  P  S  2  X  ■  fl AVG E X  ,  NSTAGE 


EQ.  0))  RETURN  1 


)  GOTO  599 

J 


CC  66 

FORMAT  f* 

*  * 

S  T  P  R  E  P  : 

T  Y  P  5  1  X  =  '  t  15 

c  c 

£ 

”  TYPSZX 

^  ' 

f  15  T  ' 

RANGEX  15 

c  c 

£ 

'  NSTA&F 

3  J" 

i  151 

cccc 

END  OF 

TEST  TRACE 

IF  f  t NSTAGE 

H  E  TUfiN 

.LE 

.  01  .OR 

.  (CNFLCT  .EQ 

cND 


Figure  D-33. 


Source  Listing  of  the  STPREP  Subroutine  of  the  Main 
Program  of  the  AFP  Combat  Module 
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(18)  THERMO 

(a)  Purpose.  For  specified  infrared  (thermal)  band  sensor  and  con¬ 
ditions,  to  return  the  number  of  resolvable  cycles.  Figure  D-34  is  a 
source  listing  of  subroutine  THERMO. 

(b)  Source.  THERMO  is  an  implementation  of  logic  developed  at  the 
Night  Vision  Laboratory. 

(c)  When  Called.  From  DETECT  if  the  weapon  platform  in  question 
depends  on  a  thermal  band  sensor. 


1 

2 

3 

4 

5 

6 
7 
R 
9 

10 

11 

12 

13 

n 

15 

16 

17 

18 
19 
2G 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 
33 

39 

40 

41 

42 

43 

44 

45 
4  6 
47 
43 

49 

50 

51 


SUBROUTINE  THERMO ( RC *  A CON f ATTN  ,RNG ,LS C , MODE ) 

C 

C  THERMO  DEVICES  (6,7,8,9,11,14) 

R  C  -  0  • 

C  =  ACON  *  EXP (-ATTN  *  RNG) 

C 

IF  (LSC. EG. 8)  GO  TO  330 

C  TEMPERATURE  TOO  LOW 

IF  (C.LE. 0.0112)  GO  TO  350 
C 

IF  (LSC.EQ.9)  GO  TO  340 
C 

IF  (LSC  .EQ. 1 1 )  GO  TO  300 
C 

IF  (LSC.EQ.14)  GO  TO  310 
GO  TO  320 

C  NIGHT  SIGHTS 

300  RC  =  C/ (0.020740.1291*0 
IF  (MODE. EG. 1)  R  C  =  R  C  /  3 .0 
GO  TO  350 
C 

310  IF  CC.LT. 0.037)  GO  TO  350 

RC  =  (0.91  237*0  /  (0.02975 674Q.  1991 449*0 
IF  (MODE. EG. 1)  RC=RC/3.Q 
GO  TO  350 
C 

320  IF  (C.LE. 0.133)  RC=C/ (0 .09772*0.34779*0 
C 

IF  (C.GT. 0.133. AND. C.LE. 8. 380)  R C  =  C / ( 0 . 03 1  6 2  *  0 . 5 4 7S6 * 

1  C) 

C 

IF  (C.GT.H.3S0)  ft  C  =  2 • C 

C  THERMO  DEVICE  6  NARROW  FOV 

IF  (LSC. EQ. 6. AND. MODE. EQ. 2)  RC=RC*3.G 
C 

GO  TO  350 

C  THERMO  DEVICE  £ 

330  IF  (C.LT.C.037)  GO  TO  350 
C 

RC  =  C/  (0.02975674.1991449*0 
C 

IF  (C.GT. 2. 18)  P  C  =  5  •  1 
IF  (MODE. EG. 1)  RC=RC/3.0 

GO  TO  350 
C 

C  AIRBORNE  FUR 

340  RC-C/ (.02894.1092*0 
C 

IF  (MODE. EG. 1)  RC=RC/4.0 

350  RETURN 
END 


Figure  D-34.  Source  Listing  of  the  THERMO  Subroutine  of  the  Main 
Program  of  the  AFP  Combat  Module 
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(19)  GETPKS 

(a)  Purpose.  To  input  a  set  of  SSPKs  for  a  single  Blue  weapon  type 
(TYPE1)  versus  all  Red  weapon  types.  Figure  D-35  is  a  source  listing  of 
subroutine  GETPKS. 

(b)  When  Called.  From  MAIN  whenever  the  index  of  the  Side  1  (Blue) 
direct  fire  weapon  type  is  incremented. 

(c)  Task.  Retrieve  SSPK  data  as  needed  from  the  previously  pre¬ 
pared  PKS  file  described  in  Annex  VI  of  Appendix  D  and  in  paragraph  D-VII-4 
of  Annex  VII  to  Appendix  D. 


1 

2 

t 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

100 


199 

c 

200 


300 

C 


299 


999 

C 


SUBROUTINE  GETPKS  (TYPEl) 


INPUT  ARGUMENT  (INTEGER): 
TYPEl  =  BLUE  WEAPON  TYPE 


NOTE:  THIS  ROUTINE  ASSUMES  THAT  THE  REQUESTS  FOR  PK'S,  AS  WELL 

AS  THE  INPUT  FILE,  ARE  SORTED  IN  ORDER  OF  INCREASING  BLUE  TYPE 


INCLUDE  FAS^LIST 
INCLUDE  fl* M, LIST 
I'iTESFR  TtFEl 

TF  (KEYU1  .  NE  ■  TYPEl I  THEN 
ZERO  PKS 

CALL,  ZERO  (PKS,  2*1  TTPS*  IFKSMRANGE  J 
FLUSH  ANT  IRRELEVANT  INPUT  RECORDS 
IF  (  1 U 1  T 1  *  TYPED  GOTO  1  9* 

HEAD  (IUT*END*999)  IUlST  TU1T1,  IUlT£f  p* 1 
GOTO  1 uu 
CONTINUE 

PROCESS  RECORDS  FOR  TYPEl,  TRANSFERS IN&  JjATA  TO  PKS  ARRAY 
IF  (IU1T1  .NE.  TYPED  GOTO  299 
DO  300  1  =  1  , I  RANGE 

PKSduis,  iuiT2f4,n  =  PKicn 

CONTINUE 

GET  THE  NEXT  RECORD 

READ  (IU1  ,END  =  999)  IUlS,  IU1T1,  IU1T2,  PK1 
G  0  T  0  2  0  0 
CONTINUE 
KEYU1  =  TYPEl 
END  I  F 
RETURN 

CONTINUE  ^  END  OF  FILE 

FORCE  INPUT  RECORD  TYPEl  HIGH 

IU1T1  =  999999 

RETURN 

END 


Figure  D-35.  Source  Listing  of  the  GETPKS  Subroutine  of  the  Main 
Program  of  the  AFP  Combat  Module 
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(20)  ZERO. 

length  N  to  0.0. 


Subroutine  ZERO  sets  all  the  elements  of  a  real  array  of 
Figure  D-36  is  a  source  listing  of  subroutine  ZERO. 


2 

C 

********* 

7 

C 

* 

4 

c 

*  ZERO:  Z 

5 

c 

* 

6 

c 

********* 

7 

c 

S 

REAL  A ( N ) 

9 

DO  100  I 

10 

A  ( I  )  = 

11 

ICQ 

CONTINUE 

12 

RETURN 

13 

END 

r ****** i 


A  REAL  MATRIX 


r***************  ******** 


r  *****  *  *  i 


=  1,N 

0.0 


Figure  D-36.  Source  Listing  of  the  ZERO  Subroutine  of  the  Main 
Program  of  the  AFP  Combat  Module 


(21)  IZERO.  Subroutine  IZER0  sets  all  the  elements  of  an  integer 
array  of  length  N  to  0.  Figure  D— 3 7  is  a  source  listing  of  subroutine 
IZERO. 


i 

? 

3 

4 

5 

6 
7 
S 
9 

10 
1 1 
12 
13 


C 

C 

C 

c 

c 

c 


100 


SUBROUTINE  IZERO  (  I  A  ,  N ) 

***********************, 

* 

*  ZERO:  ZERO  AN  INTEGER  MATRIX 


r  *******  i 


******* i 


r  ******* 


INTEGER  I  A  (  N  ) 
DO  100  I  =  1 , N 
IA ( I )  =  0 

CONTINUE 
RETURN 
END 


Figure  D-37.  Source  Listing  of  the  IZERO  Subroutine  of  the  Main 
Program  of  the  AFP  Combat  Module 
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(22)  ALLZ.  Logical  subroutine  ALLZ  tests  the  elements  of  a  real 
array  of  length  N  for  zero  value.  If  all  elements  are  zero,  the  function 
returns  the  value  .TRUE.  The  first  nonzero  value  in  the  array  causes  the 
function  to  return  a  value  of  .FALSE.  Figure  D-38  is  a  source  listing  of 
logical  function  ALLZ. 


2 

C 

************ 

3 

C 

* 

4 

C 

*  ALLZ:  TEST 

5 

C 

* 

6 

C 

************ 

7 

C 

8 

REAL  A(N1 

9 

ALLZ  =  .TRUE 

10 

DO  100  I  =  1 

11 

IF  <  A  (  I  )  .{ 

12 

ALLZ  =  . 

17 

GOTO  199 

14 

ENDIF 

15 

100 

CONTINUE 

16 

199 

CONTINUE 

17 

RETURN 

13 

END 

LOGICAL  FUNCTION  ALLZ  (A,N) 


t**********************i 

REAL  MATRIX  FOR  ALL  ZERO  ELEMENTS 

t*************+*+*+*****i 

Q.O)  then 


*************** 


t ****** * 


Figure  D-38.  Source  Listing  of  the  ALLZ  Subroutine  of  the  Main 
Program  of  the  AFP  Combat  Module 


(23)  IALLZ.  Logical  function  subroutine  IALLZ  tests  the  elements  of 
an  integer  array  of  length  N  for  zero  value.  If  all  elements  are  zero,  the 
function  returns  the  value  .TRUE.  The  first  nonzero  value  in  the  array 
causes  the  function  to  return  a  value  of  .FALSE.  Figure  D-39  is  a  source 
listing  of  logical  function  IALLZ. 


2 

C 

************* 

3 

C 

* 

4 

C 

*  ALLZ:  TEST 

5 

c 

* 

6 

c 

************* 

7 

c 

8 

INTEGER  I  A ( N ) 

9 

IALLZ  =  .TRUE 

10 

DO  100  I  =  1  , 

11 

IF  (IA  (I)  . 

12 

IALLZ  =  . 

13 

GOTO  199 

14 

END  I  F 

15 

100 

CONTINUE 

16 

199 

CONTINUE 

17 

RETURN 

13 

END 

r************* 


r**************************************j 
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Figure  D-39.  Source  Listing  of  the  IALLZ  Subroutine  of  the  Main 
Program  of  the  AFP  Combat  Module 
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d.  MAP  Element.  Figure  D-40  provides  a  listing  of 
collection  of  the  program  elements  of  the  Main  Program 
Module. 


the  MAP  element  for 
within  the  AFP  Combat 


1 

2 


5 

fr 

7 

S 

9 

10 

11 

12 

15 

U 

15 

16 
17 
IS 

19 

20 
21 
22 
25 

24 

25 

26 

27 

28 
29 


3i*AP,E  ,  h7afp  ,87c»MN 
IN  H7AFP.CNFALC 
I N  H7AFP.CNFLC1 
IN  H7*  Fa  .CN  FTi»S 
IN  H?A  FP. DETECT 
IN  H7A  FP.  nmo 
IN  H7*Ff‘.ClPKL,S 
IN  H7AFP.EKTAEG 
IN  H7AFP,£!(TKL5 
IN  H7AFP. F I-SLU 
IN  H?AFP. FfltALC 
IN  H  7AFP, F2 FRT 
IN  H  7  A  F  P  .  IMAGE'S 
IN  H7 AFP, INPUT 
IN  H7AFP.MAIN 
IN  H7AFP, OPTICS 
IN  w7AFp.outpt 
IN  h7if  P.5TP9FP 
IN  H7AFP.THESM0 
IN  H7AFP.GETPKS 
IN  H7AFP.ZERO 
IN  H7AFP.IZFR0 
IN  H7AFP.ALLZ 
IN  H  7  A  F  °  • IALLZ 
LIB  LIBS*IMSL. 


IN  C1T057,C34567,CIM46}C34,CI5,CIM67,CM16,CIM1,CI37,CM27,CM47,  ; 
CM3,CM126,C36,C67,CM167,CM367,CIM3,CM237,CI45,CM37,C37,C1'«678,  ; 


CM  2  3  4 , CM6  7 
END 


Figure  D-40. 

of 


Listing  of  the  MAP  Element  for  Collection 
the  Program  Elements  of  the  Main  Program 
of  the  AFP  Combat  Module 
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ANNEX  I  TO  APPENDIX  D 


AFP  BASEDATA  FILE 


Section  I.  OVERVIEW 


D-I-l.  This  annex  describes  the  input  file,  H7BASEDATA,  which  contains: 
the  force  inventories;  data  required  for  the  Combat  Module  detection 
routine;  weapon  refire  times;  indirect  fire  expected  functional  damage 
values;  distribution  of  artillery  tubes  to  range  bands;  and  external  or 
noncombat  losses.  These  data  vary  by  posture  and  environment,  so  there  are 
16  elements  within  the  H7BASEDATA  file  for  every  force  evaluated.  The  data 
are  entered  into  labeled  workfiles  which  are  read  by  programs  which 
construct  the  16  environmental  elements. 

D-I-2.  Figure  D-I-l  illustrates  the  process  by  which  the  H7BASEDATA  file 
is  generated.  Source  worksheets  are  developed  using  references  and 
judgment  as  appropriate.  These  data  are  then  keyed  into  the  workfile 
elements  which  are  clearly  labeled  to  facilitate  their  use.  Eleven 
programs  and  system  EDITOR  routines  are  used  to  construct  the  16  file 
elements  in  the  format  required  by  the  Combat  Module. 


H7BASEDATA  Organization 


Lines 


Miscellaneous  data 
Detection  based  on  rounds  fired 
Force  inventories 
External  losses 

Minimum  and  maximum  weapon  ranges 
Number  of  environmental  sites 
Indirect  shooter  range  distribution 
Weapon  refire  times 

Sensor  types,  signature  sought,  resolvable  cycles 

Sensing  size 

Light  level 

Signature  emitted 

Atmospheric  attenuation 

Magnification 

Sky  over  ground-brightness 

Indirect  fire  participation 

Indirect  fire  expected  fractional  damage 

Percentage  of  indirect  fire  on  duels 

Ammunition  type 

Print  switches 


134-253 

254-373 

374- 374 

375- 394 
395-1114 

1115-1234 

1235-1354 

1355- 1355 

1356- 1475 
1476-1479 
1480-1483 

1484- 1484 

1485- 1604 
1605-2804 
2805-2806 
2807-3166 
3167-3167 


1-1 

2-13 

14-133 
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1 ADDITIONALs\ 
environ-  L 
mental  f 
conditions  / 


RAPD 

i nventory 
element 


inventory 

jforce  ratio 
factors 


STATIC 
|  inventory 
element 


i nventory 
/force  ratio 
factors 


RADE 

inventory 

element 


i nventory 

(force  ratio 
factors 


BAPD 

i nventory 
el ement 


i nventory 

(force  ratio 
factors 


@ED 

add  files  to 
each  of 
16  elements 


30-BASEDATA 


-  M-INV 

V  0AFP1 .  \  \ 

0AFP5.  1 

oafp9.  r** 

/  0AFP13.  jJ 

@ED 

add  files  to 
corresponding 
elements  * 

H-LNV 

\  0AFP2.  \  \ 

0AFP6.  1 

0AFP1 0.  1 

/  0AFP14.  jJ 

@ED 

add  files  to 
corresponding 
elements  i 

M-INV 

X  0AFP3.  \  \ 

0AFP7*  L 

0AFP11. 

/  0AFP1 5.  JJ 

@ED 

add  files  to  . 
corresponding  . 
elements  1  { 

M-INV 

\  0AFP4.  \  \ 

— #4  0AFP8. 

1  0AFP12. 

/  0AFP1 6.  fj 

@ED 

add  files  to 

corresponding 

elements 

Figure  D-I-l.  BASEDATA  Element  Generation 
(page  1  of  4  pages) 
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@ED 

add  file  to 
all  16  elements 


@ED 

add  file  to 

all  16  elements 

i 

ADDITIONALSl 
number  of 
sites 


refire 


signature 

sought 


M-REFIRE 


M-SIGS 


0AFP1 . 


OAFPI . 

thru 

QAFP16. 


@ED 

add  line  to 

wmm 

each  of  16 

i 

envi ronments 

i 

@ED 

add  files  to 

corresponding 

elements 

i 

@ED 

add  file  to 
all  16  elements 


@ED 

add  files  to 
correspond!’  ng 
elements 


Figure  D-I-l.  BASEDATA  Element  Generation 
(page  2  of  4  pages) 
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\ — : — \ 

\  Sensing  \ _ 

L£J~ 

y 


\defilade/ 

open 

postures 


\ADDITIONALS 
day  1 ight 
level 


\ADDITIQNALS 
jnight  light 
level 


signature 

emitted 


(Se  f  Hade/ 
□pen 

postures 


sensor 
[ attenuation 


defilade/ 

open 

postures 


W-5IG-EM1T 


@ED 

add  files  to 

corresponding 

elements 


@ED 

add  files  to 

corresponding 

elements 


@ED  to  day 

envi ronments 

1-4,  9-12 

i 

@ED  to  night 

environments 

" 

5-8,  13-16 

@ED 

add  files  to 

corresponding 

elements 


Figure  D-I-l.  BASEDATA  Element  Generation 
(page  3  of  4  pages) 
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\ADDITIONALS 

clear 

/brightness 


UDOITIONALS 

degraded 

/brightness 


I  artillery 
I  partici¬ 
pation 


\ H7ARTYEFD, 
RAPD 
elements 


H7ARTYEFD. 

STATIC 
el  ements 


H7ARTYEFD. 

RADE 
' elements 


H7ARTYEFD. 

BAPD 

el  ements 


@ED 

add  file  to 
all  16 
el ements 

-  '  & 

j 

@ED  to  clear 

environments 

1-8 


@ED  to  degraded 
envi ronments 
9-16 


1  v 

@ED 

T1-  U 

add  files  to 

thru  1 

A  a  r~r\  l  /•  Jr 

corresponding 

0AFP16.  lj 

el  ements 

1 _ 

@ED  to  RAPD 
environments 

1,  5,  9,  13 

J 

t 

v 

@ED  to  STATIC 
enrivonment's 

2,  6,  10,  14 

J 

i 

@ED  to  RADE 
environments 
3,  7,  11,  15 


@ED  to  BAPD 
envi ronments 
4,  8,  12,  16 


0 


@ED 

30  BASEDATA 
elements 
H7  Base  Data 


H7  BASEDATA) 
:XYYE01  thru 
XXYYE16 


where  XX  =  force 
YY  =  year 


Figure  D-I-l.  BASEDATA  Element  Generation 
(page  4  of  4  pages) 
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Table  D-I-l  shows  the  relationship  between  the  H7BASEDATA  file  (combat 
module  format)  and  the  H7AFPFILES  (labeled  format)  workfiles.  One  section, 
indirect  fire  expected  fractional  damage,  comes  from  a  different  file, 
H7ARTYEFD.  The  workfile  elements  contain  the  data  required  for  all  16 
elements  of  H7BASEDATA.  It  should  be  noted  that  some  of  the  data,  such  as 
weapon  refire  times,  are  the  same  for  all  16  environments  while  some  data 
vary  by  combat  posture  and  other  data  vary  by  environmental  condition, 
i.e.,  day  or  night  and  clear  and  degraded  conditions.  The  programs  which 
build  H7BASEDATA  select  the  appropriate  data  from  the  workfiles  for  each 
AFP  environment.  Also,  there  are  two  workfile  elements  which  define  the 
force  ratio  for  each  environment,  and  the  open  or  defilade  condition  of 
each  side  for  all  environments. 


Table  D-I-l.  Combat  Module  Format  Basedata  With 
Related  Labeled  Elements 


H7BASEDATA  element 

H7AFPFILES 

Section 

Element 

Miscellaneous  data 

ADDITIONALS 

Detection  based  on  rounds  fired 

ADDITIONALS 

Force  inventories 

INVENTORY 

INV-FACTORS 

External  losses 

EXT-LOSSES 

Minimum  and  maximum  weapon  ranges 

NEAR-FAR 

Number  of  environmental  sites 

ADDITIONALS 

Indirect  shooter  range  distribution 

ARTY-RANGE 

Weapon  refire  times 

REFIRE 

Sensor  types,  signature  sought,  resolvable  cycles 

SIG-SOUGHT 

Sensing  size 

SENSING-SIZE 

Light  level 

ADDITIONALS 

Signature  emitted 

SIG-EMIT 

Atmospheric  attenuation 

SENSOR-ATTEN 

Magnification 

SENSOR-MAG 

Brightness 

ADDITIONALS 

Indirect  fire  participation 

PARTICIPATE 

Indirect  fire  expected  fractional  damage 

H7ARTYEFD. 

elements 

Percentage  of  indirect  fire  on  duels 

ADDITIONALS 

Ammunition  type 

ADDITIONALS 

Print  switches 

ADDITIONALS 

The  subsequent  sections  of  this  annex  describe  the  workfiles,  the  program 
which  generates  the  elements  for  the  16  environments,  runstreams  used  in 
the  process,  and  the  file  elements  in  the  format  requisite  for  input  to  the 
Combat  Module.  Indirect  fire  expected  fractional  damage  will  be  explained 
in  Annex  D-VIII.  The  EFDs  are  generated  using  a  different  preprocessor 
which  is  documented  in  that  annex. 
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Section  II.  INPUT  WORKFILE  ELEMENTS 


D-I-3.  ADDITIONALS.  The  data  in  H7AFPFILES. Additional  are  the 
miscellaneous  values  which  appear  as  less  than  10  lines  in  the  H7BASEDATA 
file.  Figure  D- 1-2  is  an  example  of  an  Additionals  element.  The  first 
line  contains  the  data  which  appear  as  the  first  line  of  each  H7BASEDATA 
element.  The  first  entry  on  line  1  reading  from  left  to  right  depicts  the 
number  of  days  of  AFP  combat  to  be  evaluated  (2  days  in  this  example).  The 
next  two  entries  (60  60)  indicate  the  number  of  AFP  types  on  Side  1  and 
Side  2,  respectively.  The  fourth  entry  (1)  specifies  the  number  of 
environments  followed  by  the  maximum  number  of  stages  (4,000).  Positions  6 
and  7  (10  10)  are  the  number  of  indirect  shooters  on  Side  1  and  Side  2,  and 
the  last  position  (5)  indicates  the  maximum  number  of  unsuccessful 
detection  attempts  per  shot  cycle.  Lines  2  through  13  of  H7AFPFILES. 
Additionals,  which  are  also  lines  2  through  13  of  each  element  in 
H7BASEDATA,  relate  to  the  number  of  rounds  that  a  shooter  fires  before  his 
opponent  shoots  back — given  that  the  opponent  failed  to  successfully  detect 
via  the  NVL  detection  routine.  This  feature  is  intended  to  allow  those  who 
fail  to  detect  to  return  fire  based  on  the  perception  that  they  are  being 
fired  upon.  Lines  2-7  contain  the  values  for  Side  1  shooters  by  type  (B01- 
B60)  while  lines  8  through  13  contain  the  values  for  Side  2  shooters  by 
type  (R01-R60).  Each  entry  represents  the  number  of  rounds  that  the 
shooter  (who  has  detected)  will  fire  before  the  opponent  (who  has  not 
detected)  will  begin  firing.  For  example,  the  first  entry  on  line  2,  (20), 
means  that  Side  1,  type  1,  (or  B01),  will  fire  20  rounds  at  any 
nondetecting  opponent  before  tne  opponent  begins  returning  fire.  Line  14 
of  H7AFPFILES.  Additionals  appears  as  line  374  of  each  H7BASEDATA  element. 
The  value,  which  is  a  constant  1.00,  indicates  the  number  of  environmental 
sites.  Since  each  of  the  16  AFP  environments  have  been  established  as 
independent  runs,  the  environmental  site  value  has  always  been  1.00.  The 
next  two  lines  of  H7AFPFILES. Additionals  (lines  15  and  16)  are  light  level 
inputs  to  the  detection  routine.  The  value  of  600.00  (line  15)  is  used  for 
the  eight  daytime  environments,  and  the  .0001  value  (line  16)  is  used  for 
the  eight  nighttime  environments.  Line  1355  of  H7BASEDATA  contains  the 
light  level  input  value.  Lines  17  and  18  of  H7AFPFILES. Additionals  contain 
the  sky  over  ground  or  brightness  values  for  clear  and  degraded 
environmental  conditions.  The  value  of  3.00  (line  17)  is  used  for  clear 
conditions,  day  or  night,  and  1.00  (line  18)  is  used  for  degraded 
conditions.  Line  1484  of  each  H7BASEDATA  element  contains  the  appropriate 
brightness  value.  The  next  two  lines  of  the  H7AFPFILES. Additionals  element 
pertain  to  the  percentage  of  each  indirect  shooter's  fire  allocated  to  the 
direct  fire  duels.  Line  19  contains  the  values  for  the  10  Side  1  indirect 
shooters  while  line  20  contains  the  10  Side  2  values.  The  10  shooters  for 
each  side  correspond  to  AFP  types  B51  through  B60  and  R51  through  R60.  The 
entry  of  .7  in  the  first  position  on  line  19  means  that  70  percent  of  type 
B51  fire  would  be  allocated  to  direct  fire  duels  and  that  the  remaining  30 
percent  would  be  involved  in  counterbattery  or  countermortar  fire  missions. 
The  values  for  percentage  of  indirect  fire  allocation  are  contained  in 
lines  2805  and  2806  of  each  H7BASEDATA  element.  Line  2805  contains  the 
values  for  Side  1,  types  51-60,  and  line  2806  represents  Side  2  input  for 
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types  51-60.  Lines  21  tnrough  380  contain  the  ammunition  type  which  are 
currently  set  to  a  default  value  of  1.  The  last  line,  line  381,  has  two 
logical  variables  used  as  print  switches.  If  the  first  is  TRUE,  the 
conflicts  log  file  is  written  to  output.  If  the  second  is  TRUE,  other 
debug  information  is  written. 

Table  D-I-2  summarizes  the  ADDITIONALS  sections. 

Table  D-I-2.  ADDITIONALS  Element  Sections 

Section £ Lines 

Number  of  days  of  combat  1 

Number  of  Side  1  AFP  types  1 

Number  of  Side  2  AFP  types  1 

Number  of  environmental  sites  1 

Maximum  number  of  stages  1 

Number  of  Side  1  indirect  shooters  1 

Number  of  Side  2  indirect  shooters  1 

Maximum  number  of  unsuccessful  detection  attempts  1 

Detection  based  on  rounds  fired  2-13 

Number  of  environmental  sites  14 

Daytime  light  level  15 

Nighttime  light  level  16 

Brightness  for  clear  conditions  17 

Brightness  for  degraded  conditions  18 

Percentage  indirect  shooters  fire  allocated  to 
direct  fire  (Side  1)  19 

Percentage  indirect  shooters  fire  allocated  to 
direct  fire  (Side  2)  20 

Ammunition  type  21-380 

Print  switches  381 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1  1 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
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20  20 
1  1  1 
1  1  1 
1  1  1 
1  1  1 
1  1  1 
20  20 
1  1  1 
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1  1 
1  1 


60 

5 

1 

1 

1 

1 

1 

5 

1 

1 

1 

1 

1 


60 

1  1 


1 

1  1 
1  1 
1  1 


4000 


10 


10 


1 
1 
1 
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00 
600.00 
0.001 
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LINES  22  -  379  HAVE  BEEN  OMITTED  TO  SHORTEN  THIS  FIGURE 
THE  VALUES  ARE  IDENTICAL  TO  LINE  21 
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Figure  D-I-2.  ADDITIONALS 
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D-I-4.  INVENTORIES.  Figure  D- 1-3  illustrates  the  labeled  version  of  the 
force  inventories  which  are  elements  in  the  file  H7AFPFILES.  Each 
inventory  element  contains  the  number  of  Side  1  and  Side  2  types  to  be 
evaluated  in  the  Combat  Module.  The  elements  are  presently  structured  for 
60  types  per  side.  B01  is  the  AFP  designation  for  Side  1,  type  1,  while 
R01  represents  Side  2,  type  1.  As  shown  at  Figure  D-I-3,  the  AFP  number  is 
in  columns  1  through  3.  If  the  item  is  "super  trooped,"  there  is  an 
asterisk  (*)  immediately  following  the  AFP  number.  See  paragraph  D-I-5  for 
an  explanation  of  "super  troops."  Following  the  AFP  number  is  a  10- 
character  name  of  the  type  equipment  being  input.  The  next  column  depicts 
the  number  of  items  to  be  input  to  the  Combat  Module  for  one  division.  The 
number  of  divisions  on  Side  1  and  Side  2  vary  with  the  combat  postures.  A 
separate  element  in  H7AFPFILES  called  INV-FACTORS  is  used  to  multiply  the 
values  contained  in  the  inventory  element  to  produce  the  desired  inventory 
values  by  environment.  Figure  D-I-4  shows  the  multiplication  factors  for 
the  Blue  (Side  1)  and  Red  (Side  2)  divisions  by  environment.  As  an 
example,  for  environment  1  which  is  Red  Attack-Blue  Prepared  Defense,  each 
item  in  the  Red  inventory  would  be  multiplied  by  3  to  produce  the  desired 
force  ratio  of  three  Red  divisions  to  one  Blue  division.  Returning  to 
Figure  D-I-3,  the  final  column  is  used  to  flag  inventory  values  not  to  be 
increased  by  the  multiplication  factors.  An  entry  of  "N"  in  this  column 
will  result  in  an  environmental  element  where  the  value  used  in  the 
rltems/Div  column  is  used  for  the  type  flagged  while  all  other  types  are 
multiplied  by  the  number  of  divisions  as  appropriate. 

D-I-5.  SUPER  TROOPS.  Certain  inventory  values  are  divided  by  10  to 
expedite  processing  time  by  limiting  the  number  of  identical  type-on-type 
duels  and  to  facilitate  use  of  the  allocation  routine  which  is  greatly 
influenced  by  inventory  density.  The  AFP  types  divided  by  10  are  referred 
to  as  "super  troops."  In  Figure  D-I-3,  the  number  of  effective  M-16s  is 
shown  as  107.  Since  B02  is  one  of  the  "super-trooped"  types  as  indicated 
by  the  asterisk  in  the  AFP  #  column,  the  real  value  is  1,070  rather  than 
107.  Lines  14  through  133  of  each  H7BASEDATA  element  contain  the  number  of 
each  type  to  be  input  to  the  Combat  Module.  The  values  are  for  Side  1 
Types  1-60,  followed  by  Side  2,  Types  1-60. 

D-I-6.  EXTERNAL  LOSSES.  Figure  D-I-5  illustrates  the  EXT-LOSSES  element 
of  H7AFPFILES.  This  element  contains,  for  each  type  on  each  side,  the 
number  of  noncombat  losses.  These  losses  are  deducted  from  the  inventory 
values  for  each  AFP  type  prior  to  the  allocation  process  and  are  intended 
to  model  effects  such  as  broken  tracks  which  preclude  combat  engagement. 

To  date,  this  feature  has  not  been  used.  The  external  loss  input  values 
appear  on  lines  134  through  253  of  H7BASEDATA  and  are  sequenced  as  Side  1, 
types  1-60,  followed  by  Side  2,  types  1-60. 


CAA-D-84-14 


D-I-7.  NEAR-FAR.  Figure  D- 1-6  is  an  example  of  the  NEAR-FAR  element  of 
H7AFPFILES.  The  element  contains  the  AFP  number,  description,  and  weapon 
minimum  and  maximum  range  band  value  for  each  type  on  Side  1  followed  by 
Side  2.  The  file  is  used  by  the  AFP  Combat  Module  to  prevent  unnecessary 
subroutine  calls.  The  near  and  far  values  for  B02  in  the  example  mean  that 
an  M16  has  SSPKs  in  range  bands  1  (250  meters)  and  2  (500  meters)  but  not 
in  the  remaining  four  bands.  The  far-band  value  must  be  at  least  equal  to 
the  greatest  range  at  which  the  type  weapon  has  an  SSPK  value.  An  input 
value  for  a  range  band  which  exceeds  the  SSPK  range  will  have  no  effect  of 
the  Combat  Module  results  but  will  cause  larger  processing  time  than  is 
necessary.  The  NEAR-FAR  input  values  are  lines  254  through  373  of  each 
H7BASEDATA  element.  The  values  are  for  Side  1,  types  1  through  60, 
followed  by  Side  2,  types  1  through  60. 

D-I-8.  INDIRECT  SHOOTER  RANGE  DISTRIBUTION.  Figure  D-I-7  illustrates  the 
indirect  shooter  range  distribution  element,  H7AFPFILES.ARTY-RANGE.  Each 
indirect  shooter,  B51  through  B60  and  R51  through  R60,  directs  a  percentage 
of  its  fire  at  a  certain  range.  Those  percentages,  which  vary  by  posture 
and  day/night  conditions,  are  shown  in  tables.  Dummy  shooters  have  an  even 
distribution  across  all  ranges.  The  correspondence  between  the  conditions 
(posture,  day/night)  and  the  environments  is  hardwired  in  the  labeled  to 
Combat  Module  conversion  program.  There  is  no  program  to  convert  module 
format  to  labeled. 

D-I-9.  REFIRE  TIME.  Figure  D-I-8  illustrates  the  REFIRE  element  of 
H7AFPFILES.  The  values  in  this  element  represent  the  time  between  rounds 
expressed  in  minutes.  The  element  shows  for  each  of  the  Side  1  and  Side  2 
shooters  the  weapon  used  against  each  target  and  the  refire  time  for  the 
weapon.  Each  AFP  type  shooter  may  fire  one  or  more  weapons  but  may  fire 
only  one  weapon  per  target.  In  the  example  shown,  the  shooter  is  B16  or 
the  IFV .  The  Bushmaster  is  used  against  personnel  targets  while  the  ATGM 
is  used  against  light  and  heavy  armored  vehicles.  The  times  between  rounds 
for  the  Bushmaster  and  TOW  are  .05  minutes  and  1  minute,  respecti vely.  The 
default  value  of  6.66  is  used  as  the  refire  time  for  opposing  types  which 
the  shooter  does  not  engage.  The  refire  times  are  contained  in  lines  395 
through  1114  of  each  H7BASEDATA  element. 

D-I-10.  SIGNATURE  SOUGHT.  Figure  D-I-9  illustrates  H7AFPFILES.SIG-S0UGHT, 
the  element  which  specifies  the  type  of  sensor  to  be  used  for  each  AFP  type 
as  well  as  the  type  of  signature  sought  by  the  sensor  and  the  number  of 
resolvable  cycles  required  for  successful  detection.  The  sensor  numbers 
(SEN  #  column)  correspond  to  the  sensors  listed  in  the  sensor  attenuation 
element  illustrated  in  Figure  D-I-13.  The  SIG  column  is  the  type  signature 
sought;  1=1 ight  contrast,  2=delta  temperature,  and  3=s i 1 i con .  The  RC 
column  is  the  resolvable  cycles  required  for  detection.  The  sensors  used 
vary  by  visibility  conditions,  clear  day,  clear  night,  degraded  day,  and 
degraded  night.  Only  one  sensor  may  be  used  at  one  time.  However,  sensors 
maybe  changed  when  conditions  change.  Night  sights  are  used  for  night 
environments.  This  element  is  classified  SECRET.  However,  the  values  in 
Figure  D-I-9  have  been  changed  to  keep  this  documentation  UNCLASSIFIED. 
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D-I-ll.  SENSING  SIZE.  Figure  D- I -10  illustrates  the  element 
H7AFPF I LES .SENS-SIZE,  which  shows  the  size  of  each  Side  1  and  Side  2  type 
in  both  open  and  defilade  conditions.  The  conditions  are  taken  from 
another  element,  H7AFPFILES.DEF-0PEN-P0S,  which  lists  the  open  or  defilade 
situation  for  Side  1  and  Side  2  for  each  of  the  16  environments. 
H7AFPFILES.DEF-0PEN-P0S  is  shown  in  Figure  D-I-ll. 

D-I-12.  SIGNATURE  EMITTED.  Figure  D-I-12  illustrates  the  element 
H7AFPFI LES . SIG-EMIT  with  the  signature  emitted  by  each  of  the  Side  1  and 
Side  2  types.  This  labeled  element  is  classified  CONFIDENTIAL.  The  values 
in  Figure  D-I-12  have  been  changed  to  keep  this  documentation  UNCLASSIFIED. 
This  element  also  uses  conditions  from  H7AFPFILE .DEF-OPEN-POS.  Signatures 
emitted  depend  on  open/defilade  and  day/night  conditions.  There  are  eight 
signature  emitted  values  for  each  weapon  system  type: 

light  contrast  during  day  in  open 
light  contrast  during  day  in  defilade 
light  contrast  during'night  in  open 
light  contrast  during  night  in  defilade 
heat  level  during  day  in  open 
heat  level  during  day  in  defilade 
heat  level  during  night  in  open 
heat  level  during  night  in  defilade 

D-I-13.  SENSOR  ATTENUATION.  Figure  D-I-13  illustrates  H7AFPFILES.SENS0R- 
ATTEN.  This  element  shows  the  atmospheric  degradation  coefficients  for 
three  different  types  of  sensors--l=VISIBLE,  2=INFRARED,  and  3=SILIC0N  TV. 
Clear  environments  (environments  1  through  8)  use  the  clear  coefficient. 

The  analyst  can  choose  the  degree  of  degradation  (haze,  mist,  or  fog)  for 
the  degraded  environments  9  through  16.  However,  that  degraded  condition 
will  then  be  used  for  all  degraded  environments,  i.e.,  you  cannot  have  haze 
during  the  day  and  fog  during  the  night. 

A  maximum  of  50  different  sensors  are  allowed  in  AFP.  Their  assignment 
numbers  are  restricted  in  the  following  way: 


Sensor  numbers 

Sensor  type 

10  12,  15,  16,  19-50 

5 

8,  9,  11,  14,  17,  18 

must  be 
must  be 
must  be 

optical  visible  band  (types  1  and  2) 
image  intensifies  (type  1) 
thermo  devices  (type  3) 
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.95 

.95 

.95 

3.75 

3.75 

4.00 

4  . 

F  38 

HI ND-D 

.95 

.95 

.95 

.95 

3.75 

3.75 

4.00 

4  . 

R29 

DUMMY 

.95 

.95 

.95 

.95 

C.00 

0 .  GO 

0.00 

0  . 

R  4  0 

DUMMY 

.95 

.  95 

.95 

.95 

0.00 

0.00 

0.00 

0. 

R  4  1 

M I  G  -  2  1 

.95 

.95 

.95 

.95 

3.75 

3.75 

4.00 

4  . 

R  4  2 

LT  VEh  D 

.95 

.95 

.95 

.95 

C.00 

0.00 

0.00 

0. 

R  4  3 

HVY  ARM  D 

.95 

.95 

.95 

.95 

0.00 

0.00 

0.00 

0. 

R  4  4 

L  T  ARM  D 

.95 

.95 

.95 

.95 

C.00 

o.co 

0.00 

0. 

R  4  5 

D  U  M  M  Y 

.95 

.  95 

.95 

.95 

o.co 

0.00 

0.00 

0  . 

R  4  6 

ACRV-2  CSC 

•  4  G 

.20 

.50 

.50 

C .  2  0 

0.20 

0.20 

0. 

R  4  7 

DUMMY 

•  99 

.40 

.50 

.50 

C.00 

C  .00 

0.00 

0. 

R  4  8 

D  U  ¥  M  Y 

•  99 

.40 

.50 

.50 

0.00 

0.00 

0.00 

0  . 

R  4  9 

dummy 

•  99 

.40 

.50 

.50 

C  .  GO 

0.00 

0.00 

0  . 

R  5  0 

DUMMY 

•  99 

.40 

.50 

.50 

0.00 

0.00 

0.00 

0  . 

R  5  1 

M082M 

.99 

.10 

.  1  C 

.10 

0.00 

0.00 

0.00 

0. 

R  5  2 

Ml  2  0  T 

.99 

.10 

.10 

.10 

0.00 

0.00 

0.00 

0. 

R  5  3 

dummy 

.  99 

.10 

.10 

.10 

0.00 

0.00 

0.00 

0. 

R  5  4 

DUMMY 

.  99 

.10 

.10 

.10 

0.00 

o.oc 

0.00 

0  . 

R  5  5 

DUMMY 

.  99 

.10 

.10 

.10 

0.00 

0.00 

0.00 

0. 

R  5  6 

Hi 22T/S 

.99 

.40 

.40 

.40 

15.00 

15.00 

15.00 

15. 

R57 

HI 52T/S 

.  99 

.40 

.40 

.40 

15.00 

15.00 

15.00 

15  . 

R  5  £ 

LI 22T+ 

.  99 

.40 

.40 

.40 

15.00 

15.00 

1  5.00 

15  . 

R  5  9 

DUMMY 

.99 

.40 

.40 

.40 

C.00 

0.00 

0.00 

0. 

R  6  0 

DUMMY 

.  99 

.40 

.40 

.40 

0.00 

0.00 

0.00 

0. 

Figure  D-I-12.  Labeled  Signature  Emitted  Element 
(page  2  of  2  pages) 

D— I -28 


20 

20 

20 

00 

00 

CO 

00 

20 

00 

CO 

20 

00 

00 

00 

00 

75 

75 

20 

75 

75 

75 

00 

00 

oc 

00 

00 

00 

00 

CO 

00 

00 

00 

00 

00 

00 

00 

00 

00 

CO 

00 

20 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

CO 

00 

00 

00 


CAA-D-84-14 


SENSOR  ATTENUATION  FILE 


ATMOSPHERIC  EXTINCTION  COEFFICIENTS 


(COLUMNS  ARE  SENSOR  TYPES, 

ROWS  ARE  ATMOSPHERIC  CONDITIONS) 


VISIBLE(I)  IR(2)  SILICONS) 


CCFJE - 728 - 729 

H A  7 E  .56  .29 
MIST  1.96  .65 
FOG  7.82  5.39 


*728 
*  4  4 
1 .50 

5 .93 


SENSOR  SENSOR 
tf  NAME 


SENSOR 

TYPE 


“*r 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 


38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 


o&meirm - 

BINOCULARS ( 7  X ) 
STARLI6HT 
CREW  WPN  SIGHT 
BMP  NIGHTSIGHT 
TOW  NIGHTSIGHT 
DRAGON  NIGHTSIGHT 
TANK  THERMAL  SIGHT 
FLIR(US) 

SI  TV 

FLIR(SOVIET) 

VIDICON 

RADAR 

TANK  THERMAL ( SOV ) 
LLLTV 

BINOCULARS ( 3  X ) 
THEPMAL(NOT  USED) 
THERMAHNOT  USED) 
BINOCULARS (N/USED) 
BINOCULARS  <4X) 
BINOCULARS (13X3 
BINOCULARS ( 6X ) 
BINOCULARS (1.9) 
BINOCULARS (3.5) 
BINOCULARS (6.6) 
BINOCULARS (8.0) 
BINOCULARS (2 .0) 
BINOCULARS (10.0) 
OPTICAL(NOT  USED) 
OPTICAL(NOT  USED) 
OPTICAL(NOT  USED) 
OPTICAl(NOT  USED) 
OPTICALCNOT  USED) 
BINOC (9. OX) SNIPER 
OPTICAL(NOT  USED) 
OPTICALCNOT  USED) 
OPTICAL(NOT  USED) 
OPTICAL(NOT  USED) 
OPTICAL(NOT  USED) 
OPTICALCNOT  USED) 
OPTICAL(NOT  USED) 
OPTICALCNOT  USED) 
OPTICALCNOT  USED) 
OPTICALCNOT  USED) 
OPTICALCNOT  USED) 
OPTICALCNOT  USED) 
OPTICALCNOT  USED) 
OPTICALCNOT  USED) 
OPTICAL (NOT  USED) 
OPTICALCNOT  USED) 


T“ 

1 

1 

1 

1 

2 

2 

? 

2 

3 

2 

3 

1 

2 

1 

1 

2 

2 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


7TSTBCE- 

VISIBLE 

VISIBLE 

VISIBLE 

VISIBLE 

IP 

I  R 

IR 

IR 

SILICON 

IR 

SILICON 

VISIBLE 

IR 

VISIBLE 

VISIBLE 

IR 

IR 

VISIBLE 
VISIBLE 
VISIBLE 
VISIBLE 
VISIBLE 
VISIBLE 
VISIBLE 
VISIBLE 
VISIBLE 
VISIBLE 
VISIBLE 
VISIBLE 
VISIBLE 
VISIBLE 
VISIBLE 
VISIBLE 
VISIBLE 
V  I  S1BLE 
VISIBLE 
VISIBLE 
VISIBLE 
VISIBLE 
VISIBLE 
VISIBLE 
VISIBLE 
VISIBLE 
VISIBLE 
VISIBLE 
VISIBLE 
VISIBLE 
VISIBLE 
VISIBLt 


Figure  D-I-13. 


Labeled  Sensor  Attenuation  Element 
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D-I-14.  SENSOR  MAGNIFICATION.  Figure  D-I-14  illustrates 
H7AFPFILES. SENSOR-MAG,  with  sensor  magnification  factors.  Each  sensor  has 
a  wide  magnification  factor.  Narrow  magnification  factors  are  not  used  by 
the  Combat  Module.  The  sensor  type  is  the  same  as  the  types  used  in  the 
sensor  attenuation  element,  Invisible,  2=IR,  and  3=silicon. 


SENSOR  MAGNIFICATION  FILE 


SENSOR 

SENSOR 

WIDE 

NSOR 

*  NAME 

TYPE 

MAG 

“7" 

-‘UNATpriTETF- 

- 

‘r* 

"*170 

2 

BINOCULARS(7X) 

i 

7  .  C 

3 

STARLIGHT  (PVS-A) 

i 

3.8 

4 

CREW  WPN  SIGHT  T V  S  5 

i 

6.0 

5 

BMP  NIGHTSIGHT 

i 

0.0 

6 

TOW  NIGHTSIGHT 

2 

4.0 

7 

DRAGON  NIGHTSIGHT 

2 

4.0 

8 

TANK  THERMAL 

SIGHT 

2 

3.0 

9 

FLIR(US) 

2 

0.0 

10 

SI  TV 

3 

0.0 

11 

FLIR(SOVIET) 

2 

0.0 

12 

VIDICON 

3 

0.0 

1  3 

RADAR 

i 

0.0 

1  4 

TANK  THERMAL (SOV) 

2 

0.0 

15 

LLLTV 

0.0 

1  6 

B  INOCULARS ( 3X ) 

■  1 

2.6 

1  7 

THERMAL (Ml  NT  ) 

2 

3.0 

18 

THE  RMAL ( CHAP 

NT  ) 

2 

1  .0 

19 

BINOCULARS (NOT  USED) 

1 

0.0 

20 

B  INOCULARS ( AX ) I FV  D 

1 

4.0 

21 

BINOCULARS C13X3 ITV  D 

1 

13.0 

22 

BINOCULARS  <  6  X ) DRAG 

1 

6.0 

23 

BINOCULARS (1 

•  9  )  1  S 

1 

1  .9 

24 

BINOCULARS<3 

.  5)T72 

1 

3.5 

25 

BINOCULARS (6 

.  6) BMP 

1 

6.6 

26 

BINOC  (8X)BRDM2 

1 

8.0 

27 

BINOCULARS (2 

.0) 

1 

2.0 

28 

BINOCULARS (10.0) 

1 

10.0 

29 

BINOC ( 2 . 6X ) M60  DAY 

1 

2.6 

30 

BINOC (AX)DRAGON  DAY 

1 

4.0 

31 

M60  NIGHT  7  X 

1 

7.0 

32 

NSD-3 

1 

0.0 

33 

PON 

1 

0.0 

34 

OPTICAL(NOT 

USED) 

1 

0.0 

35 

IR  TOW  A  X 

2 

4.0 

36 

A  AH  DAY  AX 

1 

4.0 

37 

OPT  I  C  AL ( NOT 

USED) 

1 

0.0 

38 

OPTICAL(NOT 

USED  ) 

1 

0.0 

39 

OPTICAL(NOT 

USED) 

1 

0.0 

40 

OPTICAL (NOT 

USED) 

1 

0.0 

41 

OPTICAL (NOT 

USED) 

1 

0.0 

42 

OPT  I  CAL (NOT 

USED) 

1 

0.0 

43 

OPTICAL(NOT 

USED) 

1 

0.0 

44 

OPTICAL  (NOT 

USED  ) 

1 

0.0 

45 

OPTICAL(NOT 

USED) 

1 

0.0 

46 

OPT  I  C  AL (NOT 

USED) 

1 

0.0 

47 

OPTICAL  (NOT 

USED) 

1 

0.0 

48 

OPTI  C  AL  (NOT 

USED) 

1 

0.0 

49 

OPTICAL(NOT 

USED  ) 

1 

0.0 

50 

OPTICAL(NOT 

USED  ) 

1 

0.0 

NARROW 

"AG 


Figure  D-I-14.  Labeled  Sensor  Magnification  Element 
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D-I-15.  PARTICIPATION.  Figure  D-I-15  shows  a  sample  section  of 
H7AFPFILES. PARTICIPATE.  The  indirect  fire  participation  for  each  indirect 
fire  weapon  by  posture  is  listed.  Currently,  all  values  are  set  to  a 
default  of  1.0.  These  values,  multiplied  together  with  the  initial  daily 
allocation  of  indirect  shooters,  compute  the  number  of  indirect  shooters, 
and  could  reduce  the  participation  rate  if  less  than  1.0. 


ARTY  PARTICIPATION  FILE 


SHOOTER 
AFP  ft 
B  5  1 


B  5  2 


R  6  0 


RAPD 

STATIC 

R  ABD 

9  A  P  D 

(ENV  1  , 

(ENV  2, 

(ENV  3, 

(ENV  4  , 

target 

TARGET 

hUU  !p 

6,10,14) 

7,11,15) 

8,12.16) 
PARTI  C  I  P 

AFP  # 

DE  SC 

PA  R  TI C  I  P 

PART  I c  I  p 

R  0  1 

R  TRP 

1  .0 

1 .0 

1.0 

1  .0 

R02 

AKS-74 

1  ,0 

1  .0 

1.0 

1.0 

R03 

7.60 GW 

1.0 

1.0 

1  .0 

1.0 

R  0  A 

R  SNI PE 

1.0 

1  .0 

1.0 

1.0 

R05 

GREN30 

1.0 

1.0 

1  .0 

1.0 

R  0  6 

BRDM-2 

1.0 

1.0 

1.0 

1.0 

R  0  7 

BTR-60 

1  .0 

1.0 

1  .0 

1.0 

R  0  8 

PMP-P 

1  .0 

1  .0 

1:8 

1  .0 

R  0  9 

DUMM  Y 

1  .0 

1 .0 

1.0 

RIO 

DU?*  Y 

1  .0 

1  .0 

1  .0 

1.0 

R  1 1 

SPG-9 

1  .0 

1  .0 

1  .0 

1.0 

R12 

PPG-1 6 

1 .0 

1  .0 

1  .0 

1  .0 

R  1  3 

A  T  -  5 

1.0 

1  .0 

1  .0 

1.0 

PI  4 

A  T  -  7 

1.0 

1.0 

1.0 

1  .0 

R 1  5 

RPG  7 

1.0 

1  .0 

1.0 

1  .0 

R  1  6 

PMP2  M 

1  .0 

1  .0 

1  .0 

1.0 

R  1  7 

DUMMY 

1  .0 

1.0 

1.0 

1  .0 

R  1  8 

DU**  Y 

1.0 

1  .0 

1  .0 

1.0 

R  1  9 

DUMMY 

1.0 

1.0 

1  .0 

1.0 

R  2  0 

DUMMY 

1  .0 

1  .0 

1  .0 

1  .  0 

R  2  1 

T  5  5 

1  .0 

1  .0 

1.0 

1  .0 

R  2  2 

T  6  2 

1  .0 

1  .0 

1.0 

1  .0 

R  2  3 

T  6  4 

1  .0 

1  .0 

1  .0 

1.0 

R  2  4 

T  7  2 

1  .0 

1  .0 

1.0 

1.0 

R  2  5 

T  8  0 

1  .0 

1 .0 

1.0 

1.0 

R  2  6 

ZSU-23 

1  .0 

1  .0 

1.0 

1  .0 

R  2  7 

DUMMY 

1  .0 

1  .0 

1.0 

1.0 

R  2  8 

DUMMY 

1  .0 

1  .0 

1.0 

1.0 

R  2  9 

DUMMY 

1 .0 

1  .0 

1  .0 

1.0 

R  30 

S  A  -  1  4 

1  .0 

1 .0 

1  .0 

1.0 

R  3  1 

S  A-6 

1  .0 

1  .0 

1  .0 

1.0 

R  3  2 

S  A-7 

1  .0 

1  .0 

1  .0 

1  .0 

R  3  3 

S  A  -  8 

1  .0 

1 .0 

1  .0 

1.0 

R  3  4 

$  A-9 

1  .0 

1  .0 

1.0 

1  .0 

R  3  5 

S  A  -  1  1 

1  .0 

1  .0 

1  .0 

1.0 

R  3  6 

HOPLITE 

1  .0 

1  .0 

1.0 

1  .0 

R  3  7 

HIP-E 

1  .0 

1  .0 

1.0 

1  .0 

R  3  8 

H  I  N  D  -  D 

1  .0 

1  .0 

1.0 

1  .0 

R  3  9 

DUMMY 

1  .0 

1.0 

1.0 

1  .0 

RAO 

DUMMY 

1  .0 

1  .0 

1  .0 

1.0 

R  4  1 

M I G- 2  1 

1.0 

1  .0 

1  .0 

1.0 

R42 

DUMMY 

1  .0 

1  .0 

1  .0 

1.0 

R  4  3 

DUMMY 

1  .0 

1.0 

1  .0 

1.0 

P  4  4 

DUMMY 

1  .0 

1.0 

1  .0 

1.0 

R  4  5 

DUMMY 

1.0 

1.0 

1  .0 

1 .0 

R  4  6 

ACRV-2  CSC 

1  .0 

1.0 

1  .0 

1  .0 

R  4  7 

DUMMY 

1  .0 

1  .0 

1.0 

1.0 

P  4  8 

DUMMY 

1  .0 

1  -  Q 

1  .0 

1  .0 

R  4  9 

D  U  *  M  Y 

1.0 

1 .0 

1.0 

1.0 

R  5  0 

DU*M  Y 

1  .0 

1.0 

1  .0 

1  .0 

R  5  1 

*  0  8  2  m 

1  .0 

1  .0 

1.0 

1.0 

R  5  2 

Ml  2UT 

1 .0 

1.0 

1.0 

1.0 

R  5  3 

D  U  M  M  Y 

1.0 

1.0 

1.0 

1  .0 

R  5  4 

DUMMY 

1  .0 

1  .0 

1  .0 

1  .0 

R55 

dummy 

1  .c 

1  .0 

1  .0 

1  .0 

R  5  6 

HI  22T/S 

1.0 

1  .0 

1.0 

1  .c 

R  5  7 

H152T/S 

1  .0 

1  .0 

1  .0 

1  .0 

R58 

L  1  2  2  T  ♦ 

1  .0 

1 .0 

1.0 

1  .0 

R  5  9 

DUMMY 

1  .0 

1  .0 

1  .0 

1  .0 

R  6  0 

DUMMY 

1.0 

1  .0 

1.0 

1.0 

R  0  1 

RTRP 

1  .0 

1  .n 

1.0 

1  .c 

R  0  2 

AKS-74 

1.0 

1  .0 

1  .0 

1  .0 

R  0  3 

7 . 6  0  G  M 

1  .0 

1  .c 

1  .0 

1.0 

R  0  4 

R  SNI PE 

1.0 

1  .0 

1  .0 

1  .0 

R  0  5 

GREN30 

1  *0 

1  .0 

1  .0 

1.0 

R  0  6 

BRDM-2 

1  .0 

1  .0 

1.0 

1  .0 

R  0  7 

Q  T  R  -  6  0 

1 .0 

1  .0 

1  .0 

1.0 

R  0  8 

PMP-R 

1  .0 

1.0 

1  .0 

1  .c 

R  0  9 

DUMMY 

1  .0 

1  .0 

1  .0 

1  .c 

P10 

DUMMY 

1  .0 

1  .0 

1.0 

1  .0 

THROUGH 

B  6  0 

DU  VM  Y 

1.0 

1  .0 

1  .0 

1  .0 

Figure  D-I-15.  Labeled  Participation  Element 


D— 1-31 


CAA-D-84-14 


Section  III.  OUTPUT 


D-I-16.  COMBAT  MODULE  FORMAT  BASEDATA.  The  H7BASEDATA  elements  which  are 
input  to  the  AFP  Combat  Module  are  organized  as  described  in  paragraph 
D-I-2.  Section  II  of  this  annex  described  each  logical  section.  Therefore, 
this  section  will  only  show  Combat  Module  format.  Combat  Module  format  is 
a  logical  series  of  arrays,  all  unlabeled.  There  are  16  H7BASEDATA 
elements  for  every  AFP  run;  one  for  each  of  the  16  environments.  Each 
element  has  3,167  lines,  although  the  data  in  the  elements  varies.  A 
sample  H7BASEDATA  element  is  shown  in  Figure  D-I-16. 

Section  IV.  RUNSTREAMS 


D-I-17.  BASEDATA  RUNSTREAM  GENERATION.  Sixteeen  H7BASEDATA  elements  are 
needed  for  a  complete  AFP  run,  four  postures  x  two  day/night  conditions  x 
two  clear/degraded  conditions.  The  16  elements  are  created  in  a  runstream 
which  executes  11  different  programs  and  uses  the  system  EDITOR.  The  run¬ 
stream  creates  the  16  elements  by  creating  logical  sections  of  BASEDATA  and 
piecing  those  sections  together  in  a  prescribed  sequence.  Figure  D-I-l 
illustrates  the  runstream  sequence.  Note  tnat  ADDITIONALS  is  a  collection 
of  eight  logical  sections  of  unlabeled  lines.  Each  section  is  added  to  its 
appropriate  place  in  the  BASEDATA  elements  using  the  EDITOR.  The  artil¬ 
lery's  expected  fractional  damage,  which  is  in  H7ARTYEFD,  is  also  unlabeled 
and  is  also  added  to  the  BASEDATA  elements  using  the  EDITOR.  All  other 
sections  are  labeled  and  must  go  through  conversion  programs.  If  the 
values  in  the  section  do  not  vary  by  posture,  day/night,  or  clear/degraded 
conditions,  the  labels  are  merely  stripped;  and  the  resulting  array  is 
added  to  all  16  BASEDATA  elements.  If  the  values  do  vary,  the  program  will 
create  16  different  arrays  and  add  tne  appropriate  array  to  each  of  the  16 
BASEDATA  elements.  Table  D-I-2  shows  the  variations  for  each  section. 

D-I-18.  BASEDATA  RUNSTREAM  ADJUSTMENT  FOR  INVENTORIES.  Inventories  may 
vary  by  posture.  For  example,  490  light  vehicles  were  played  in  the  deep 
in  RAPD  posture,  but  tnat  number  was  changed  to  440  vehicles  in  BAPD.  In  a 
Blue  defense  posture,  the  infantry  would  have  dismounted,  and  the  transport 
vehicles  would  have  moved  to  the  rear,  i.e.,  deep.  In  a  Blue  attack  pos¬ 
ture,  some  transport  vehicles  would  be  moving  infantry  to  the  front.  'This 
means  that  there  may  be  four  inventory  elements.  The  sample  runstream 
which  follows  in  Figure  D-I-17  is  set  up  to  handle  this.  It  executes  the 
inventory  format  conversion  program  four  times,  each  time  using  a  different 
input  inventory  element,  H7AFPFILES . INVHM80/RAPD,  H7AFPFILES . INVHM80/ 
STATIC,  H7AFPFILES. INVHM80/RADE,  and  H7AFPFILES. INVHM80/BAPD.  If  there  is 
only  one  inventory  element,  i.e.,  they  are  not  posture-dependent,  the 
inventory  conversion  program  only  needs  to  be  executed  one  time.  Change 
the  inventory  element  name  on  line  56  by  removing  the  version  name.  Change 
H7AFPFILE .  INVHM80/RAPD  to  H7AFPFILE . INVHM80.  Remove  lines  91-94,  lines 
103-106,  and  lines  115-118. 
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BASEDATA  section 

Varies  by  ("-"  denotes  no  variance) 

How  variation  is  implemented 

Miscellaneous  data  in  ADDITIONALS 

- 

 1  1  r 

Detection  based  on  round  fired 

- 

- 

Inventory 

force  ratio  and  posture 

ratio  in  H7AFPFILES. INV-FACTORS 
used  as  multiplier  in  program, 
also  see  paragraph  D- I -17 

External  loss 

_ 

Near  far 

_ 

_ 

Number  of  sites 

_ 

Indirect  Range  Distribution 

_ 

_ 

Refire 

- 

Signature  sought 

day/night  and  clear/degraded 

signature  varies  by  condition 
in  labeled  signature  sought 
element 

Sensing  size 

open/def i lade 

H7AFPFILES.0PEN-DEF-P0S  used  to 
determine  OPEN/DEF  condition 

Light  level 

day/night 

ADDITIONALS  line  15  (day)  is 
added  to  environments  1-4  and  9-12; 
line  16  (night)  is  added  to  environ¬ 
ments  5-8  and  13-16 

Signature  emitted 

open/defilade  and  day/night 

H7AFPFILES .OPEN-DEF-POS  used  to 
determine  OPEN/DEF  conditions;  environ¬ 
ments  1-4,  9-12  hardwired  to  be  day, 
environments  5-8,  13-16  hardwired 
to  be  night 

Attenuat ion 

degraded  atmospheric  condition 

degraded  atmospheric  coefficient  (haze, 
fog,  or  mist)  accepted  by  conversion 
program  H7AFP .M-ATTEN 

Magnif ication 

- 

- 

Brightness 

clear/degraded  conditions 

ADDITIONALS  line  17  (clear)  is  added 
to  environments  1-8;  line  18  (degraded) 
is  added  to  environments  9-16 

Indirect  fire  participation 

posture  (although  not  currently 
used) 

Participation  varies  by  condition  in 
labeled  indirect  fire  participation 
element 

Indirect  fire  EFD 

force  ratio  and  posture 
and  day/night 

analyst  adjusts  artillery  elements 
which  are  used  to  build  EFDs  (see  Annex 
D-VIII) 

Percentage  indirect  fire 

analyst  discretion 

analyst  changes  lines  19  and  20  in 
ADDITIONALS  with  PED 

Ammunition  type 

- 

- 

Print  switches 

analyst  discretion 

analyst  changes  line  381  in  ADDITIONALS 

with  PED 
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1 

3QUAL  UNCLASSIFIED 

2 

3ASG,  A  H7AFP FILES /XXX/XXX. 

3 

3ASG,T  30-BASEDATA.  ,  /  /  /  300Q 

4 

c 

£E  D  t  I  30-BASEDATA  .  1 

J 

6 

ADD  H7AFPFILES .ADDITIONALS 

1 

13 

7 

Q 

9FD,I  30-BASEDATA. 2 

9 

ADD  H7AFPFILES. ADDITIONALS 

1 

13 

10 

9ED.1  30-BASEDATA. 3 

11 

12 

ADD  H7AFPFILES. ADDITIONALS 

1 

13 

13 

3  E  D  «  I  30-BASEDATA. 4 

14 

15 

ADD  H7AFPFILES. ADDITIONALS 

1 

13 

16 

3ED  ,  I  30-BASEDATA . 5 

17 

18 

ADD  H7AFPFILES. ADDITIONALS 

1 

13 

19 

5ED«I  30-BASEDATA. 6 

20 

21 

ADD  H7AFPFILES. ADDITIONALS 

1 

13 

22 

3  E  D  v I  30-BASEDATA. 7 

23 

24 

ADD  H7AFPFILES. ADDITIONALS 

1 

13 

25 

SED,  I  30-BASEDATA. 8 

26 

27 

ADD  H7AFPFILES . ADD ITIONALS 

1 

13 

28 

SED,  I  30-BASEDATA. 9 

29 

30 

ADD  H7AFPFILES. ADDITIONALS 

1 

13 

31 

aFD,i  30-basedata. io 

32 

33 

ADD  H7AFPFILES. ADDITIONALS 

1 

13 

3  4 

SED,  I  30-BASEDATA . 1 1 

35 

36 

ADD  H7AFPFILES. ADDITIONALS 

1 

13 

37 

3  E  D ,  I  30-BASEDATA. 1 2 

38 

39 

ADD  H7AFPFILES. ADDITIONALS 

1 

13 

AO 

9  E  D  9 1  30-BASEDATA . 1 3 

41 

42 

ADD  H7AFFF1LES. ADDITIONALS 

1 

13 

43 

3  E  D  9 1  30-BASEDATA. 14 

44 

45 

ADD  H7AFPFILES .ADDITIONALS 

1 

13 

46 

SED,  1  30-BASEDATA. 15 

47 

48 

ADD  H7AFPFILES .ADDITIONALS 

1 

13 

49 

3  E  D , I  30-BASEDATA. 16 

50 

51 

ADD  H7AFPFILES. ADDITIONALS 

1 

13 

52 

EXIT 

53 

a)  A  S  G  ,  T  A  F  P 1  . 

54 

3  E  D  ,  Q I  A  F  P 1  • 

55 

56 

ADD  H7AFPFILES. INVHPPO/RAPD 

57 

a ASG  ,  T  AFP2. 

58 

<3  A  S  G  ,  T  A  F  P  3  • 

59 

3ED,QI  A  F  P  3 • 

60 

61 

ADD  H7AFPFILES • INV-FACTORS 

62 

S  A  S  G , T  AFP4, 

63 

3  E  D  9  Q  I  A  F  P  4  . 

64 

65 

ADD  H7AFPFILES.DE F-OPEN-POS 

66 

al  A  S  G  ,  T  OAFP1. 

67 

3  A  S  G  ,  T  OAFP2. 

68 

3  A  S  G  »  T  OAFP3. 

69 

a  A  S  G  ,  T  0AFP4. 

70 

5  A  S  G  ,  T  0  A  F  P  c  • 

71 

5  A  S  G  ,  T  0  A  F  p  6  * 

72 

3  A  S  G , T  0AFP7. 

73 

a)  A  S  G  ,  T  OAFP8. 

74 

3  A  S  G , T  0AFP9. 

75 

3  A  S  G , T  OAFP1Q. 

76 

3  A  S  G  ,  T  OAFP11  . 

77 

3  A  S  G , T  OAFP12. 

78 

3  A  S  G  ,  T  OAFP13. 

79 

3  A  G  ,  T  0  A  F  P  1  4  . 

80 

a)  A  S  G  ,  T  OAFP15. 
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160 
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162 


£  A  $  G  *  T  0AFP16. 

3XUT  *H7AFP.87Q*1-INV 
3  E  D  ,  U  30-BASEDATA • 1 
ADD  0  A  F  P  1 • 

2  E  D  »  U  3Q-9ASEDATA.5 
ADD  0AFP5. 

3  E  D  »  U  30-BASEDATA  .9 
ADD  0  A  f  P  9  . 

2  E  D  f  U  30-BASEDATA  *  1  3 
ADD  0AFP13. 

3  E  D  ,  Q  I  A  F  P  1  . 

ADD  H7AFPFILES* INVH^EO/STATIC 
aXUT  *  H  7  A  FP.670f*-INV 
2ED,U  30-BASEDATA ,2 
ADD  0AFP2. 

9  E  D  »  U  30-BASEDATA.6 
ADD  0AFP6. 

a  E  D  ,  U  30-BASEDATA. 10 
ADD  0AFP10. 

S  E  D  *  U  30-BASEDATA. 14 
ADD  0AFP14. 

3ED,QI  A  F  P 1  . 

ADD  H7AFPFILES.INVHM80/RADE 
ax^T  *H7AFP.S7QM-INV 
3  E  D , U  30-BASEDATA. 3 
ADD  0AFP3. 

3  E  D  ,  U  30-BASEDATA .7 
ADD  0  A  F  P  7  • 

3  E  D  »  U  30-BASEDATA.il 
ADD  0 A  F  P  1  1  • 

2ED,U  30-BASEDATA. 1* 

ADD  0AFP15. 
ae  D , Q  I  A  F  P  1  . 

ADD  H7AFPFILES.INVHM80/BAPD 
2XQT  *H7AFP.870^-INV 
a  E  D  i  U  30-BASEDATA .4 
ADD  0AFP4. 

3  E  D i U  30-BASEDATA. 8 
ADD  0AFP8. 

2  E  D  »  U  30-BASEDATA .1 2 
ADD  0AFP12. 

3 E  D  ,  J  30-BAS EDATA  .  1 6 
ADD  0AFP16. 

EXIT 

3ED  ,  QI  A  F  P 1  . 

ADD  H7AFPFILES.EXT-L0SSES 

3  X  3  T  *H7AFP.870M-EXTLOSS 
3  E  D  ,  U  30-BASEDATA . 1 

ADD  0AFP1. 

3  E  D  »  U  30-BASEDATA. 2 
ADD  0AFP1. 

5ED,U  30-BASEDATA  .  3 
ADD  0  A  F  P 1  . 

3  E  D  t  U  30-BASEDATA .4 
ADD  0AFP1  . 

3  E  D  »  U  30-BASEDATA. 5 
ADD  0  A  F  p 1  « 

3ED,U  30-BASEDATA  .6 
ADD  OA  F  PI  . 

3  E  D i U  30-BASEDATA  .  7 
ADD  OA  FP  1  , 

2ED,U  30-BASEDATA .8 
ADD  0  A  F  P  1  « 

3  E  D  »  U  30-BASEDATA. 9 
ADD  0 A  F  p 1  • 

3  E  D  t  U  30-BASEDATA. 10 
ADD  0 A  F  P 1  • 

3  E  D  »  U  30-PASEDATA.il 
ADD  0  A  F  P 1  • 

5  E  D  t  U  30-BASEDATA. 12 
ADD  0 A  F  P  1  • 

aE  D , U  30-BASEDATA  .  1  3 
ADD  OA  F  P  1  . 

SED, U  30-BASEDATA  .  1  4 
ADD  0 A  F  P  1  . 

3  E  D  »  U  30-BASEDATA  .1 5 
ADD  OA  FP1  . 

2  E  D  *  U  30-BASEDATA. 16 
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163 
1  64 

165 

166 

167 

168 
169 
1  70 
1  71 
172 
1  73 
1  74 
1  75 
1  76 
1  77 

178 
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1  80 
181 
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1  84 

185 
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192 

193 
1  94 

195 
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1  99 
200 
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205 
2C6 

207 
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211 
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217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 


ADO  0  A  F  P  1  . 

EXIT 

3ED,  QI  A  F  P 1  . 

ADO  H7AFPFILES. NEAR-FAR 
SxaT  *M7AFP.870!*-NEARFAP 
3  E  D  ,  U  30-BASEDATA. 1 
ADO  OAF  Pi  . 

3  E  D  *  U  J0-BASEDATA.2 
ADD  OA  F  Pi  . 

SED,  U  3G-9ASEDATA.3 
ADO  0AFP1. 

3ED,U  30-BASEDATA.4 
ADD  0AFP1. 

3  E  0  t  0  30-BASEDATA. 5 
ADD  0  A  F  P  1  . 

3  F  D  ,  U  30-BASEDATA.6 
ADD  0 A  F  P 1  • 

3ED,  U  30-BASEDATA.7 
ADD  0 A  F  P 1 « 

3  E  0  t  U  30-BASEDATA.g 
ADD  0AFP1. 

3ED,U  30-BASEDATA.9 
ADD  0AFP1. 

3  F  0  *  U  30-BASEDATA.10 
ADD  0AFP1. 

3ED,U  30-BASEDATA.il 
ADD  0 A  F  P 1  • 

3  E  D  »  U  30-BASEDATA. 12 
ADD  OA  FP1  . 

3ED,U  30-BASEDATA. 13 
ADD  0AFP1  . 

3  E  D  »  U  3  0 -B  A  S  E  D  A  T  A  •  1  4 
ADD  OA  FP1  . 

3EDfU  30-BASEDATA. 15 
ADD  0AFP1. 

3  E  D  f  U  30-BASEDATA  •  1  6 
ADD  OA  F  Pi  * 

EXIT 

3ED,U  30-BASEDATA .1 

ADD  H7AFPFILES. ADDITIONALS  14  14 

3  E  D  »  U  30-BASEDATA. 2 

ADD  H7AFPFILES .ADDITIONALS  14  14 

3  E  D  ,  U  30-BASEDATA. 3 

ADD  H7AFPFILES. ADDITIONALS  14  14 

3  E  D  i  U  30-BASEDATA. 4 

ADD  H7AFPFILES. ADDITIONALS  14  14 

3  E  D  »  U  30-BASEDATA. 5 

ADD  H7 A F P F I L ES . AO D I T I ONALS  14  14 

3  E  D , U  30-BASEDATA .6 

ADD  H7AFPFILES .ADDITIONALS  14  14 

3  E  D  i  U  30-BASEDATA. 7 

ADD  H7A FPF ILES . ADD  I TI ONALS  14  14 

3ED,U  30-BASEDATA. 8 

ADD  H7AFPFILES. ADDITIONALS  14  14 

3ED,U  30-BASEDATA .9 

ADD  H7AFPFILES.ADDITI0NALS  14  14 

SED,U  30-BASEDATA . 1 0 

ADD  H7AFPFILES  .ADDITIONALS  14  14 

3E0,U  30-BASEDATA. 1 1 

ADD  H7AFPFILES.A0DITI0NALS  14  14 

3ED,U  30-BASEDATA. 12 

ADD  H7AFPFILES.ADDITI0NALS  14  14 

3  E  D  t  U  30-BASEDATA. 1! 

ADD  H7AFPFILES. ADDITIONALS  14  U 

3  E  D  t  U  30-BASEDATA . 1 4 

ADD  H7AFPFILES. ADDITIONALS  14  14 

3ED,U  30-BASEDATA. 1 5 

ADD  H7 A F F F IL ES . AD D I T IONALS  14  14 

q/EDtU  30-BASEDATA. 16 

ADD  H7AFPFILES  .ADDITIONALS  14  14 

EXIT 

a  e  d  » a  i  a  f  p  i . 

ADD  H7AFPFILES.ARTY-RANGE 
3  X  Q  T  *H7AFP.870M-ARTYRNG 
3  E  D  *  U  30-BASEDATA. 1 
ADD  0AFP1. 

3ED,U  30-BASEDATA. 2 
ADD  0AFP2. 

3E  D  TU  30-BASEDATA . 3 
ADD  0  A  F  P  3 • 
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245  3ED,U  30-BASEDATA .4 

246  ADD  0 A  F  P  4  * 

247  3ED,U  30-BASEDATA .5 

243  ADD  0AFP5. 

2  49  3ED,U  30-9ASEDAT A  .6 

250  ADD  0AFP6. 

251  3EDtU  30-BASEDATA  .  7 

252  ADD  OAFP7. 

2  53  £  E  D i U  30-BASEDATA  .8 

254  ADD  OAFP8. 

2  55  3ED,U  30-BASEDATA .9 

256  ADD  0AFP9. 

2  57  3  E  D  *  U  30-BASEDATA. 10 

258  ADD  0 A  F  P 1 0 • 

2  59  3  E  D  ♦  U  30-6A5EDATA.il 

260  ADD  OAFP 1  1  . 

261  3ED,U  3Q-BASEDATA.1? 

262  ADD  OAFP12. 

263  5ED,U  30-BAcEDATA.13 

264  ADD  0AFP13. 

265  3  E  D  f  U  30-BASEDATA. 14 

266  ADD  0AFP14. 

267  3ED,U  30-BASEDATA. 15 

268  ADD.  0AFP15. 

2  69  3  E  D i U  30-BASEDATA.16  ’ 

270  ADD  OAFP16. 

271  EXIT 

2  72  SED,QI  A  F  P 1 . 

273 

274  ADD  H7AFPFILES. REFIRE 

275  3X3 T  *H7AFP.870W-REF IRE 

276  3EDtU  30-BASEDATA. 1 

277  ADD  0AFP1. 

273  SED,U  30-PASEDATA.2 

279  ADD  OAFP1  . 

280  3  E  D  t  U  30-BASEDATA  .  3 

281  ADD  0 A  F  P 1  . 

282  3 E  D  v  U  30-BASEDATA  .4 

283  ADD  OAFP1. 

284  3FD,U  30-BASEDATA. 5 

285  ADD  OAFP1. 

286  3ED,U  30-BASEDATA. 6 

287  ADD  OAFP1. 

2  88  £  E  D  t  U  30-BASEDATA  .  7 

289  ADD  OAFP1. 

290  3EDfU  30-BASEDATA. 8 

291  ADD  0  A  F  P 1  . 

292  3  E  D  *  U  30-BASEDATA. 9 

2  93  ADD  0  A  F  P 1 • 

2  94  3  E  D  t  U  30-BASEDATA. 10 

2  95  ADD  0 A  F  P 1 • 

296  3  E  D  t  U  30-BASEDATA. 11 

297  ADD  OAFP1. 

2  98  3  E  D  f  U  30-BASEDATA. 12 

299  ADD  OAFP1. 

300  3  E  D  t  U  30-BASEDATA.  I7 

301  ADD  OAFP1. 

3G2  3  E  D  f  U  30-BASEDATA. 14 

3C3  ADD  0AFP1. 

3C4  3  E  D  *  U  30-BASEDATA. 15 

305  ADD  OAFP1. 

306  3ED,U  30-BASEDATA. 16 

307  ADD  OAFP1. 

308  EXIT 

309  3  E  D  »  Q  I  A  F  P 1  . 

310 

311  ADD  H7AFPFILES. SIGNATURE 

312  3  X  Q  T  *H7AFP .  870*-S  IGS 

313  3ED,U  30-BASEDATA. 1 

314  ADD  OAFP1  . 

315  3ED,U  30-BASEDATA  .2 

316  ADD  0 A  F  P 2  . 

317  3  E  D  »  U  30-9ASEDATA. 3 

318  ADD  OAFP3. 

319  3ED,U  30-BASEDATA. 4 

320  ADD  0AFP4. 

321  3ED,U  30-BASEDATA. 5 

322  ADD  0 A  F  P  5  . 

323  3  E  D  y  U  30-BAS E DATA  .  6 

324  ADD  OAFPt. 

325  3  E  D i U  30-BASEDATA  .  7 

326  ADD  0 A  F  P  7 . 
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3ED,U  30-BASEDATA  .8 
ADD  0  A  F  P  £  • 

3  F  D , U  30-BAS EDATA . 9 
ADD  OAFP9. 

2  E  D  f  U  30-BASEDATA. 10 
ADD  OAFP1Q. 

3ED,U  30-BASEDATA.11 
ADD  OAFP1 1 . 

3ED,U  30-BASEDATA.12 
ADD  OAFP12. 

3  E  D  t  U  30-BAS EDATA  .  1 7 
ADD  OAFP13. 

3ED,U  30-BASEDATA  .  1  4 
ADD  OA  F  P 1 4  . 
oi  E  D  »  U  3Q-9A*  EDATA  .  1  5 
ADD  OAFP15. 

3ED,U  30-BASEDATA. 16 
ADD  0AFP16. 

EXIT 

3  E  D  »  Q  I  A  F  P  1  . 

ADD  H7AFPFILES. SENSING-SIZE 
3  X  Q  T  *H7AFP.87Qf1-SENSIZE 

2  f  D  f  U  30-BASEDATA. 1 
ADD  OA  FP1 . 

3  E  D , U  30-BASEDATA. 2 
ADD  OAFP2 . 

3  E  D  t  U  30-BASEDATA. 3 
ADD  OAFP3. 

3E  D , U  30-BASEDATA  .  4 
ADD  0AFP4. 

3ED,U  30-BASEDATA. 5 
ADD  OAFP5. 

2  E  D  ,  U  30-BASEDATA  .6 
ADD  0AFP6. 

SFDtU  30-BASEDATA. 7 
ADD  OAFP7. 

3ED,U  30-BASEDATA. 8 
ADD  0 A  F  P  £  . 

3  E  D  »  U  30-BASEDATA. 9 
ADD  OAFP9. 

3  E  D  T  U  30-BASEDATA. 10 
ADO  OA  FP1Q. 

3  E  D , U  30-BASEDATA.il 
ADD  OAFP1  1  . 

3ED,U  30-BAS EDATA  .  1  2 
ADD  OA  FP1 2  . 

3ED,U  30-BASEDATA. 13 
ADD  OAFP13. 

2  E  D  v  U  30-BAcEDATA.l4 
ADD  0AFP14. 

3ED,U  30-BAS EDATA  .  1  5 
ADD  OAFP15. 

3ED,U  30-BAS EDATA  .  1 6 
ADD  OAFP16. 

EXIT 

3  E  D  f  U  30-BASEDATA . 1 

ADD  H7AFPFILES.ADDITIONALS  15  15 

3  E  D  »  U  30-BASEDATA. 2 

ADD  H7AFPFILES.ADDITIONALS  15  15 

3  E  D , U  30-BASEDATA. 3 

ADD  H7AFPFIIES.ADDITIONALS  15  15 

3  E  D  »  U  30-BASEDATA. 4 

ADD  H7AFPF ILES.ADDITIONALS  15  1* 

3  E  D  i  U  30-BASEDATA . 5 

ADD  H7AFPFILES.ADOITIONALS  16  16 

3  E  D  ,  U  30-BASEDATA. 6 

ADD  H7AFPFILES.ADDITI0NALS  16  16 

2  E  D  ,  U  30-BASEDATA. 7 

ADD  H7AFPFILES .ADDITIONALS  16  16 

3  E  D , U  30-BASEDATA  ,  8 

ADD  H7AFPFILES.ADDITI0NALS  16  16 

3  E  D ♦ U  30-BASEDATA. 9 

ADD  H7AFPFILES .ADDITIONALS  15  15 

3  E  D  »  U  30-BASEDATA.  10 

ADD  H7AFPFILES. ADDITIONALS  15  15 

2  E  D  t  U  30-BASEDATA. 11 

ADD  H7AFPFILES. ADDITIONALS  15  1 c 

3  E  D  »  U  30-BASEDATA.  12 

ADD  H7AFPFILES. ADDITIONALS  15  15 

3  E  D  »  U  30-BASEDATA. 1 3 

ADD  H7AFPFILES. ADDITIONAL^  16  16 


Figure  D-I-17.  Combat  Module  Format  BASEDATA  Conversion  Runstream 

(page  5  of  9  pages) 


D- I -43 


CAA-D-84-14 


Figure  D 


409 

410 

411 
413 
413 
4  14 

415 

416 
4  17 
418 
4  19 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 
433 

439 

440 

441 

442 

443 

444 

445 
4  4  6 
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477 
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a)EDfU  30-BAS  EDATA  .  1  4 

ADD  H7AFP FILES. ADDITIONAL  $  16  16 

iED.U  30-BASEDATA.15 

ADD  H7AFPFILES .ADDI TIONALS  16  16 

SED,U  30-BASEDATA.16 

ADD  H7AFPFILES .ADDITIONALS  16  16 

EXIT 

9  E  D  ,  Q  I  AFP1. 


ADD  H7AFPFILES.S1G-EMI T 
(DXUT  *H7A  FP.  870M-S  IGE 
3ED,U  30-BAStDATA.  1 
ADD  0AFP1, 

3  E  D  ,  U  30-BASEDATA. 2 
ADD  0AFP2. 

3ED,U  30-3ASEDATA.3 
ADD  0AFP3. 

3ED,U  30-9ASEDATA.4 
ADD  0AFP4. 

3ED,U  30-BASEDATA. 5 
ADD  0AFP5. 

3  E  D  »  U  3O-0ASEDATA  .6 
ADD  0 A  F  P  6 . 

3ED,U  30-BAS EDATA  .  7 
ADD  0AFP7. 

3  E  D  *  U  30-BASEDATA.8 
ADD  0AFP8. 

3  E  D  t  U  30-BASEDATA  .9 
ADD  0AFP9. 

3ED,U  30-BASEDATA. 10 
ADD  0AFP10. 

9  E  D  »  U  30-BASEDATA. 11 
ADD  0AFP1 1  . 

3  E  D , U  30-BASEDATA. 12 
ADD  0AFP12. 

3  E  D  t  U  30-BASEDATA  .  1 3 
ADD  0AFP13. 

3  E  D  t  U  30-BASEDATA. 14 
ADD  0AFP14. 

3  E  D  t  U  30-BASEDATA  .  1  5 
ADD  0AFP15. 

3  E  D , U  30-BASEDATA. 16 
ADD  0AFP16. 

EXIT 

3  E  D  ,  Q I  A  F  P  1  . 


ADD  H7AFPFILES.SENS0R-ATTEN 
3  X  Q  T  *H7AFP,870M-ATTFN 
MIST 

3  E  D  t  U  30-BASEDATA . 1 
ADD  0 A  F  P 1 • 

3  E  D  i  U  30-BASEDATA. 2 
ADD  0 A  F  P  2 • 

3  E  D  *  U  30-BASEDATA . 3 
ADD  0AFP3. 

3ED,U  30-BASEDATA .4 
ADD  OA  F  P4 . 

3  E  D  ,  U  30-BASEDATA. 5 
ADD  OA  F  P  5  . 

3  F  D , U  30-BASEDATA.  6 
ADD  OAFP6. 

3ED,U  30-BASEDATA.7 
ADD  OAFP7. 

3  E  D i U  30-BASEDATA  .8 
ADD  0AFP8. 

3ED,U  30-BASEDATA. 9 
ADD  OA  FP9 . 

3  F.  D  *  U  30-BASEDATA. 10 
ADD  OA  FP1 0 . 

3ED,U  30-BASEDATA . 11 
ADO  0AFP11. 

3ED,U  30-BASEDATA  .  1 2 
ADD  0AFP12. 

5  E  D  »  U  30-BASEDATA. 13 
ADD  0AFP13. 

3  F  D  »  U  30-BASEDATA. 14 
ADD  0AFP14, 

5ED,U  30-BASEDATA. 15 
ADD  OA  F  Pi  5 . 

SFD,U  30-BAS E DATA  .  1 6 
ADD  OA  FP1 6 . 

EXIT 
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3  E  D  ,  Q  I  AFPl  . 


ADD  H7AFFFILES, SENSOR-MAG 

SXQT  *H7AFP  . 8  70M-MAG 

3  E  D  ,  U  30-BASE  DATA  .  1 

ADD  0AFP1. 

a/ED,U  30-BASEDATA. 2 

ADD  0AFP1. 

3  E  D  f  U  3  0 - 0  A  S E  D ATA  •  3 
ADD  0 A  F  P 1  • 

3  E  D  *  U  30-BASEDATA. 4 
ADD  0AFP1  . 

3  E  D  t  U  30-BASEDATA.5 
ADD  0AFP1  . 

2ED,U  30-BASEDATA  .  6 
ADO  0AFP1. 

3  E  D  »  U  3  0- BA  $  E  D  AT  A . 7 
ADD  0 A  F  P 1  • 

3  E  D  t  U  30-BASEDATA. 8 
ADD  0AFP1 . 

3  E  D  *  U  30-BASED ATA . 9 
ADD  0  A  F  P 1  . 

3  E  D  i  U  30-BASEDATA. 10 
ADD  0AFP1. 

3  E  D  t  U  30-BASEDATA.11 
ADD  0  A  F  P  1  * 

3ED,U  30-BASEDATA  .1  2 
ADD  0  A  F  P  1  • 

3  E  D i U  30-BASEDATA  .  1  3 
ADD  0AFP1  . 

3  E  D , U  30-BASEDATA. 1  4 
ADD  0AFP1  . 

3  E  D  t  U  30-BASEDATA. 15 
ADD  0 A  F  P 1 • 

3ED,U  30-BASE  DATA  .  1  6 
ADD  0AFP1  . 

EXIT 


oi  t  D  f  u  ou-BAbtDATA.  j 

ADD  H7AFPFILES.A0DITI0NALS  17  17 

360,  U  30-BASEDATA. 2 

ADD  H7AFPFILES  .ADDITIONALS  17  17 

3ED,U  30-B AS E DATA . 3 

ADD  H7AFPFILES. ADDITIONALS  17  17 

3E0.U  30-BASEDATA. 4 

ADD  H7AFPFILES. ADDITIONALS  17  17 

3ED,U  30-9AS E D ATA . 5 

ADD  H7 A F P F  I  L E S  .  A D D  I  T  I  ON AL S  17  17 

3PD,U  30-BASEDATA. 6 

ADD  H7AFPFILES  .ADDITIONALS  17  17 

3ED,U  30-BASEDATA. 7 

ADD  H7 A FP F IL E$  .  AD D I T I ONALS  17  17 

3  E  D  ,  U  30-BASEDATA. 8 

ADD  H7A FP F I LES . AD D I T  I  ON AL S  17  17 

3  E  0  f  U  30-BASEDATA. 9 

ADD  H7AFPFILES. ADDITIONALS  18  1 P 

360,0  30-BASLDATA.10 

ADD  H7AFPFILES. ADDITIONALS  18  IP 

3ED,0  30-BASEDATA.il 

ADD  H7AFPFILES. ADDITIONALS  18  IP 

3  F  D , 0  30-BAS E DATA  .  1 2 

ADD  H7 A FP FI L E S . ADD  I T I  ON  A LS  IP  IP 

3  E  D  ,  U  30-BASEDATA  .  1 3 

ADD  H7AFFFILES. ADDITIONALS  18  18 

3  6  D  ,  U  30-BAS  E  D  ATA  .  1  4 

ADD  H7AFPFILES .ADDITIONALS  18  IP 

3E0,U  30-BASEDATA. 1 5 

ADD  H7AFF’ FILES. ADDITIONALS  18  18 

2  E  D  ,  U  30-BASEDATA.  16 

ADD  H7A FP F I LE S . AD D I T  I  ONAL S  IP  IP 
EXIT 

3  E  D  ,  Q  I  A  F  P  1  . 


ADD  H7AFPFILES. PARTICIPATE 
SXQT  *H7AEP.87QM-PART 
3ED,U  30-BAS  E  D ATA  .  1 
ADD  0AFP1 . 

S E  D  f  U  30-BASEDATA. 2 
ADD  0AFP2. 

3  E  D  »  U  30-BASEDATA. 3 
ADD  0AEP3. 

3ED,U  30-BASEDATA. 4 
ADD  0AFP4  . 
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573 

3  E  D  ,  U  30-BASEDATA  .5 

574 

ADO  0  A  F  P  5  . 

575 

3  F  D  *  U  30-BASEDATA  .6 

576 

ADD  0AFP6. 

577 

3  E  0  f  U  30-BASEDATA. 7 

578 

ADD  0AFP7. 

579 

3  F  D  »  U  30-BASEDATA. 8 

580 

ADO  OAFP8. 

581 

3E0,U  30-BASEDATA. 9 

5  S  2 

ADO  OAFP9. 

583 

3  F  0  t  U  30-BASEDATA . 1 0 

584 

ADO  0AFP10. 

585 

»  E  0  f  U  30-BASEDATA. 1 1 

586 

ADD  OAFP11. 

587 

3  E  0  .  U  30-BASEDATA. 12 

5  88 

ADD  0AFP12. 

589 

3ED,U  30-BASEDATA. 13 

590 

ADO  0AFP13. 

591 

3FD,U  30-BASEDATA. 14 

592 

ADD  OAFP14. 

593 

3E0,U  30-BASEDATA. 15 

594 

ADD  OAFP15. 

595 

3FD.U  30-BASEDATA. 16 

596 

ADO  OAFP16. 

597 

EXIT 

598 

3ED,U  30-BASEDATA. 1 

599 

ADO  *H7 ARTYF  F  D . RAPD 

600 

3  E  D  f  U  30-BASEDATA . 2 

601 

ADD  *H7ARTYEFD. STATIC 

602 

3  E  D , U  30-BASEDATA. 3 

603 

ADO  *H7ARTYEFD.RADE 

604 

3  E  D  f  U  30-BASEDATA .4 

605 

ADD  *H7ARTYE  FD.9APD 

606 

3  E  0  »  U  30-BASEDATA. 5 

607 

ADD  *H7ARTYE  FD . RAPD 

603 

3E0,U  30-BASEDATA. 6 

6G9 

ADO  *H7ARTYEFD. STATIC 

610 

3E0,U  30-BASEDATA. 7 

611 

ADD  *H7ARTYEFD.RADE 

612 

3E0,U  30-BASEDATA. 8 

613 

ADD  *H7ARTYEFD.BAPD 

614 

3  E  D  T  U  30-BASEDATA. 9 

615 

ADO  *H7ARTYEFD . RAPD 

616 

3  E  D  f  U  30-BASEDATA. 10 

617 

ADO  *H7ARTYFFD. STATIC 

618 

3  E  0 i U  30-BASEDATA. 11 

619 

ADD  *H7ARTYEFD.RADE 

6  2  0 

3  E  D  »  U  30-BASEDATA . 1 2 

621 

ADO  *H7ARTYE  FD.BAPD 

622 

3  E  0  «  U  30-BASEDATA  .1 3 

623 

ADO  *H7ARTYEFD.RAPD 

624 

3  E  D  t  U  30-BASEDATA . 1 4 

625 

ADO  *H7ARTYEFD. STATIC 

626 

3  E  0  i  U  30-qASEDATA.15 

627 

ADO  *H7ARTYEFD.RADE 

625 

3  E  D  «  U  30-BASEDATA . 1 6 

629 

ADD  *H7ARTYEFD.0APD 

630 

3ED.U  30-BASEDATA. 1 

631 

ADD  H7AFPFILES.ADDITI0NALS 

1  9 

381 

632 

3  E  D  *  U  30-BASEDATA. 2 

633 

ADD  H7AFPFIIES. ADDITIONALS 

19 

3*1 

634 

3  E  D  f  U  30-BASEDATA. 3 

635 

ADD  H7AFPFILES. ADDITIONALS 

19 

3*1 

636 

3ED.U  30-BASEDATA .4 

637 

ADO  H7AFPFILES.A0DITIONALS 

19 

3*1 

638 

3  E  0  t  U  30-BASEDATA . 5 

639 

ADO  H7AFPFILES. ADDITIONALS 

1  9 

3*1 

640 

3  E  D  f  U  30-BASEDATA. 6 

641 

ADD  H7AFPFILES.ADDITI0NALS 

19 

3*1 

642 

3  E  D . U  3C-PASEDATA.7 

643 

ADD  H7AFFFILES. ADDITIONALS 

19 

381 

644 

3ED,U  30-BASEDATA. 8 

645 

ADO  H7AFPFILES. ADDITIONALS 

19 

3  0  1 

646 

3  E  D  t  U  30-BASEDATA. 9 

647 

ADO  H7AFF FILES. ADDITIONALS 

19 

3*1 

648 

3  E  D  f  U  30-BASEDATA . 1 C 

649 

ADD  H7AFPFILES. ADDITIONALS 

19 

3*1 

650 

3  F  D  »  U  30-BASEDATA. 1 1 

651 

ADO  H7AFPFILES. ADDITIONALS 

19 

381 

652 

3E  D , U  30-BASEDATA . 1 2 

653 

ADD  H7A  FP FILES . ADDITIONALS 

19 

3*1 

654 

3ED  ,U  30-BASEDATA . 1 3 

Figure  D-I-17.  Combat  Module  Format  BASEDATA  Conversion  Runstream 
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655 

656 

657 
653 

659 

660 
661 
662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 


ADD  H7AFPF1LES. ADDITIONALS  19  3*1 

SFD,U  30-BASEDATA. 14 

ADO  H7AFPFILES .ADDITIONALS  19  381 

3ED,U  30-BASEDATA. 1 5 

ADD  H7AFPFILES. ADDITIONALS  19  3 

SED,U  30-8ASEDATA.16 

ADD  H7AFPFILES. ADDITIONALS  19  3«1 

EXIT 

SED  30-BASEDATA. 1f*H7BA$EDATA.H*30EQ1 
SED  30-BASEDATA. 2, *H78ASEDATA.H"80E0 2 
3  E  D  30-BASEDATA .3  , *H7BASEDAT  A.HM80E03 
SED  30-BASEDATA. 4, *H7BASEDATA.Hf*8OE04 
SED  30-BASEDATA. 5, *H7eASEDATA.H!"8aE05 
SED  30-BASEDATA. 6, *H 79 A$EDATA.HW80E06 
SED  30-BASEDATA. 7, *H79A$EDATA.HM8QE07 
SED  30-BASEDATA .8  ,*H7pASEDATA .HM80E08 
SED  30-BASEDATA. 9,*H7BASEDATA.H^ 8 0EC9 
SED  30-BASEDATA. 10, *H 73 ASEDATA.HM 8 0F10 
SED  30-BASEDATA. 11  ,*H78ASEDATA.HM8QE11 
SED  30-BASEDATA  .1 2  ,  *H70ASEDATA . 8  0  F 12 
SFD  30-BASEDATA. 13,*H7BASEDATA.HM80E17 
SED  30-BASEDATA. 14, *H7BASEDATA.HM80E14 
SED  3C-BASE0ATA.15,*H7BASEDATA.HMS0E15 
SED  30-BASEDATA. 16, *H79A$EDAT4.HM80E16 
EXIT 


Figure  D-I-17. 


Combat  Module  Format  BASEDATA  Conversion  Runstream 
(page  9  of  9  pages) 


D- I -47 


CAA-D-84-14 


D-I-19.  RUNSTREAM  ADJUSTMENT  FOR  EFD  AND  PERMANENT  BASEDATA  ELEMENTS.  The 

analyst  should  make  sure  the  correct  H7ARTYEFD  elements  (artillery  expected 
fractional  damage)  are  in  lines  599-629.  Also,  the  elements  in  the 
temporary  file  30-BASEDATA  must  be  copied  to  appropriate  elements  in 
H7BASEDATA,  lines  663-678. 

D-I-20.  BASEDATA  CONVERSION  PROGRAMS.  There  are  11  programs  used  to 
convert  labeled  BASEDATA  information  to  Combat  Module  input  format.  These 
programs,  together  with  system  utility  EDITOR  routines,  must  be  executed  in 
sequence  to  create  the  16  BASEDATA  elements  needed  for  one  complete  AFP 
run.  Each  program  will  be  discussed  in  detail  in  the  following  paragraphs 
in  the  order  that  they  are  executed.  The  system  EDITOR  is  used  to  add 
single  lines  of  data  and  sections  that  do  not  have  labeled  format  to  the 
BASEDATA  elements.  See  the  BASEDATA  generator  runstream  for  documentation 
on  the  execution  of  the  EDITOR  routines.  Figures  D- I -18  through  D- I -28 
contain  the  flowcharts  of  the  conversion  programs. 

a.  Inventory.  The  source  program  to  convert  the  labeled  inventory  to 
Combat  Module  input  format  is  H7AFP.M-INV.  The  absolute  program  is 

H7AFP .870M-INV .  This  program  reads  the  inventory  in  H7AFPFILES.  Inventory 
elements  are  labeled  by  division,  year,  and  sometimes  posture.  Example, 
H7AFPFILES. INVJM84  and  H7AFPFILES. INVHM80/RAPD.  The  numbers  in  the  labeled 
inventory  represent  one  division.  Force  ratio  factors  in  H7AFPFILES.INV- 
FACTORS  give  the  number  of  divisions  of  each  side  per  posture.  Inventory 
numbers  are  multiplied  by  the  factors  as  the  model  format  inventories  are 
being  built,  except  where  there  is  an  indicator  in  tne  H7AFPFILES  inventory 
element  which  says  not  to  multiply.  Error  messages  will  be  displayed  if 
the  input  inventory  number  is  not  in  tne  correct  columns.  Tne  16  Combat 
Module  format  inventories  are  created  from  this  program.  There  is  no 
program  to  convert  a  Combat  Module  formatted  inventory  into  a  labeled 
format. 

b.  External  Losses.  The  source  program  to  convert  the  labeled  external 
losses  to  Combat  Module  input  format  is  H7AFP .M-EXT-LOSSES.  The  absolute 
program  is  H7AFP.870M-EXTL0SS.  This  program  strips  the  AFP  System  type 
names  from  the  input  file  and  write  only  the  external  loss  number  to  the 
output  file.  External  loss  values  do  not  change  by  environment,  so  one 
output  file  will  be  used  in  creating  the  external  loss  section  for  all  16 
environments.  There  is  no  program  to  convert  Module  readable  to  labeled. 

c.  Near-Far  Ranges.  The  source  program  to  convert  the  labeled  Near-Far 
ranges  to  Combat  Module  input  format  is  H7AFP.M-NEARFAR.  The  absolute 
program  is  H7AFP .870M-NEARFAR.  This  program  strips  the  AFP  System  type 
names  from  the  input  file  and  writes  the  near  and  far  range  band  numbers  to 
the  output  file.  Near-Far  ranges  do  not  vary  by  environment,  so  one  output 
file  is  used  to  create  all  16  environments.  There  is  no  program  to  convert 
Combat  Module  format  to  labeled  format. 
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d.  Artillery  Range  Distribution.  The  source  program  to  convert  the 
labeled  artillery  ranges  to  Combat  Module  input  format  is  H7AFP .M-ARTY-RNG. 
The  absolute  program  is  H7AFP.870M-ARTYRNG.  The  ranges  vary  by  posture  and 
day/night.  Correspondence  between  the  conditions  (posture,  day/night)  and 
the  environments  is  hardwired  in  the  program.  The  appropriate  set  of 
values  is  selected  from  the  tables  in  H7AFPF I LES. ARTY -RANGE  and  moved  to 
the  correct  output  environment  file.  There  is  no  program  to  convert  Combat 
Module  input  format  to  labeled  format. 

e.  Refire.  The  source  program  to  convert  labeled  refire  times  to 
Combat  Module  input  format  is  H7AFP.M-REFIRE.  The  absolute  program  is 
H7AFP.870M-REFIRE .  This  program  removes  the  names  from  H7AFPFILES. REFIRE 
and  arrays  the  refire  times,  10  per  line,  6  lines  per  AFP  System  type. 
Refire  times  do  not  vary  by  environment.  One  output  file  is  created  and 
used  for  all  16  environment  output  files.  There  is  also  a  program  to 
convert  Combat  Module  formatted  data  to  labeled  format,  H7AFP .H-REFIRE . 

That  absolute  program  is  H7AFP .870H-REFIRE .  Using  the  refire  values  from  a 
Combat  Module  formatted  refire  time  file,  the  weapon  names  from  an  old 
refire  time  file,  and  the  AFP  System  type  names  from  the  inventory  file,  a 
second  labeled  refire  time  file  with  the  new  refire  values  is  created. 

This  program  can  be  used  to  check  the  refire  values  if  changes  are  made 
directly  to  the  refire  section  of  the  Combat  Module  format. 

f.  Signature  Sought.  The  source  program  to  convert  labeled  signature 
sought  values  to  Combat  Module  input  format  is  H7AFP.M-SIG-S0UGHT.  The 
absolute  program  is  H7AFP.870M-SIGS.  There  are  four  tables  of  sensor 
values  in  H7AFPFILES. SIGNATURE  which  vary  by  light  conditions--clear  day 
(environment  1-4),  clear  night  (environment  5-8),  degraded  day  (environment 
9-12) ,  degraded  night  (environment  13-16).  The  appropriate  sensor  number, 
type  signature  sought  by  the  sensor,  and  the  resolvable  cycle  are  written 
to  the  correct  output  environment  file.  There  is  no  program  to  convert 
Combat  Module  readable  format  to  labeled  format. 

g.  Sensing  Size.  The  source  program  to  convert  labeled  sensing  size 
data  to  Combat  Module  input  format  is  H7AFP .M-SENS-SIZE .  The  absolute 
program  is  H7AFP.870M-SENS-SIZE .  The  detected  size  of  a  target  varies  when 
it  is  in  the  open  or  in  defilade.  A  posture  file,  H7AFPFILES. DEF-0PEN-P0S, 
shows  which  side  is  in  defilade  or  in  the  open  by  environment.  The  sensing 
size  table  in  H7AFPFILES.SENS-SIZE  shows  sizes  in  the  open  and  defilade. 

The  appropriate  size  (OPEN  or  DEF)  for  the  environment  is  written  to  each 
of  the  16  output  files.  There  is  no  program  to  convert  Combat  Module  input 
format  to  labeled  format. 

h.  Signature  Emitted.  The  source  program  which  converts  labeled 
signature  emitted  data  to  Combat  Module  input  format  is  H7AFP.M-SIG-EMIT. 
The  absolute  program  is  H7AFP.870M-SIGE.  The  labeled  file  H7AFPFILES .SIG- 
EMIT  contains  both  light  contrast  and  heat  change  data.  The  values  vary  by 
environment-clear  day  (Environment  1-4),  clear  night  (environment  5-8), 
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degraded  day  (environment  9-12),  degraded  night  (environment  13-16).  The 
appropriate  light  and  heat  signature  emitted  are  written  to  the  correct 
output  environment  file.  There  is  no  program  to  convert  Combat  Module 
input  to  labeled  format. 

i.  Sensor  Attenuation.  The  source  program  which  converts  labeled 
attenuation  data  to  Combat  Module  format  is  H7AFP.M-ATTEN.  The  absolute 
program  is  H7AFP.870M-ATTEN.  The  attenuation  values  of  the  sensors  in 
H7AFPFILES.SENS0R-ATTEN  vary  by  clear  and  degraded  environments.  The 
degradation  condition  is  entered  via  a  parameter  after  the  @XQT  statement 
for  H7AFP.870M-ATTEN  as  haze,  mist,  or  fog.  That  condition  will  be  used 
for  all  degraded  environments.  There  are  three  types  of  sensors--visible 
light,  IR,  and  SILICON  TV.  The  appropriate  value  based  on  sensor  type  and 
atmospheric  condition  is  written  to  each  of  the  16  environment  output 
files.  There  is  no  program  to  convert  Combat  Module  input  format  to 
labeled  format. 

j.  Sensor  Magnification.  The  source  program  which  converts  labeled 
sensor  magnification  sizes  to  Combat  Module  format  is  H7AFP.M-MAG.  The 
absolute  program  is  H7AFP.870M-MAG.  The  magnification  sizes  of  the  sensors 
in  H7AFPFILES. SENSOR-MAG  do  not  vary  by  environment.  One  output  file  is 
used  in  creating  the  magnification  section  for  all  16  environments.  There 
is  no  program  to  convert  Combat  Module  format  to  labeled  format. 

k.  Participation.  The  source  program  which  converts  labeled  artillery 
participation  values  to  Combat  Module  input  format  is  H7AFP.M-PARTICIP. 

The  absolute  program  is  H7AFP .870M-PART.  Artillery  participation  can  vary 
by  posture  (currently  it  does  not).  The  participation  values  are  selected 
from  the  table  in  H7AFPFILES. PARTICIPATE,  and  written  to  the  appropriate 
environment  output  file.  There  is  no  program  to  convert  Combat  Module 
input  to  labeled  format. 
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Figure  D-I-18.  Labeled  Inventory  to  Combat  Module 
Format  Conversion  Program 
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Figure  D-I-19.  Labeled  External  Loss  to  Combat  Module 
Format  Conversion  Program 
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Figure  D-I-20.  Labeled  Near-Far  Ranges  to  Combat  Module  Format 

Conversion  Program 
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Figure  D-I-21. 


Labeled  Artillery  Range  Distribution  to  Combat 
Module  Format  Conversion  Program 
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Figure  D-I-22.  Labeled  Refire  to  Combat  Module  Format 

Conversion  Program 
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Figure  D-I-23.  Labeled  Signature  Sought  to  Combat  Module 

Conversion  Program 
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Figure  D-I-24.  Labeled  Sensing  Size  to  Combat  Module  Format 

Conversion  Program 
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Figure  D-I-25.  Labeled  Signature  Emitted  to  Combat  Module 
Format  Conversion  Program 
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Figure  D-I-26.  Labeled  Sensor  Attenuation  to  Combat 
Module  Format  Conversion  Program 
(page  1  of  2  pages) 
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Figure  D-I-26.  Labeled  Sensor  Attenuation  to  Combat 
Module  Format  Conversion  Program 
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Figure  D-I-27.  Labeled  Sensor  Magnification  to  Combat 
Module  Format  Conversion  Program 
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Figure  D-I-28.  Labeled  Participation  to  Combat  Module 
Format  Conversion  Program 
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ANNEX  II  TO  APPENDIX  D 
AFP  ENGAGEMENT  PREFERENCES  FILE 


Section  I.  OVERVIEW 

D-II-1.  This  annex  describes  the  preference  input  to  the  Combat  Module. 
Preferences  are  needed  at  the  type  on  type  level,  i.e.,  B01  preferences  for 
R01-R60  followed  by  B02  preferences  for  R01-R60,  and  so  on  for  all  60  Blue 
types.  R01  preferences  for  B01-B60,  etc.  follow  the  Blue  preferences.  A 
weapon  type's  preferences  to  engage  the  60  opposing  types  must  total  100 
percent.  Initial  development  of  the  preference  file  can  be  facilitated  by 
using  a  program  which  accepts  category  versus  category  preference  inputs 
and  outputs  the  type  versus  type  preferences  required  by  the  Combat  Module. 
Linder  this  scheme,  all  types  within  a  category  have  the  same  preference  to 
engage  opposing  types  of  a  single  category.  The  output  file  from  this  pro¬ 
gram  can  be  input  to  the  Combat  Module  directly  or  can  be  adjusted  for 
type-on-type  module  changes.  Making  these  changes  can  be  facilitated  by 
reformatting  the  output  file  into  a  labeled  version  with  a  conversion  pro¬ 
gram.  This  labeled  version  is  changed  using  the  system  EDITOR.  Another 
program  reads  the  changed  labeled  preferences  and  converts  them  back  to 
Combat  Module  format.  This  annex  documents  the  standard  AFP  preference  set 
of  four  Combat  Module  preference  files  which  relate  to  the  four  postures 
used  in  AFP.  If  more  or  less  files  are  required,  the  user  should  adjust 
the  number  of  preference  files  accordingly. 


Section  II.  INPUT 

D-II-2.  A  category  versus  category  preference  file  example  shown  in  Figure 
D-II-1.  There  are  three  logical  sections.  The  first  13  lines  are  a  13  by 
13  array  with  Side  1  categories  1-13  preferences  to  engage  Side  2 
categories  1-13.  The  next  six  lines  show  to  which  category  the  Side  1 
weapon  type  belongs.  First  value  is  the  category  of  B01,  second  value  is 
the  category  of  B02,  etc.  The  next  line,  with  13  numbers,  shows  the 
percent  of  each  Side  1  category  to  be  allocated  in  direct  fire  duels. 

These  three  sections  are  repeated  for  Side  2.  Category  13  is  used  in  AFP 
for  deep  targets.  These  files  are  in  H7PREFERENCE.RAPD, 

H7PREFERENCE. STATIC,  H7PREFERENCE.RADE,  and  H7PREFERENCE.BAPD. 

D-II-3.  A  labeled  type  on  type  preference  file  is  shown  in  Figure  D-II-2. 

A  Side  1  weapon  type's  preference  to  engage  each  of  the  60  Side  2  opponents 
is  listed  with  the  corresponding  Side  2  preferences  to  engage  Side  1  in  the 
second  column.  This  file  gives  preferences  from  a  Side  1  perspective,  be¬ 
cause  all  the  preferences  for  a  Blue  type  are  shown  on  one  page.  It  is  in 
H7PREF .LABELED-BLUE .  A  second  file  giving  preference  from  a  Side  2 
perspective  is  in  H7PREF. LABELED-RED.  It  shows  preferences  for  Side  2  to 
engage  Side  1  in  the  first  preference  column,  and  preferences  for  Side  2  to 
engage  Side  1  in  the  next  column. 
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Figure  0-11-1.  Category  versus  Category  Preferences 


D-II-2 


CAA-D-84-14 


SIDE  1 

SYSTEM  : 

7.62GM 

AFP  a  303 

S  I  DE2 
SYSTEM 

A  FF  n 

PREFERENCES  : 
SIDE1-FCP-SIDE2  S I D E 2 

PTR  p  d 

R01 

.000 

.000 

A  K  S  -  7  A 

R  0  2 

.15  4 

.123 

7.60G« 

RC3 

.156 

.123 

RSN  I  PE 

R  0  A 

.156 

.123 

G  R  P  N  3  C 

RO  5 

.  156 

.123 

b  P  D  M  -  ? 

R  C  6 

.0  63 

.04  5 

bTP-60 

R  0  7 

.063 

.045 

P  M  P  -  R 

R  05 

.063 

.045 

j  U  "  M  Y 

R  C  c 

.000 

.000 

DUVM  V 

R  1  C 

.coo 

.000 

SPG-9 

R  1  1 

.016 

.000 

P  G  -  1  6 

R  1  2 

.016 

.000 

*T-5 

R 1  2 

.016 

.000 

aT-7 

R  1  A 

.016 

.000 

PPG  7 

R  1  5 

.016 

.000 

v  p  2  M 

R  1  6 

.063 

.017 

U  v  M  Y 

SI  7 

•  i  0  0 

.000 

DU^M  Y 

R  1  c 

.000 

.000 

DUMMY 

pic 

.000 

.000 

D  U  *v  M  Y 

R  2  C 

.000 

.000 

T  5  5 

R  2  1 

.000 

.007 

T6? 

R  2  2 

.000 

.007 

7  6  A 

P2T 

.000 

.007 

T  7  2 

R2  4 

.^00 

.0  07 

jfir 

R  2  5 

.000 

.007 

Z  S  0  -  2  3 

R  2  6 

.000 

.002 

D  U  v  M  Y 

R  2  7 

.000 

.000 

D  U  M  M  Y 

R  2  Z 

.  rcc 

.0^0 

D  U  *  M  Y 

R2R 

.000 

.000 

S  A  -  1 

R3  0 

.000 

.000 

$  A  -  6 

R  3  1 

.000 

.000 

S  A -7 

R  3  2 

.000 

.000 

S  A 

3  t  X 

.000 

.000 

SA-y 

R3  A 

.  000 

.000 

S  A  -  1  1 

R  3  5 

.000 

.0  00 

hOPL  IT 

R  3  * 

.016 

.000 

HlP-c 

R  3  7 

.016 

.000 

H  I  \  D  -  D 

R3  Q 

.01  4 

.  0  0  0 

D  U  M  M  Y 

R  3  7 

.000 

.000 

D  U  w  M  Y 

PRO 

.000 

.00  0 

*13-21 

R4  1 

.000 

.000 

IT  VEH 

R  4  2 

.rco 

.000 

H  V  Y  A  0 

R  4  3 

.000 

.coo 

lt  ARM 

R  44 

.0  00 

.000 

:  U  v  M  Y 

R4  r 

.000 

.000 

A  C  R  V  *  2 

R  4  t 

.000 

.000 

D  U  v  M  Y 

R  4  7 

.  000 

.o^o 

DU^M  Y 

E  4  ? 

.0  00 

.000 

C  U  v  M  Y 

Ri,C 

.000 

.000 

r  u  v  m  y 

R5C 

.000 

.0  00 

M  0  :  2  K 

R51 

.000 

.  0  c  c 

Ml  2 0 T 

R  5  2 

.000 

.000 

r-  u  M  m  r 

S3  3 

.000 

.000 

VM  Y 

S  c  4 

.  000 

p  f**  r\ 

•  L/C;  w 

1/  U  M  M  Y 

R  3  5 

.pcc 

r  p  p 
•  Li  L  U 

Hi  2  2  T  / 

R  5  6 

.000 

.000 

Hi  5  2  T  / 

R  5  7 

.000 

.000 

Li  2  2  T  + 

k5  c 

.0  00 

.000 

DUMMY 

C50 

.000 

.000 

D  U  M  M  Y 

R6C 

.000 

.000 

Figure  D-II-2.  Labeled  Blue  Preferences 
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Section  III.  OUTPUT 

D-II-4.  An  example  of  a  preference  file  in  Combat  Module  format  is  in 
Figure  D-II-3.  The  preferences  are  in  groups  of  4x15  arrays.  BOl's  pref¬ 
erences  to  engage  R01-R15  are  in  line  1,  preferences  to  engage  R16-R30  in 
line  2,  preferences  to  engage  R31-R45  in  line  3,  and  preferences  to  engage 
R46-R60  in  line  4.  B02's  preferences  follow,  and  so  on.  After  all  the 
Blue  preferences,  the  Red  preferences,  R01  versus  B01-B60  etc.  are  listed 
in  the  same  15x4  format.  These  preference  file  are  in  H7PREF.RAPD, 

H7PREF. STATIC,  H7PREF.RADE,  and  H7PREF.BAPD. 
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Figure  D-II-3.  Combat  Model  Format  Preference 


Section  IV.  RUNSTREAM 

D— I 1—5.  Overall  I/O  flow  of  the  preference  generation  process  is  shown  in 
Figure  D-II-4.  Elements  in  H7PREF  which  contain  the  category  versus  cate¬ 
gory  preferences  are  read  by  the  program  H7AFP.870CAT-PREF  generating  a 
type  versus  type  preference  element  in  H7PREF.  That  element  is  converted 
to  a  labeled  format  in  programs  H7AFP.870H-PREF-8  and  H7AFP.870H-PREF-R. 
Changes  are  made  to  the  labeled  elements  with  the  system  EDITOR.  The 
changed  elements  are  read  by  H7AFP.870M-PREF  and  are  written  over  the  old 
type  versus  type  elements  in  H7PREF.  The  runstreams  for  each  of  the  pieces 
of  the  process  are  described  in  the  following  paragraphs. 
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Figure  D— I 1—4.  Preference  Generation  I/O  Flow 


D-II-6.  Figure  D-II-5  shows  the  runstream  to  convert  category  preferences 
to  type  versus  type,  Combat  Module  format. 


L X  3  T  *h7AFP.£73CAT-PFEF 
iADO  +  H  7  P  R  E  F  .  CAT-RAP D/h 
i E  0  5.  ,*H?P"EF.RAPD/H 


Figure  D-II-5.  Convert  Category  to  Type  Preference 
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D-II-7.  Figure  D-II-6  shows  the  runstream  to  convert  type  versus  type 
preferences  to  labeled  formats,  both  a  Blue  and  a  Red  perspective. 


EQUAL  UNCLASSIFIED 
a  A  S  G  ,  A  H7AFPFILES/XXX/XXX. 

2  A  S  G  ,  T  A  F  P  1  . 

•iiE0,Ql  A  F  P  1  . 

ADD  h7AFPFILES.INVH*£C/<?APD 
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Si  E  D  ,  C  I  A  F  F  2  . 
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a  A  S  G  ,  T  0  A  F  P  1  . 
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'iXCT  *H7AFP.870H-PREF-R 

1ED  GAFP1  .  , *H7PREF.LAPELED-pED/RAPCH 

EXIT 


Figure  D-II-6.  Convert  Combat  Module  Format  to  Labeled  Format 


D-II-8.  Figure  D-II-7  shows  the  runstream  to  convert  labeled  Blue  perspec¬ 
tive  preferences  to  Combat  Module  format.  Use  tnis  if  changes  were  only 
made  to  the  Blue  perspective  file.  Figure  D-II-8  shows  the  runstream  to 
convert  labeled  Red  perspective  preferences  to  Combat  Module  format.  Use 
this  if  changes  were  only  made  to  the  Red  perspective  file.  Figure  D- 1 1-9 
shows  tne  runstream  to  use  if  botn  the  Blue  and  Red  perspective  files  were 
changed.  Many  times  it  is  easier  to  make  Blue  changes  in  the  Blue  file  and 
not  adjust  Red  preferences  in  that  file  because  the  Red  preferences  are 
spread  across  60  pages. 
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Figure  D-II-7.  Convert  Labeled  Blue  Preferences 
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Figure  D-II-8.  Convert  Labeled  Red  Preferences 
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Figure  D-II-9.  Convert  Labeled  Blue  and  Red  Preferences 
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Section  V.  PROGRAMS 


D— I 1-9.  The  program  which  converts  category  versus  category  preferences  to 
type  versus  type  is  H7AFP.CAT-PREF.  The  absolute  program  is 
H7AFP.870CAT-PREF.  If  participation  and  preferences  by  category  are 
nonzero,  the  preference  is  proportioned  among  the  opposing  category.  The 
program's  I/O  flow  is  in  Figure  D-II-10.  The  program  flowchart  is  shown  in 
Figure  D-II-11,  and  variable  definitions  are  in  Table  D-II-1. 


►  H7AFP.870CAT-PREF 


Figure  D-II-10.  H7AFP.CAT-PREF  I/O  Flow 


D-II-10.  There  are  two  programs  which  convert  the  Combat  Module 
preferences  to  labeled  format,  H7AFP.H-PREF-8LUE  creates  a  labeled  version 
from  a  Blue  perspective,  i.e.,  Side  1  (Blue)  preferences  are  grouped  by 
Blue  type  versus  60  Red  types.  H7AFP.H-PREF-RED  creates  a  labeled  version 
from  a  Red  perspective.  The  absolute  programs  are  H7AFP .870H-PREF-B  and 
H7AFP.870H-PREF-R.  I/O  flow  for  the  programs  are  in  Figures  D- 11-12  and 
D-II-13.  H-PREF-BLUE 's  flowchart  is  in  Figure  D- 1 1 -14.  H-PREF-RED's 
flowchart  is  in  Figure  D- 11-15. 
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Read  preferences  to  engage  opposite  side  categories 
for  each  category  type. 


Read  the  category  classifications  for  each  type. 


Read  the  direct  fire  participation  percentage  for 
each  category 


Set  shooter  side  and  target  side. 


Loop  over  the  shooter  side. 


Set  pointer  for  shooter  category.  Give  KK 
the  value  of  the  shooter  category 


Initialize  output  array  at  0.0. 


Check  to  see  if  shooter  has  a  nonzero  category 
preference  for  the  target  category  and  that 
participation  is  not  equal  to  zero.  If  either 
category  preference  or  participation  is  zero  then 
write  the  type  preference  as  zero. 


Figure  D-II-11.  H7AFP.CAT-PREF  Flowchart 
(page  1  of  3  pages) 
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Loop  over  the  target  side 


Set  pointers  for  target  type.  Give  JJ  the 
value  of  the  target  category. 


If  the  target  type  is  zero,  go  to  the  next 
type. 


Give  BUF(J)  the  shooter  type  KK  category 
preference  for  target  type  JJ. 


Sum  the  preferences  for  shooter  type  KK 
over  all  target  types. 


Divide  the  sum  of  the  shooter  preferences 
by  the  direct  KK  participation  percentage. 


If  the  adjusted  shooter  type  KK  preference  for 
all  target  types  is  zero,  write  the  preference 
and  go  to  the  next  type. 


Proportion  the  total  shooter  type  KK  category 
preference  across  the  NTYPE  targets. 


Figure  D-II-11.  H7AFP.CAT-PREF  Flowchart 
(page  2  of  3  pages) 
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Figure  D-II-11.  H7AFP.CAT-PREF  Flowchart 
(page  3  of  3  pages) 


Table  D-II-1.  Variable  Definitions 


Number  of  categories  on  each  side 
Number  of  weapon  types  on  each  side 

A  three-dimensional  array  which  contains  the  input  pref¬ 
erences  for  each  of  the  sides  to  engage  each  other  on  a 
category-by-category  basis 

A  two-dimensional  array  which  contains  the  category 
classifications  for  each  type  weapon  on  each  side 

An  array  which  contains  the  output  values  -  preferences 
for  each  of  the  sides  to  engage  each  other  on  a  weapon 
type  by  weapon  type  basis 


A  two-dimensional  array  which  contains  the  direct  fire 
participation  percentage  for  each  category  on  each  side 

A  pointer  for  the  shooter  category 

A  pointer  for  the  target  category 


Variable  used  to  transform  the  preference  for  each  cate¬ 
gory  into  type-on-type  preferences 
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(H7PREF. 
labeled 
type 

preference 


Figure  D-II-12.  H7AFP.H-PREF-BLUE  I/O  Flow 


Figure  D-II-13.  H7AFP.H-PREF-RED  I/O  Flow 
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Generate-Red-prefs 


Perform 
read-tab! e-R 
4  times* 


Read-table-R 


Move-Red -entries 


Move  pref  to 
Red  (system,! ine) 


*15  preference  values/line 
4  lines  of  preference  values/AFP  system 
These  numbers  are  hardwired 


Write-page  Write-line 


Move  B  name, 
num  to 
output 

Move  R  name,  ~ 

Move  Blue  (Blue 
..  svs.  Red  svs) 
Move  Red  (Red 
sys  ,  Blue  sys) 

Figure  D-II-14.  H7AFP.H-PREF-BLUE  Flowchart 
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(  E  ) 


Generate- Blue-orefs 


Read-table-8 


'love-slue-entries 


Perform 

/  / 

Move  pref  to 

read-table-8 

/  Read  / 

4  times* 

/  prefs  / 

Blue  (sys) , 

1  i  ne 

Perform 
move-81 ue- 
entries 


Wn  te-paae 


*15  oreference  values  line 
*  lines  of  preference  values/AFP  system 
These  numoers  are  hardwired 


Figure  D-II-15.  H7AFP.H-PREF-RED  Flowchart 
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D-II-11.  There  is  one  program  which  converts  the  labeled  preferences  back 
to  Combat  Module  format.  H7AFP.M-PREF  reads  the  Blue  perspective  output 
from  H7AFP.H-PREF-BLUE,  the  Red  perspective  output  from  H7AFP.H-PREF-RED. 
The  absolute  program  is  H7AFP.870M-PREF.  Depending  on  how  changes  are  made 
to  the  labeled  preferences,  this  program  may  be  executed  once  or  twice.  If 
changes  are  only  made  to  the  BLUE  preference  file,  use  the  runstream  in 
Figure  D-II-7.  If  only  RED  changes  were  made,  use  the  runstream  in  Figure 
D- 1 1-8.  However,  sometimes  it  is  easier  to  make  BLUE  changes  in  the  BLUE 
file  and  RED  changes  in  the  RED  file.  Then  use  the  runstream  in  Figure 
D-II-9.  I/O  flow  for  the  program  is  in  Figure  D-II-16.  The  flowchart  is 
in  Figure  D-II-17. 


►  H7AFP .870M-PREF 


Figure  D-II-16.  H7AFP.M-PREF  I/O  Flow 
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Write-Red-system  Wri te-Red-1 ine 


Perform 

Wri te-Red-1 ine 


Perform 
Move-Red-prefs 


Write 
preference 
1  ine 


Move-Red-prefs 


Move  table  entry  (Blue 
weapon  type,  Red  weapon 
type)  to  pos  on  line 


Figure  D-II-17.  H7AFP.M-PREF  Flowchart 
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ANNEX  III  TO  APPENDIX  D 

THE  DISTRIBUTION  OF  DUELS  TO  RANGE  BANDS 
WITHIN  THE  COMBAT  MODULE 


Section  I.  OVERVIEW 

D— III— 1.  This  annex  describes  the  input  file  which  serves  as  the  mechanism 
for  distributing  the  type-on-type  duels  across  the  six  range  bands  employed 
in  the  Combat  Module.  It  is  important  to  note  that  each  duel  must  have  a 
range  distribution  input. 

D-III-2.  There  are  currently  six  range  bands  and  one  environment  in  each 
Combat  Module  run.  The  range  distribution  file,  H7RNGDST,  is  used  to 
distribute  the  duels  at  each  odds  class  to  the  six  ranges.  The  six  ranges 
are  delineated  as  follows: 


Range  1 

Range  2 

Range  3 

Range  4 

Range  5 

Range  6 

250 

meters 

500 

meters 

1,000 

meters 

1,500 

meters 

2,500 

meters 

>2,500 

meters 

A  different  range  distribution  of  duels  could  be  used  for  each  AFP 
environment  if  deemed  appropriate.  Presently,  only  four  are  utilized, 
varying  across  the  four  combat  postures.  The  distinct  posture 
distributions  are  contained  as  elements  in  the  file  H7RNGDST  and  are 
employed  as  reflected  at  Table  D-III-1. 


Table  D-III-1.  Range  Distributions  Across  Postures 


Environment 

File 

Element 

1 

Clear  day  Red  attack  prepared  defense 

H7RNGDST 

RAPD 

2 

Clear  day  static 

H7RNGDST 

STATIC 

3 

Clear  day  Red  attack  Blue  delay 

H7RNGDST 

RADE 

4 

Clear  day  Blue  attack  prepared  defense 

H7RNGDST 

BAPD 

5 

Clear  night  Red  attack  prepared  defense 

H7RNGDST 

RAPD 

6 

Clear  night  static 

H7RNGDST 

STATIC 

7 

Clear  night  Red  attack  Blue  delay 

H7RNGDST 

RADE 

8 

Clear  night  Blue  attack  prepared  defense 

H7RNGDST 

BAPD 

9 

Degraded  day  Red  attack  prepared  defense 

H7RNGDST 

RAPD 

10 

Degraded  day  static 

H7RNGDST 

STATIC 

11 

Degraded  day  Red  attack  Blue  delay 

H7RNGDST 

RADE 

12 

Degraded  day  Blue  attack  prepared  defense 

H7RNGDST 

BAPD 

13 

Degraded  night  Red  attack  prepared  defense 

H7RNGDST 

RAPD 

14 

Degraded  night  static 

H7RNGDST 

STATIC 

15 

Degraded  night  Red  attack  Blue  delay 

H7RNGDST 

RADE 

16 

Degraded  night  Blue  attack  prepared  defense 

H7RNGDST 

BAPD 
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D-III-3.  RANGE  DISTRIBUTION  OF  DUELS 

a.  The  input  range  distribution  exerts  a  powerful  influence  on  the 
outcome  of  the  direct  fire  duels.  The  range  distribution,  in  conjunction 
with  the  engagement  preferences  and  SSPKs,  form  an  interrelated,  complex 
data  set  that  determines  the  results  of  all  direct  fire  battles. 

b.  The  range  distribution  and  the  engagement  preference  are 
subjectively  determined  by  applying  the  doctrine  and  tactics  of  the 
appropriate  Blue  and  Red  force.  The  determination  of  which  weapons  will 
engage  each  other,  and  the  ranges  over  which  the  engagements  will  be 
fought,  is  based  in  the  combat  posture  (attack,  defend,  delay,  static) 
being  simulated  by  the  Combat  Module. 

D-III-4.  The  range  distribution  files  exist  in  two  different  formats:  a 
machine  readable  format  actually  used  as  input  to  the  Combat  Module,  and  a 
labeled  format  used  to  facilitate  data  transcription  and  review. 
Additionally,  there  are  two  utility  programs  used  to  transform  the  data 
files  from  machine  format  to  labeled  format  and  vice  versa.  Figure  D-III-1 
illustrates  the  range  distribution  generation  process.  Source  worksheets 
are  developed  using  military  judgment  and  doctrine  to  distribute  the 
type-on-type  duels  to  range  bands.  These  data  are  keyed  into  the  labeled 
file  format.  The  program  which  converts  from  labeled  to  combat  module 
format  is  then  utilized  to  convert  to  the  input  format  required  by  the 
Combat  Module  completing  the  process.  A  separate  utility  may  be  used  to 
convert  any  extant  Combat  Module  format  range  distribution  file  to  the 
labeled  format.  This  second  utility  program  is  not  normally  used  in 
constructing  the  range  distribution  files  but  does  constitute  a  convenient 
means  of  labeling  any  combat  module  format  version  for  which  the  labeled 
version  has  not  been  saved  or  is  not  readily  identifiable.  The  ensuing 
sections  describe  the  data  file  formats  and  the  utility  programs  in  more 
detai 1 . 
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Figure  D-III-1.  Range  Distribution  Generation 
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Section  II.  INPUT 

D-III-5.  Figure  D-III-2  is  an  example  of  the  labeled  range  distribution 
file.  This  example  portrays  Side  1,  type  1  (B01  BTRP)  versus  each  of  the 
Side  2  types,  i.e.,  R01  through  R60.  The  values  shown  are  the  percentage 
of  duels  (between  the  types)  to  be  distributed  to  each  of  the  six  ranges. 
For  this  example,  the  duels  between  B01  and  R01  would  all  be  in  the  deep 
range  while  70  percent  of  the  B01  versus  R02  duels  would  be  at  250  meters, 
20  percent  at  500  meters,  and  10  percent  at  1,000  meters.  Table  D-III-2 
depicts  the  file  organization.  Note  that  the  file  layout  does  not  show 
Side  1  types  nested  under  Side  2  types.  This  is  because  there  can  only  be 
one  distribution  of  a  type-on-type  duel,  i.e.,  B01  versus  R01  is  the  same 
as  R01  versus  B01  and  requires  only  one  distribution  input.  The  labeled 
file  is  read  by  utility  program,  H7AFP.870M-RANGE,  to  produce  the  machine- 
readable  version  which  is  read  by  the  Combat  Module. 
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SIDE  1 
AFP  TYPE 

n 

B 1 1  DRAGON 


SIDE  2 

RANGE 

DISTRIBUTION 

(%  OF 

CONFLICTS) 

AFP 

TYPE 

250 

500 

1000 

1500 

2500 

R  0  1 

RTRP  DEEP 

90 

10 

0 

0 

0 

R  0  2 

AKS-74 

70 

20 

10 

0 

Q 

R  0  3 

7  •  6  0  G  M 

90 

1  0 

0 

0 

G 

R  0  4 

RSNIPE 

90 

1  0 

0 

0 

Q 

RC5 

GREN30 

90 

10 

0 

0 

0 

R  0  6 

BRDM-2 

40 

4  0 

2  0 

0 

0 

R  0  7 

ST  P -60 

40 

40 

20 

0 

0 

R08 

BMP-R 

40 

40 

20 

0 

0 

R  0  9 

DUMMY 

20 

20 

20 

20 

20 

RIO 

DUMM  Y 

20 

20 

20 

20 

20 

R  1  1 

SPG-9 

20 

20 

20 

20 

20 

R  1  2 

RPG-1 6 

20 

20 

20-  • 

20 

20 

R  1  3 

A  T  -  5 

40 

60 

0 

0 

0 

R  1  4 

A  T  -  7 

20 

20 

20 

20 

20 

R  1  5 

RPG  7 

ICO 

0 

0 

0 

n 

R  1  6 

BMP2M 

5  C 

4  0 

ID 

0 

6 

R  1  7 

DUMMY 

20 

20 

20 

20 

20 

R  1  £ 

DUMMY 

20 

20 

20 

20 

20 

R  1  9 

DUMMY 

20 

20 

20 

20 

20 

R  2  0 

DUMMY 

20 

20 

20 

20 

20 

R  2  1 

T  5  5 

50 

50 

0 

0 

0 

R22 

T  6  2 

50 

50 

0 

0 

n 

R2  3 

T64 

50 

50 

0 

0 

6 

P24 

T  72 

50 

50 

0 

0 

o 

R  2  5 

T  £  0 

50 

50 

0 

0 

o 

R  2  6 

ZSU-23 

10 

50 

40 

0 

o 

R  2  7 

dummy 

20 

20 

20 

20 

2  C 

R  2  5 

dummy 

20 

20 

20 

20 

20 

R  2  9 

dummy 

20 

20 

20 

20 

20 

R  30 

S  A  -  1  4 

20 

20 

20 

20 

20 

R  3  1 

S  A  -  6 

20 

20 

20 

20 

2  C 

R  3  2 

S  A  -  7 

20 

20 

20 

20 

20 

R33 

s  A-e 

20 

20 

20 

20 

20 

R  3  4 

S  A-9 

20 

20 

20 

20 

20 

R  3  5 

S  A  -  1  1 

20 

20 

20 

20 

20 

R  3  6 

HOPLITE 

20 

20 

20 

20 

20 

P  3  7 

HIP-E 

20 

20 

20 

20 

20 

R  3  8 

HIND-D 

20 

20 

20 

20 

20 

R  3  9 

dummy 

20 

20 

20 

20 

20 

R  4  0 

dummy 

20 

20 

20 

20 

20 

R  4  1 

M  I  G  -  2  1 

20 

20 

20 

20 

20 

R  4  2 

LT  VEH  D 

20 

20 

20 

20 

20 

R  4  3 

HVY  arm  d 

20 

20 

20 

20 

20 

R  4  4 

LT  ARM  D 

20 

20 

20 

20 

20 

R  4  5 

DUMMY 

20 

20 

20 

20 

20 

R  4  6 

ACRV-2  CSC 

20 

20 

20 

20 

20 

R  4  7 

dummy 

20 

20 

20 

20 

20 

R  4  8 

DUMMY 

20 

20 

20 

20 

20 

R  4  9 

DUMMY 

20 

20 

20 

20 

2  0 

R  5  0 

DU*MY 

20 

20 

20 

20 

20 

R  5 1 

M082M 

20 

20 

20 

20 

20 

R  5  2 

Ml  20T 

20 

20 

20 

20 

20 

R  53 

dummy 

20 

20 

20 

20 

20 

R  54 

DU"MY 

20 

20 

20 

20 

20 

R  5  5 

DUMMY 

20 

20 

20 

20 

20 

R  5  6 

HI 22T/S 

20 

20 

20 

20 

20 

R  5  7 

H152T/S 

20 

20 

20 

20 

20 

R  5  3 

Li  2 2 T ♦ 

2  C 

20 

20 

20 

20 

R  5  9 

dummy 

20 

20 

20 

20 

20 

R  6  0 

DUMMY 

20 

20 

20 

20 

20 

DEEP 

0 

0 

0 

c 

c 

0 

c 

c 

c 

c 

0 

0 

0 

c 

c 

0 

0 

0 

0 

0 

0 

0 

0 

G 

c 

0 

0 

G 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

G 

0 

0 

0 

0 

c 

0 

0 

0 

c 

0 

c 

0 

0 

0 

c 

0 

0 

G 

0 


Figure  D-III-2. 


Labeled  Range  Distribution  (percent  of  conflicts) 


D-III-5 


CAA-D-84-14 


Table  D-III-2.  Range  Distribution  File  Organization 


Side  1,  Type  1 

Side  2  Type  1 
Side  2  Type  2 
Side  2  Type  3 
Thru 

Side  2  Type  60 

Side  1,  Type  2 

Side  2  Type  1 
Side  2  Type  2 
Side  2  Type  3 
Thru 

Side  2  Type  60 
Thru 

Side  1,  Type  60 

Side  2  Type  1 
Side  2  Type  2 
Side  2  Type  3 
Thru 

Side  2  Type  60 


Section  III.  OUTPUT 

D-III-6.  Figure  D-III-3  is  an  example  of  the  machine-readable  or  Combat 
Module  format  of  the  range  distribution  file  produced  by  H7AFP.870M- 
RANGE.  The  first  15  lines  of  the  file  distribute  the  duels  between  Side 
1,  type  1  and  Side  2,  types  1  through  60.  The  first  six  values  on  line  1 
are  the  percentage  of  duels  between  Side  1,  type  1  and  Side  2,  type  1 
distributed  to  each  of  the  six  range  bands.  The  subsequent  values  on 
line  1  are  for  Side  1,  type  1  versus  Side  2,  type  2  followed  by  Side  1, 
type  1  versys  Side  2,  type  3  and  Side  1,  type  1  versus  Side  2,  type  4. 

The  file  organization  is  identical  to  that  of  the  labeled  version  shown 
at  Figure  D-III-2. 
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20 
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90 

10 

0 

0 
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90 

10 

0 
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0 

90 

10 

0 

0 
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0 

40 

40 
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0 

40 

40 

20 

0 
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0 

40 

40 

20 

0 
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20 
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20 

20 

20 

20 

20 

0 

20 

20 

20 

20 

20 

0 

20 

20 

20 

20 

20 

0 

50 

50 

0 

0 

0 

0 

50 

50 

0 

0 

0 

Q 

50 

50 

0 

0 

0 

0 

50 

50 

0 

0 

0 

0 

50 

50 

0 

0 

0 

0 

10 

50 

40 

0 

0 

0 

20 

20 

20 

20 

20 

0 

20 

20 

20 

20 

20 

0 

20 

20 

20 

20 

20 

0 

20 

20 

20 

20 

20 

0 

20 

20 

20 

20 

20 

0 

20 

20 

20 

20 

20 

0 

20 

20 

20 

20 

20 

0 

20 

20 

20 

20 

20 

0 

20 

20 

20 

20 

20 

0 

20 

20 

20 

20 

20 

0 
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Figure  D-III-3.  Combat  Module  Format  Range  Distribution 
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D-III-7.  Utility  program  H7AFP .870H-RANGE  takes  as  input  the  Combat  Module 
format  version  of  the  range  distribution  file  and  creates  the  labeled 
version  illustrated  at  Figure  D-III-2. 


Section  IV.  RUNSTREAM 

D-III-8.  Figure  D-III-4  displays  a  sample  runstream  used  to  execute 
H7AFP .870M-RANGE  to  transform  the  range  distribution  file  from  labeled 
format  to  combat  module  format.  Note  that  the  element  name  for  file 
H7RNGDST.  must  be  changed  in  the  runstream  to  reflect  the  appropriate 
element  for  the  posture,  i.e.,  RAPD,  STATIC,  RADE,  or  BAPD.  Figure  D-III-5 
provides  an  overview  of  the  runstream  process.  H7AFP.RNGCHK  is  executed 
after  H7AFP.870M-RANGE  to  verify  that  the  percentage  of  conflicts 
distributed  across  the  six  ranges  total  to  unity.  Error  messages  will  show 
the  side  and  types  which  do  not  total  to  100  percent  t  .01.  Those  ranges 
must  be  corrected  or  the  AFP  Main  module  will  not  execute.  There  is  no 
message  if  all  ranges  are  correct.  The  last  section  of  this  runstream 
needs  the  range  distribution  elements  which  have  been  created  and  generates 
a  near-far  range  band  element  to  be  used  in  Basedata.  The  near  values  are 
the  closets  range,  across  all  postures,  at  which  the  weapon  type  will 
shoot.  The  far  value  are  the  farthest  ranges,  across  all  postures. 
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3  A  S  G  ,A  H?AFPFILES/XXX/XXX. 

S'  A  S  G  ,  T  A  F  P  1  . 
a  E  D  ,  £  I  A  F  Pi  . 

ADD  *H?RNGDST. LABEL- KAPD/H 
£  A  S  6  »  T  0  A  F  P  1  . 
a  X  Q  T  *h?AFP.87CM-RAN6E 
S.  A  S  6  ,  T  11  . 
a  E  D  CAFP1  .  , 1 1 . 

SXQT  *  H  7  A  F  P  .RNIGCHK 
6  C  6  C 

£  E  D  0AFP1  .,*H7RNGDST.RAPD-DEEP/H 
iED,  &I  AFP1  . 

ADD  *H7FNGDST  .LABEL-STATIC /H 
£  A  S  G  ♦  T  0  A  F  P  1  . 

SXQT  *H7A FP  .£7GM-RA\£E 
-A  SG , T  11. 
a  ED  CAFPl.fll. 
a  X  Q  T  *H7AFP .  R  N  G  C  H  K 
60  6  C 

iED  0AFP1 .,*H7RNGDST.STATTC-DEEF/H 
a  E  D  ,  C,  I  A  F  P  1  . 

ADD  *H7ftNi6DST  .LASEL-ftADE/H 
a A  S  G  ,  T  OAFPI. 
aiXGT  *n7AFP.5  7GV-RANGF 
£  A  S  G , T  11. 

£  E  D  C  A  F  P  1  .  ,  1  1  . 

XQT  *H7A  FP  .  RNbCHK 
6  0  6  C 

i E  D  OAFPI  .  , *H?R\GDST .RADE-DEfcp/H 
£  E  D  ,  G  I  A  F  P  1  . 

ADD  *H7RNGDST.LA5EL-BAPD/H 
a  A  c  g  ,  T  G  A  F  P  1  . 

£  X  T  *  H  7  A  F  P  .  8  7  u  v  -  R  A  N  G  E 

iAjb)T  11. 

BED  0  A  F  P 1  . , 1 1  . 

EXIT  *H7AFP.RNGCHK 
6  0  6  0 

c  ED  CAFP1.,*H7RN'GDST.PAPD-DEEP/H 
o  E  D  ,  G  I  A  F  P  1  . 

ADD  H7AFFFILES.INVH«£.0/RAPD 
a  A  S  G  ,  T  A  F  P  0  . 

£  E  D  ,  G  I  A  F  P  2  . 

ADD  *H 7RNCC S T . R A PD-D E FP / H 
ADD  *H7RNGDST.oAPD-DfcEP/H 
ADD  *H7PNGDST .RADE-DEEP/h 
ADD  *H7fiNGDST  .STATI  C-DEFP/H 
£  X  Q  T  *h7AFP.S7GFNGNF 
a  ED  OAFPI.  ,H7AFpFILES.NEAR-FA» 


Figure  D-III-4.  Convert  Labeled  Range  Distribution 
to  Combat  Module  Format 
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(H7RNGDST. 
labeled 
element 


H7AFP. 

870M-RANGE 


(H7RNGDST. 
element 


Figure  D-III-5.  Convert  Labeled  Range  Distribution  to 
Combat  Module  Format,  I/O  Flow 


D-III-9.  Figure  D-III-6  is  an  example  of  a  runstream  used  to  convert  a 
range  distribution  file  from  Combat  Module  format  to  a  labeled  format. 
This  runstream  need  not  be  used  if  the  labeled  versions  of  the  file  are 
maintained.  Figure  D-III-7  illustrates  the  runstream  process. 

a.QUAL  UNCLASSIFIED 
aASb,A  H7AF FF I L ES / X XX / X XX . 
a  A  S  6  ,  T  A  F  P  1  . 
a  E  D  ,  G  I  A  F  P  1  . 

ADD  h?A  F  P  F  I  L  E  S  .  I  N  VHi*  E  C  /  P  A  P  D 
i  A  S  6  ,  T  A  F  P  2  . 
aED,GI  A  F  F  2 . 

ADD  *H 7RNGDST  .  RAPD-DE EP/ H 

i  A  S  G  ,  T  CAFP1. 

al  X  0  T  *H7aFP.870H-RANGE 

iED  OAFP1  .  ,  +  H7RNGDST.LABELED-cAf'D/H 


Figure  D-III-6. 


Convert  Combat  Module  Range  Distribution 
to  Labeled  Format 


H7RNGDST. 

labeled 

element 


Figure  D-III-7.  Convert  Combat  Module  Range  Distribution 
to  Labeled  Format,  I/O  Flow 
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Section  V.  PROGRAM 

D-III-10.  The  source  program  used  to  convert  from  labeled  format  to  Combat 
Module  format  is  H7AFP.M-RANGE-DIST,  and  the  absolute  program  is 
H7AFP.870M-RANGE .  This  program  reads  the  labeled  range  distribution  file, 
strips  the  labels,  reformats  the  ranges  to  four  groups  per  line,  and  writes 
a  file  which  can  be  used  for  the  H7AFP .RNGDSTGEN  preprocessor  program.  If 
a  range  distribution  is  zero  (0),  the  character  "0"  is  placed  in  what  would 
normally  be  the  10s  position.  This  is  because  only  three  positions  are 
allowed  per  range  value.  If  the  value  is  "100,"  and  if  the  preceding  "0" 
was  right-justified,  the  result  would  look  like  one  value  0100.  With  a 
shifted  zero,  the  result  looks  like  "0  100."  Figure  D-III-8  contains  a 
flow  diagram  of  the  basic  logic  for  H7AFP.M-RANGE-DIST.  Tables  D-III-3  and 
D-III-4  show  the  file  layouts  labeled  and  Combat  Module  formats. 


Perform 
read-table  1 
2  times  * 


Read-table-1 


Recenter  zero 
values  from 
0“  to  "  0  " 


Wri te-record 


Move-ranges 


Perform 

read-table-1 

~T~ 


Move  six 
range  values  to 
output  record 


*These  numbers  are  hardwired 


Figure  D-III-8.  Flow  Diagram  for  the  Program  to  Convert 
Labeled  RANGE  Distribution  File  to  Combat  Module  Format 
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Table  D-III-3.  Labeled  Range  Distribution  Format 


Columns 

Variable 

Data  description 

Format 

1-3 

WS-SIDE1-NUM 

AFP  number  of  Side  1  type 

3X 

5-16 

WS-SIDE1  NAME 

Name  of  Side  1  type 

12X 

18-20 

WS-SIDE2-NUM 

AFP  number  of  Side  2  type 

3X 

22-24 

WS -SIDE 2 -NAME 

Name  of  Side  2  type 

12X 

26-28 

WS-RANGE1 

Percent  conflicts  at  250  m 

3X 

33-35 

WS-RANGE2 

Percent  conflicts  at  500  m 

3X 

40-42 

WS-RANGE3 

Percent  conflicts  at  1,000  m 

3X 

47-49 

WS-RANGE4 

Percent  conflicts  at  1,500  m 

3X 

54-56 

WS-RANGE5 

Percent  conflicts  at  2,500  m 

3X 

61-63 

WS-RANGE6 

Percent  conflicts  deep  range 

3X 

Table  D-III-4.  Combat  Module  Format  Range  Distribution 


Column 

Variable 

Data  description 

Format 

1-3 

RANGE1  (1) 

Percent  conflicts  at  250  m 

3X 

4-6 

RANGE2(1) 

Percent  conflicts  at  500  m 

3X 

7-9 

RANGE3  (1) 

Percent  conflicts  at  1,000  m 

3X 

10-12 

RANGE4  (1) 

Percent  conflicts  at  1,500  m 

3X 

13-15 

RANGES  (1) 

Percent  conflicts  at  2,500  m 

3X 

16-18 

RANGE6  (1) 

Percent  conflicts  at  deep  range 

3X 

19-21 

RANGE1  (2) 

Percent  conflicts  at  250m 

3X 

22-24 

RANGE 2  (2) 

Percent  conflicts  at  500  m 

3X 

25-27 

RANGE3  (2) 

Percent  conflicts  at  1,000  m 

3X 

28-30 

RANGE4  (2) 

Percent  conflicts  at  1,500  m 

3X 

31-33 

RANGE5  (2) 

Percent  conflicts  at  2,500  m 

3X 

34-36 

RANGE6  (2) 

Percent  conflicts  at  deep  range 

3X 

37-39 

RANGE1  (3) 

Percent  conflicts  at  250m 

3X 

40-42 

RANGE2  (3) 

Percent  conflicts  at  500  m 

3X 

43-45 

RANGE3  (3) 

Percent  conflicts  at  1,000  m 

3X 

46-48 

RANGE4  (3) 

Percent  conflicts  at  1,500  m 

3X 

49-51 

RANGE5  (3) 

Percent  conflicts  at  2,500  m 

3X 

52-54 

RANGE6  (3) 

Percent  conflicts  at  deep  range 

3X 

55-57 

RANGE1  (4) 

Percent  conflicts  at  250m 

3X 

58-60 

RANGE 2  (4) 

Percent  conflicts  at  500  m 

3X 

61-63 

RANGE3  (4) 

Percent  conflicts  at  1,000  m 

3X 

64-67 

RANGE4  (4) 

Percent  conflicts  at  1,500  m 

3X 

68-70 

RANGE5  (4) 

Percent  conflicts  at  2,500  m 

3X 

71-73 

RANGE6  (4) 

Percent  conflicts  at  deep  range 

3X 
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D-III-11.  The  source  program  to  convert  from  Combat  Module  format  to 
labeled  is  H7AFP.H-RNAGE-DIST,  and  the  absolute  program  is  H7AFP. 870- 
H-RANGE.  This  program  reads  the  inventory  element  in  H7AFPFILES  to  get  the 
oide  1  and  bide  2  weapon  system  names.  The  ranges  are  regrouped  into  60 
duels  (Side  1  type  1  versus  Side  2  types  1-60)  for  each  of  the  Side  1  types. 
Figure  D-III-9  shows  the  flow  diagram  for  H7AFP .H-RANGE-DIST. 


^  Start  J 


Read 

inventory 

file 


1 

f 

Fill  table 
with  Blue, 

Red  names 

1 

Perform 

new-shooter 

60  times* 

C  E0J  ) 

*This  number  is  hardwired. 


New-shooter 


Perform 
read-record 
15  times  * 


Write 

output 

footincs 


Read-record 


Move- ranges 


Move  Red  name, 
num  to  output 
move  range 
values  to  output 


Wri  te 
output 
record 


Figure  D-III-9.  Flow  Diagram  for  the  Program  to  Convert  Combat  Module 
Format  Range  Distribution  to  Labeled  Format 
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ANNEX  IV  TO  APPENDIX  D 
AFP  TARGET  CASUALTY  AND  CATEGORY  FILE 


Section  I.  OVERVIEW 

D-IV-I.  This  annex  describes  the  personnel  casualty  file  (PCAS)  which  is 
used  to  compute  the  personnel  losses  incurred  when  a  weapon  type  is  killed. 
The  data  is  in  two  sections.  The  first  section  lists  the  categories  to 
which  each  Side  1  and  Side  2  type  belong.  The  second  section  lists  the 
number  of  personnel  credited  as  killed,  per  shooter  target  combination. 

Note  that  for  super  troop  items  these  values  have  been  multiplied  by  the 
super  troop  factor. 


Section  II.  INPUT 

D-IV-2.  The  labeled  PCAS  file  first  displays  the  total  number  of  target 
types  and  the  total  number  of  shooter  types  for  Side  1  and  Side  2. 


SIDE  1  TARGET  CATEGORIES  A  SIDE  2  TARGET  CATEGORIES  4 
SHOOTER  CATEGORIES  I7  SHOOTER  CATEGORIES  13 

Figure  D-IV-1.  Labeled  PCAS,  Target,  and  Shooter  Types 


a.  The  60  Side  1  types  are  shown  next  with  their  corresponding  AFP 
number,  name,  target  type,  and  shooter  type  (Figure  D-IV-2). 

b.  The  60  Side  2  types  follow,  with  their  AFP  number,  names,  target 
types,  and  shooter  types  (Figure  D-IV-3). 

c.  The  rest  of  the  file  has  the  crew  losses  attributable  to  mobility/- 
firepower  kills  for  every  shooter-target  combination.  The  first  Side  1 
type  as  a  shooter  versus  each  of  the  60  Side  2  types  as  a  target,  with  the 
resultant  casualties,  is  shown  in  Figure  D-IV-4. 

d.  Side  1,  type  2  versus  Side  2,  types  1  through  60  casualties  are 
next,  through  Side  1,  type  60.  Side  2  as  a  shooter  follows. 
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IDE  1 

F  p  S 

SYSTEM 

TARGET 

CATEGORY 

SHCCT2  R 
CATEGORY 

301 

cTRP  DEEP 

1 

1  3 

B  0  2 

M-  1  6 

1 

1 

903 

7 . 6  2  G  M 

1 

1 

904 

MG5QGM 

1 

1 

BQ5 

K2C3 

1 

1 

BOo 

S  A  * 

1 

1 

F  07 

Ml  13 

2 

2 

3  0  o 

9CMMRR 

1 

3 

F  0  9 

1  0  6  M  P  R 

2 

7 

BIO 

dummy 

2 

*7 

3  1  1 

DRAGON 

1 

3 

512 

I  TV-2 

2 

7 

913 

V  I  P  E  R 

1 

3 

914 

L  A  * 

1 

7 

815 

IT  V-1 

2 

7 

9  1  6 

I  F  V 

2 

4 

317 

CFV 

P 

4 

B  1  c 

1 / 4  T  TO*  I 

2 

7 

p  1  9 

m  4  5  A  5 

7 

C 

9  20 

Ml  El 

7 

C 

B  2  1 

y.  5  5 1 

3 

c 

322 

M  6  C  A  3 

7 

r 

F23 

y  i 

7 

5 

B  2  4 

M  6  0  A  1 

7 

c 

923 

M  t  C  A  2 

7 

s 

3  26 

D  I  VA  D 

2 

6 

92  7 

VULC  1 

2 

a 

926 

1 / 4T  TO* I I 

2 

7 

B  2  v 

H  M  V  W  T  0  W  I 

2 

3 

330 

F  A  V  TOW  I 

2 

7 

B  2  1 

STINGER 

1 

7 

9  7  2 

CHAP1 

2 

7 

B  3  3 

REDEYE 

1 

7 

934 

FAV  TOWII 

2 

7 

935 

LAV 25  TOWI 

2 

4 

BU 

A  H  -  1  S 

4 

Q 

B  7  7 

A  H  -6  4 

/ 

s 

6 

3  3  * 

A  H  - 1  G 

4 

P 

o  *  9 

M  1  1  3  W  Ml? 

4 

? 

9  4C 

H  M  V  *  Ml? 

4 

2 

84  1 

A  1  C 

4 

9 

B42 

LT  VFH  D 

2 

1  3 

8  3 

H V  Y  ARM  D 

7 

1  3 

344 

L  T  ARM  J 

2 

1  3 

345 

UH -6  CA 

4 

1  2 

3  4  o 

C  E  V 

7 

1  2 

B  4  7 

U  H  -  1  H 

4 

12 

3  <♦  i 

OH-58 

4 

1  2 

3  4  9 

U  C  3  V 

2 

1  2 

B  r  0 

M  G  8 1  M 

2 

1  C 

3  51 

M,  0  £  1  S 

1  G 

B  5  2 

M  4  ,  2  M 

10 

2  5  3 

M  4 . 2  S 

2 

1  r 

3  54 

M  0  6  C 

“5 

1C 

355 

n-1  55T 

2 

11 

35c 

Hi  55  S 

L 

1 1 

357 

ri  2  C  3  S 

~> 

1 1 

3  5-5 

MLRS 

2 

1 1 

8  5  9 

H  -  1  C  c  T 

-> 

c 

1 1 

8  63 

n  -  2  C  3  T 

2 

1  1 

Figure  D-IV-2.  Labeled  PCAS,  Side  1  Categories 


D-IV-2 


CAA-D-84-14 


afp  a 
R  0 1 
R02 
R  03 
R  04 
R  C  5 
R  06 
R  0  7 
R  05 
R  09 
RIO 
R  1  1 
R  1  2 
R  1  3 
R  1  4 
R  1  5 
R  1  6 
R  1  7 
R  1  3 
R  1  9 
R  2  G 
R  21 
R  2  2 
R  2  3 
R  2  4 
R  2  5 
R  2d 

R  R  7 

R  2.3 
R  2  9 
R  30 
R  7  1 
R!2 
R  3  3 
R  3  4 
R  35 
R  3  t 
R  37 
R 

R  39 
RAC 
R  ^  1 
R  42 
R  4  3 
R  4  4 
R  4  5 
R  4  c 
R  4  7 
R  48 
R  49 
R  20 
R  5  1 
R  5  2 
R  c  3 
R  5u 
R  55 
R  5  t 
R  5  7 
R  55 
R  5  9 
RdG 


SYSTEM 

TARGET 

CATEGORY 

SHOOTER 

category 

RTRP  DEEP 

1 

13 

AK  S- 74 

1 

1 

7.6CGM 

1 

1 

RSNI PE 

1 

1 

GR  EN3C 

1 

1 

3  R  D  M  -  2 

2 

2 

BTR-60 

2 

2 

BMP  -  R 

<- 

2 

DUMMY 

0 

DUMMY 

2 

0 

SPG-9 

1 

3 

RPG-1  6 

1 

7 

AT- 5 

c 

7 

A  T  -  7 

1 

3 

RPG  7 

1 

7 

6  M  P  2  M 

2 

4 

DUMMY 

-> 

C 

0 

DUMMY 

2 

0 

DUMMY 

2 

n 

DUMMY 

? 

0 

T  5  5 

3 

c 

T  6  2 

3 

5 

T  6  4 

7 

c 

T  7  2 

p 

T8  0 

3 

S 

ZSU-23 

2 

6 

DUMMY 

2 

n 

dummy 

2 

r 

D U MM  Y 

2 

n 

S  A  -  1  4 

1 

7 

S  A  -6 

1 2 

7 

S  A-7 

1 

7 

S  A  -  8 

2 

7 

S  A  -9 

2 

7 

S  A  -  1  1 

L 

7 

HOPL  ITE 

u 

P 

H  I  c  -  E 

i 

Q 

H  I  N  D  -  D 

4 

C 

DUMMY 

4 

n 

DUMMY 

4 

n 

N I  G  -  2 1 

4 

0 

LT  VEH  D 

2 

1  3 

HV  Y  ARM  C 

3 

1  3 

L  T  ARM  D 

4 

1  3 

DU  VM  Y 

4 

0 

ACRV-2  CSC 

2 

1  2 

D  U  y  M  Y 

2 

n 

u 

DU MM  Y 

2 

n 

DU  MM  Y 

2 

0 

DU  VM  Y 

2 

0 

M  C  5  2  M 

? 

1  0 

Ml  20T 

2 

1C 

D  U  V  M  Y 

<_ 

0 

DU  MM  Y 

2 

n 

\J 

DUMMY 

2 

0 

HI 22T/S 

2 

1 1 

Hi 52T/S 

2 

1 1 

Li  22  T  + 

4 

1 1 

DUMMY 

2 

n 

D  U  M  M  Y 

2 

n. 

Figure  D-IV-3.  Labeled  PCAS,  Side  2  Categories 
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SIDE  1  (SHOOTER)  BTRF  DFEP  AFP  P  BO! 

SIDE!  (TARGET)  CREW  LOSSES  ATTRIBUTABLE 

SYSTEM  AFP  it  MOBILITY/FIREPCUER  KILLS 


RTRP  DEEP 

R  0  1 

10.00 

A  K  S  -  7  A 

R  C  2 
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7  •  6  0  U  ^ 

P  0  3 
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3.CC 

DU  Y 

R  C  9 

0.00 

DU  Y 
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1  .  GO 

RPG-16 
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1  .  oc 
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PI  3 

2 . 00 

A  T  -  7 

F  1  4 

1  .00 
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1  .00 

3  "1  P  2  M 

R  1  6 

2.00 

DU  VM  v 

P  1  7 

1  .  OC 

DU  VM  Y 

P  1  R 

1  .00 

D  U  S1 M  Y 

R  1  9 

1 .00 

D  U  M  M  Y 

R  2  C 

1  .00 

15  5 

R  2  1 

2  .  CC 

T  6  ? 

R  2  2 

2  .  CO 
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2  .  CC 

7  7  2 
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2.  CO 

7  9  C 
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2  .CO 

S  ^  -  1  1 

C  7  5 

2  .  CC 

HOPt  ITE 

R36 

2.00 
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R  42 

20. CC 

H  V  Y  ARP  D 
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Section  III.  OUTPUT 

D-IV-3.  Figure  D-IV-5  illustrates  the  first  72  lines  of  a  Combat  Module 
format  PCAS  element. 

a.  Lines  1  through  11  are  related  to  category  types  of  the  60  Side  1 
and  60  Side  2  weapon  types.  Data  on  line  1  is  not  used:  However,  because 
this  file  is  read  with  an  unformatted  read,  there  must  be  5  digits  on  line 
1.  The  second  digit  is  the  number  of  Side  1  target  types.  The  third  digit 
is  the  number  of  Side  2  target  types.  The  fourth  digit  is  the  number  of 
Side  1  shooter  types.  The  fifth  digit  is  the  number  of  Side  2  shooter 
types. 

b.  Lines  2  and  3  have  60  numbers  which  are  the  target  types  of  the  60 
Side  1  items. 

c.  Lines  4  through  6  are  the  60  shooter  types  of  the  Side  1  items. 

d.  Lines  7  and  8  are  the  60  target  types  of  the  Side  2  items. 

e.  Lines  9  through  11  are  the  60  shooter  types  of  the  Side  2  items. 

f.  Lines  12  through  the  end  of  the  file  have  three  columns  of  numbers, 
but  only  the  last  column  is  used.  That  column  is  the  number  of  personnel 
credited  as  killed  to  two  decimal  places.  Therefore,  the  1000  in  the  third 
column  on  line  12  means  when  B01  kills  one  R01,  10.00  people  are  killed. 

The  following  59  lines  show  B01  versus  R02  through  R60.  Starting  with  line 
72,  B02  versus  R01  through  R60  personnel  casualties  are  listed,  then  the 
rest  of  the  Side  1  types  through  B60.  Side  2  as  a  shooter  follows:  R01 
killing  B01  through  B60  until  the  last  line  which  is  R60  killing  B60. 
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1  4  4  13  13 

111111212212112222333333322222 
121224444442324344222222222222 
13  111112333333334435555555 
6  6  3  3  3  7  7  7  3  4  S  8  8  2  2  9  13  13  13  12  12  12  12  12  10 
10  10  10  10  11  11  11  11  11  11 

111112222211211222223333322221 
212224444442324222222222222222 
13  11112220033333400005555' 
6000777777888009  13  13  13  0  12  0000 
10  10  0  0  0  11  11  11  0  0 
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Figure  D-IV-5.  Combat  Module  Format  PCAS 
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Section  IV.  RUNSTREAM 


D-IV-4.  There  is  a  program  to  convert  labeled  PCAS  data  to  Combat  Module 
format,  and  another  program  to  convert  Combat  Module  format  to  labeled  PCAS 
format.  Because  of  the  repetitive  structure,  it  is  generally  easier  to 
change  the  personnel  losses  in  the  Combat  Module  format  using  the  system 
EDITOR.  Unique  type-on-type  losses  which  involve  only  one  or  a  few 
engagements  may  be  easier  to  change  in  the  labeled  format. 

a.  The  runstream  to  convert  labeled  to  Combat  Module  format  is  in 
Figure  D-IV-6. 


a  A  S  G  ,  T  A  F  P 1  . 

■iASG,T  OAFP1. 

•i  E  0  ,  I  Q  A  F  P  1  . 

ADD  *H7PCAS  .LABFLED/H 
EX  I 

QT  *h7AFP.S7CM-PCAE 
iED  CAFP1.,*H7PCAS.H 


Figure  D-IV-6.  PCAS  Runstream  to  Convert  Labeled  to  Combat 

Module  Format 


b.  The  runstream  to  convert  Combat  Module  format  to  labeled  is  in 
Figure  D-IV-7. 


LASG.A  H?AFnFlLES/XXX/XXX. 
a  A  s  G  ,  T  A  F  P 1  . 
a  A  S  G  ,  T  AFP?. 

T  A  S  G  t  T  0  A  F  P  1  . 

*  E  D  ,  I  C  A  F  P  1  . 

ADD  M7AFPFILES.INVHM£C/PAPi> 

E  X  I 

V E  D  ,  I  Q  AFP?. 

ADD  *  H  7  P  C  A  S  .H 
^  X  I 

X  Q  T  *  H  7  A  F  P  .  8  7  Jh-P  C  A  S 
xED  CAFP1 .»*H7PCAS.LA9ELED/H 


Figure  D-IV-7.  PCAS  Runstream  to  Convert  Combat  Module 

Format  to  Labeled 
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Section  V. 


PROGRAMS 


D-IV-5.  The  program  to  convert  labeled  PCAS  data  to  Combat  Module  format 
is  H7AFP.M-PCAS.  The  absolute  program  is  H7AFP.870M-PCAS.  Although  the 
labeled  format  has  only  the  mobility  firepower  kills,  the  Combat  Module 
format  must  have  mobility  kills  and  firepower  kills  as  well  as  mobility/- 
firepower  kills.  The  program  which  processes  the  PCAS  data  does  not  use 
the  mobility  or  firepower  information;  however,  because  of  the  unformatted 
read  in  the  program,  there  must  be  two  data  items  before  the  mobil ity/f ire- 
power  kill  is  read.  Therefore,  the  mobi 1 ity/f irepower  kill  is  moved  three 
times  to  the  Combat  Module  format,  giving  mobility,  firepower,  and 
mobi 1 ity/f irepower  the  same  value.  The  I/O  flow  for  H7AFP.M-PCAS  and  its 
flowchart  are  in  Figures  D-IV-8  and  D-IV-9. 


D-IV-6.  The  program  to  convert  Combat  Module  format  PCAS  to  labeled  format 
is  H7AFP.M-PCAS.  The  absolute  program  is  H7AFP.870M-PCAS.  The  mobility 
kills  and  the  firepower  kills  (the  first  and  second  column  starting  on  line 
12)  are  dropped  because  that  information  is  not  used.  The  labeled  format 
shows  only  mobility/firepower  kills.  The  I/O  flow  for  H7AFP.H-PCAS  and  its 
flowchart  are  Figures  D-IV-10  and  D-IV-11. 


(H7PCAS. 
labeled 
element 


* 


H7AFP .870M-PCAS 


(H7PCAS. 
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Figure  D-IV-8.  H7AFP.M-PCAS  I/O  Flow 
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Figure  D-IV-9.  H7AFP.M-PCAS  Flowchart 
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Figure  D-IV-10. 


H7AFP.H-PCAS  I/O  Flow 
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*These  numbers  are  hardwired 


Figure  D-IV-11.  H7AFP.H-PCAS  Flowchart 
(page  1  of  2  pages) 
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Figure  D-IV-11.  H7AFP.H-PCAS  Flowchart 
(page  2  of  2  pages) 
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ANNEX  V  TO  APPENDIX  D 
AFP  ENGAGEMENT  CHARACTERISTICS  FILE 


Section  I.  OVERVIEW 

D-V-l.  This  annex  describes  the  engagement  input  to  the  Combat  Module. 

The  engagement  file  contains  the  participation,  duration  of  engagement, 
number  of  sites  (default  value  of  1.00,  same  as  ADDITIONALS) ,  and  maximum 
number  of  conflicts  for  each  of  the  60  Side  1  versus  60  Side  2  conflicts. 
There  is  a  program  to  convert  a  labeled  version  of  the  engagement  data  to 
Combat  Module  format  and  a  program  to  convert  the  module  format  to  labeled. 
Because  of  the  repetitive  nature  of  the  file,  changes  can  easily  be  made  to 
the  Combat  Module  format  using  the  system  EDITOR.  For  specific  type  on 
type  changes,  it  may  be  clearer  to  change  the  labeled  version.  The  option 
of  converting  from  one  format  to  the  other  is  available  to  be  used  as 
required.  Generally,  only  one  element  in  the  engagement  file  is  needed  for 
an  AFP  run,  i.e.,  no  changes  by  posture  or  environment. 


Section  II.  INPUT 


D-V-2.  The  engagement  file  consists  of  five  columns  of  numbers: 


Column  1  -  fraction  of  Side  1  in  each  engagement. 
Column  2  -  fraction  of  Side  2  in  each  engagement. 
Column  3  -  duration  of  engagement  in  minutes. 
Column  4  -  number  of  sites. 


Column  5  -  maximum  number  of  conflicts. 

Table  D-V-l  depicts  the  organization  of  the  file.  Figure  D-V-l  shows 
sample  lines  of  a  labeled  engagement  file.  Figure  D-V-2  shows  sample  lines 
of  a  Combat  Module  engagement  file. 
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Table  D-V-l.  Engagement  File  Organization 


Side  1 

Type  1 
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Side  2 
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vs 
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SIDE  1  SYSTEM: 

8TRP  DEEP 

AFP  tt 

BC1 

SIDE2 

SIDE1  X 

SIDE2 

X 

DURATION 

n  of 

MAX  n 

SYSTEM 

afp  n 

PARTICIPATION 

PARTICIPATION 

(IN  MIN) 

SITES 

CON  FLI CT 

RTRP  DEEP 

R  0 1 

100 

ICO 

2.01 

1.00 

4.00 

AKS-74 

RC2 

100 

100 

2.01 

1.00 

4.00 

7.60GM 

R  C  3 

ICO 

100 

2.01 

1.00 

4.00 

RSNI PE 

R  C 

100 

100 

2.01 

1.00 

4  •  Q  0 

GREN30 

RC5 

100 

100 

2.01 

1.00 

4.00 

3RDM-2 

R  06 

100 

100 

2.01 

1 .00 

4.00 

BTR-60 

R  07 

ICC 

100 

2.01 

1.00 

4.00 

BMP-R 

R  08 

100 

100 

2.01 

1.00 

4.00 

D  U  MM  Y 

R  09 

ICO 

100 

2.01 

1.00 

4.00 

DUMMY 

RIO 

100 

100 

2.01 

1.00 

4.00 

SPG-9 

R  1 1 

100 

100 

2.01 

1 .00 

4.00 

RPG-16 

R  1  2 

100 

100 

2.01 

1.00 

4.00 

A  T  -  5 

R  1  3 

100 

100 

2.01 

1.00 

4.00 

A  T  -  7 

R  1  4 

100 

100 

2.01 

1.00 

4.00 

RPG  7 

R  1  5 

100 

100 

2.01 

1.00 

4.00 

BMP2M 

R 1  6 

100 

100 

2.01 

1.00 

4.00 

DUMMY 

R  1  7 

ICO 

100 

2.01 

1 .00 

4.00 

D U MM  Y 

R  1  8 

1  0  Q 

100 

2.01 

1.00 

4.00 

D  U  WM  Y 

R  19 

100 

ICO 

2.01 

1.00 

4.00 

DUMM  y 

R  2  0 

100 

100 

2.01 

1.00 

4.00 

T55 

R  21 

100 

ICO 

2.01 

1.00 

4.00 

T62 

R22 

100 

100 

2.01 

1.00 

4.00 

T6  4 

R  2  3 

100 

100 

2.01 

1.00 

4.00 

T72 

R24 

100 

100 

2.01 

1.00 

4.00 

T80 

R  2  5 

100 

1  0  G 

2. Cl 

1.00 

4.00 

ZSU-23 

R  26 

100 

100 

2. Cl 

1.00 

4.00 

DUMM  Y 

R27 

ICO 

100 

2.01 

1 .00 

4.00 

DUMMY 

R  28 
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2.01 

1.00 

4.00 

DUMM  Y 

R  29 
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1.00 

4.00 

SA-1  4 

R  3  Q 

1  OQ 
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2.01 

1.00 

4.00 

S  A-6 
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4.00 
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1  OG 
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4.00 
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R  3  3 
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1.00 

4.00 

S  A  -9 
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2.01 

1.00 

4.00 
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1.00 
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Figure  D-V-l.  Labeled  Engagement  File 
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Figure  D-V-2.  Combat  Module  Format  Engagement  File 
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Section  III.  OUTPUT 

D-V-3.  Both  the  labeled  and  the  Combat  Module  formats  were  described  in 
Section  II. 


Section  IV.  RUNSTREAMS 

D-V-4.  The  I/O  flow  of  the  process  to  convert  labeled  to  Combat  Module 
format  is  shown  in  Figure  D-V-3.  The  runstream  is  shown  in  Figure  D-V-4. 


(Labeled 
engage 
file 


* 


H7AFP.870M-engage 


H7engage 


Figure  D-V-3.  Labeled  to  Combat  Module  Format  I/O  Flow 


A  S  G  i  T 

A  F  P  1  . 

x  A  S  6  ,  T 

0  A  f  P  1  . 

E  D  i  IQ 

A  F  P  1  . 

ADD  *H7EKGAGE 

b  XI 

iXQf  *h7AFP.67GK -ENGAGE 
"ED  CAFP1  .,  *  H  7  E  f  GAGE.H 


Figure  D-V-4.  Labeled  to  Combat  Module  Format  Runstream 
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D-V-5.  The  I/O  flow  of  the  process  to  convert  module  format  to  labeled  is 
shown  in  Figure  D-V-5.  Weapon  system  names  from  the  H7AFPFILES. INVENTORY 
element  are  used  to  label  the  H7ENGAGE  element.  The  runstrearn  is  shown  in 
Figure  D-V-6. 


Figure  D-V-5.  Combat  Module  Format  To  Labeled  I/O  Flow 


ji  A  S  G  ,  A  H7AFPFILES/XXX/XXX. 
i'  A  ?  G  ,  T  AF  PI  . 

..  A  S  G  ,  T  A  F  P  2  . 

ED  ,  S  I  A  F  PI  . 

ADD  H?AFPFILES.INVH^in/PAPD 
v  E  D  ,  G  I  A  f  P  2  . 

ADD  *H7E\GAGE.H 
a  A  SG  ,  T  OA  FP  1  . 

*  X  0 T  *H7AFP.57uH-ENGAGE 
G  E  D  CAFP1  .  ,  *H7£f«GA6E.LAFtLED/H 


Figure  D-V-6.  Combat  Module  Format  to  Labeled  Runstrearn 
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Section  V.  PROGRAMS 

D-V-6.  The  program  which  converts  the  labeled  format  to  Combat  Module 
format  is  H7AFP .M-ENGAGE .  The  absolute  program  is  H7AFP .870M-ENGAGE .  The 
program  I/O  flow  is  the  same  as  Figure  D-V-3.  The  program  flowchart  is  in 
Figure  D-V-7. 


*Read  past  heading 


Figure  D-V-7.  H7AFP. M-ENGAGE  Flow  Chart 


D-V-7.  The  program  which  converts  the  Combat  Module  format  to  labeled 
format  is  H7AFP .H-ENGAGE .  The  absolute  program  is  H7AFP .870H-ENGAGE .  The 
program  reads  weapon  system  names  from  the  inventory  file  and  labels  the 
engagement  data.  The  program  I/O  flow  is  the  same  as  Figure  D-V-5.  The 
program  flowchart  is  in  Figure  D-V-8. 
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Figure  D-V-8.  H7AFP.H-ENGAGE  Flow  Chart 
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ANNEX  VI  TO  APPENDIX  D 
AFP  SSPK  FILE 


Section  I.  OVERVIEW 

D-VI-1.  This  annex  describes  the  process  by  which  the  SSPK  values  from 
AMMSA/BRL  are  modified  for  the  AFP  Combat  Module.  There  are  two  pointer 
files,  one  for  Side  1  (Blue)  weapon  types  and  one  for  Side  2  (Red)  weapon 
types.  These  pointer  files  have  shooter/target  matrices  which,  for  every 
shooter/target  combination  have:  a  pointer  to  the  open  SSPK  value,  a 
pointer  to  the  defilade  SSPK  value,  a  moving  target  degradation  pointer,  a 
moving  firer  degradation  pointer,  and  a  night  degradation  factor.  The 
pointers  "point"  to  lines  in  other  files  which  contain  the  actual  values  to 
be  used.  Lines  in  H7AFPPK  contain  the  SSPK  values  for  stationary  firers 
and  stationary  targets  in  the  open  and  in  defilade.  H7M0VETGT  has 
degradation  factors  which  are  multiplied  against  the  SSPK  values  if  the 
environmental  conditions  call  for  a  moving  target.  H7M0VEFIRER  has 
degradation  factors  which  are  multiplied  against  the  SSPK  values  if 
environmental  conditions  call  for  a  moving  firer.  After  all  degradation 
factors  have  been  taken  into  account,  a  modified  SSPK  for  each 
shooter/target  combination  is  generated.  Figure  D-VI-1  illustrates  the  I/O 
flow  of  the  SSPK  generation  process.  The  program  H7AFP.M-SSPK  reads  the 
above  mentioned  files  and  generates  a  Combat  Module  format  modified  SSPK 
file  and  a  labeled  format  file. 


Section  II.  INPUT 

D-VI-2.  There  are  two  labeled  SSPK  pointer  elements,  H7AFPFILES. BPOINT  and 
H7AFPF I LES. RPOINT.  The  BPOINT  element  shows  Blue  weapon  types  as  shooters 
versus  the  Red  weapon  type  targets.  RPOINT  shows  Red  as  the  shooters.  The 
logical  organization  (Table  D-VI-1)  is  the  same  for  both  BPOINT  and  RPOINT. 
An  example  page  from  BPOINT  is  in  Figure  D-VI-2.  The  following  information 
is  in  the  pointer  elements: 

a.  The  shooter  name  and  AFP  number. 

b.  The  weapon  used  by  that  shooter  against  each  target. 

c.  The  ammunition  used  by  the  weapon. 

d.  The  target  name  and  AFP  number. 

e.  Pointer  to  the  SSPK  for  conflicts  in  the  open. 

f.  Pointer  to  the  moving  target  degradation  factor. 

g.  Pointer  to  the  SSPK  for  conflicts  with  the  target  in  defilade. 
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Figure  D-VI-1.  SSPK  I/O  Flow 
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Table 


i— VI— 1 .  Logical  Organization  of  SSPK  Pointer  Elements 
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Figure  D-VI-2.  H7AFPFILE.BP0INT  Example  Page 
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h.  Pointer  to  the  moving  shooter  degradation  factor. 


i.  Night  degradation  factor. 

D-VI-3.  The  actual  SSPK  values  are  in  SECRET*H7AFPPK.  There  are  no  labels 
in  the  file,  only  six  columns  of  numbers: 


column  -  SSPK  at  250  m 

column  -  SSPK  at  500  m 

column  -  SSPK  at  1,000  m 

column  -  SSPK  at  1,500  m 

column  -  SSPK  at  2,500  m 

column  -  SSPK  at  greater  than  2,500  m 


Each  line  in  the  file  is  "pointed  to"  by  the  pointers  in  BPOINT  and  RPOINT. 
For  example,  the  value  627  in  the  Open  Tgt  column  of  BPOINT  means  that  the 
six  numbers  on  line  627  of  H7AFPPK  are  the  SSPK  values  for  that  Blue  and 
Red  conflict  combination  in  the  open.  A  value  of  096  in  the  Def  Tgt  column 
means  line  96  has  the  SSPK  values  for  that  Blue  and  Red  conflict 
combination  with  the  target  in  defilade.  There  is  no  sequential  order  to 
this  file.  New  SSPK  values  are  added  to  the  end  of  the  file  as  they  are 
needed.  However,  because  of  the  pointer  structure,  values  are  not  moved 
within,  deleted  from,  or  added  to  the  middle  of  the  file.  The  file  may 
grow  as  large  as  2,000  lines.  At  that  point,  M7AFP.M-SSPK,  the  program 
which  reads  H7AFPPK  must  be  changed  because  it  only  allows  for  a  2,000  line 
maximum  in  its  array.  Figure  D-VI-3  is  an  example  of  what  H7AFPPK  might 
look  like.  Because  the  file  is  SECRET,  the  values  shown  in  Figure  D-VI-3 
have  been  adjusted  and  are  not  true  SSPKs. 
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Figure  D-VI-3.  H7AFPPK  Example 
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D-VI-4.  Moving  target  degradation  factors  are  in  H7M0VETGT.  The  file  is 

shown  in  Figure  D-VI-4.  There  are  six  columns  of  numbers  in  this  file: 

1st  column  -  degradation  factor  for  250  m  SSPK 

2d  column  -  degradation  factor  for  500  m  SSPK 

3d  column  -  degradation  factor  for  1,000  m  SSPK 

4th  column  -  degradation  factor  for  1,500  m  SSPK 

5th  column  -  degradation  factor  for  2,500  m  SSPK 

6th  column  -  degradation  factor  for  greater  than  2,500  m  SSPK 

The  number  in  the  Moving  Tgt  column  of  BPOINT  and  RPOINT  points  to  a  line 
in  H7M0VETGT  which  has  the  degradation  factors.  These  factors  are  multi¬ 
plied  times  the  corresponding  SSPK  values  if  conditions  of  the  conflict 
call  for  a  target  to  be  on  the  move.  This  file,  like  H7AFPPK,  has  no 
sequential  order.  As  new  degrading  factors  are  needed,  they  are  added  to 
the  end  of  the  file.  Additions  to  or  deletions  from  the  middle  of  the  file 
are  not  allowed.  The  file  may  grow  as  large  as  100  lines.  If  more  lines 
are  needed,  change  the  array  size  in  the  program  H7AFP.M-SSPK  which  reads 
this  f i le. 

D-VI-5.  Moving  firer  degradation  factors  are  in  H7M0VEFIRER.  The  file  is 
shown  in  Figure  D-VI-5.  This  file  is  exactly  like  H7M0VETGT  except  the 
factors  are  for  moving  shooter  conditions  and  use  the  Moving  Firer  column 
in  BPOINT  and  RPOINT.  It  also  has  a  maximum  size  of  100  lines.  The  array 
in  program  H7AFP.M-SSPK  must  be  expanded  if  more  lines  are  needed. 
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Figure  D-VI-5.  H7M0VEFIRER 
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Section  III.  OUTPUT 

D-VI-6.  The  Combat  Module  format  modified  SSPKs  which  are  generated  by  the 
program  H7AFP.M-SSPK  are  values  from  H7AFPPK  which  have  been  multiplied  by 
moving  target  degradation  factors,  moving  firer  factors,  and  night  degrada¬ 
tion  factors  if  those  conditions  were  required.  The  structure  is  shown  in 
Table  D-VI-2.  There  are  7,200  lines,  each  with  six  values  which  correspond 
to  the  six  SSPK  range  bands.  The  modified  SSPKs  are  SECRET. 


Table  D-VI-2.  Modified  SSPK  Element  Structure 


B01  vs  R01  modified  SSPKs 
B01  vs  R02 


301  vs  R60 
B02  vs  R01 
B02  vs  R02 


B02  vs  R60 


B60  vs  R60 
R01  vs  B01 
R01  vs  B02 


R01  vs  B60 
R02  vs  B01 


R60  vs  B60 


D-VI-7.  There  is  a  labeled  modified  SSPK  element  generated  by  the  program 
H7AFP.M-SSPK.  This  element  is  also  SECRET.  Example  lines  are  shown  in 
Table  D-VI-3.  The  SSPK  values  have  been  modified  to  keep  this 
documentation  UNCLASSIFIED.  A  header  line  shows  the  conditions  of  this 
conflict.  The  shooter  name  and  AFP  number  are  followed  by  target  names  and 
their  AFP  numbers,  if  any  of  the  six  SSPK  values  for  that  conflict  are 
nonzero.  If  all  values  are  zero,  the  next  shooter  name  follows 
immediately.  In  the  example,  BTRP  has  SSPK  values  of  .00  against  all 
targets  across  all  ranges.  M-16  has  .00  values  against  R03,  R05-R31, 
R33-R60. 
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Table  D-VI-3.  Labeled  Modified  SSPK  Element  Structure 


Blue  shooter  stationary  vs  Red  open  moving  target  at  daytime 


Shooter 

=  BTRP 

Shooter 

number 

=  B01 

Shooter 

=  M-16 

Shooter 

number 

=  B02 

RTRP 

R01 

.01 

.01 

.00 

.00 

.00 

.00 

AKS-74 

R02 

.02 

.02 

.00 

.00 

.00 

.00 

Gren  30 

R04 

.04 

.00 

.00 

.00 

.00 

.00 

SA-7 

R32 

.01 

.00 

.00 

.00 

.00 

.00 

Shooter 

=  7.62  GM 

Shooter 

number 

=  B03 

RTRP 

R01 

.20 

.10 

.01 

.00 

.00 

.00 

AKS-74 

R02 

.20 

.10 

.01 

.00 

.00 

.00 

Shooter 

=  M650GM 

Shooter 

number 

=  304 

ZSU-23 

R26 

.00 

.00 

.00 

.00 

.00 

.01 

SA-14 

R30 

.00 

.00 

.00 

.00 

.01 

.00 

SA-7 

R32 

.00 

.00 

.00 

.01 

.00 

.00 
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Section  IV.  RUNSTREAM 

D-VI-8.  Figure  D-VI-6  shows  the  runstream  of  the  program  which  reads  the 
pointer  files  and  the  SSPK  values  to  generate  modified  SSPK  values. 


a)Q  U  A  L  UNCLASSIFIED 
S  A  $  G  »  T  7. 

»A So  ,  T  £ . 
n'  A  S  G  » T  9  . 
i  A  S  G  » T  10. 
i A S  6 , T  11. 

■»  A  S  G  »  T  1  ^  • 

3ASG,T  13. 

i  A  S  G  »  A  H7AFPPK/XXX/XXX. 
a  A  S  G  .  A  *H7MOVE  TGT  . 

SASG,A  *H7!*0VF1RER. 
iED  H7AFFPK,7. 
i  U  S  E  £.t*H7.v0VETjT. 

3 USE  «.,*H7*0VFIRER. 

_  E  D  *N7AFPFILES.0POINT,1C. 
3  ED  *H7AFPFILES.RPCINT,11. 
r  X  I  T 

'iXQT  *H7AFP.&7QN-SSPK 
1 

1 

1 

c 

1 

1 

1 

1  C 


I  2  3  A  5  6  42  U 
1  2  3  42  U 

iED  12.,H7AFPPK.RAPD-D 

GED  13  .  ,H7AFPDK .LABcL~RAPD-D 

EXIT 


Figure  D-VI-6.  Modified  SSPK  Generation  Runstream 


Section  V.  PROGRAM 

D-VI-9.  The  program  which  generates  modified  SSPK  values  is  H7AFP.M-SSPK. 
The  absolute  program  is  H7AFP.870M-SSPK.  The  flowchart  for  the  program  is 
in  Figure  D-VI-7.  The  program  accepts  conflict  conditions  for  Side  1 
(Blue)  shooter  and  Side  2  (Red)  targets:  (1)  open  or  defilade  target;  (2) 
stationary  or  moving  target;  (3)  stationary  or  moving  firer;  and  (4)  day  or 
night.  The  modified  SSPK  values,  for  Blue  as  shooter  and  Red  as  target  are 
derived  using  BPOINT,  SSPK  values  in  H7AFPPK,  and  the  degradation  factors. 
Then,  conflict  conditions  for  Red  as  shooter  and  Blue  as  the  targets  are 
accepted.  The  Red  modified  SSPK  values  are  derived  using  RPOINT,  SSPK  val¬ 
ues  in  H7AFPPK,  and  the  degradation  factors  depending  on  the  second  set  of 
conflict  conditions.  The  source  program  is  shown  in  Figure  D-VI-8. 
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Figure  D-VI-7. 


Modified  SSPK  Generation  Program  Flowchart 
(page  1  of  4  pages) 
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Figure  D-VI-7.  Modified  SSPK  Generation  Program  Flowchart 
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Figure  D-VI-7.  Modified  SSPK  Generation  Program  Flowchart 
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Figure  D-VI-7.  Modified  SSPK  Generation  Program  Flowchart 
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C 
C 

C  DECLARATION  OF  DATA 

C 
C 

COM MON /LA BEL /TITLE  C2)  , SHTN AM  I  2 , 60 ) , TRGN AM < 2 , 60  I 

REAL  PKINf 2000  *6)  f MVTRGT (100,6) , M VFIR  E (  100,6) , TEMPI  6) , TEMP 2 f 6 J 
INTEGER  XA ,XB ,XC,XD  ,INDEXfPFiLE,LOQP 
REAL  NITE 

CHARACTERS  SCOLOP  ,  TCOLOR 

CHARACTER* 10  S H CO TR  , A RR A Y 1 i  2  )  ,  ARR  A  Y2  (  2  )  , ARR A Y3 ( 2) 

CHARACTERS  SHTNUM 
CHARACTER*15  TRGN A  M 
CHARACTER*39  SHTNAH 
CHA  RAC  TER*80  LINE, TITLE 

DATA  A  RP A  Y 1 / *  OPEN  DEFILADE  • / A RR A Y 2 / 1 STA TI ON AR Y * , 

C*  MOVING  * /ARRAY3/* DAYTIME  *  ,  'NIGHTTIME  */ 

C - 

C 
C 
C 

c 

C  XA 

C  XB 

C  XC 

C  XD 

C  INOEX 

C  PFILE 

C  LOOP 

C  PKIN 

C  MVTRGT 

C  MVFIRE 

C  TEMP 

C  TEMP2 

C  NITE 

C  ZERO 

C  SCOLOP 

C  TCOLOR 

C  SHOOTR 

C  SHTNUM 

C  TRGNAM 

C  SHTNAM 

C  TITLE 

C  LINE 

C  ARR  A  Y  1 

C  APR  A  Y2 

C  APR  AY 3 

C 

C - 

C 
C 
C 

c 

LOOP-C 
1  IFILOOP.EQ.OUHEN 
SCOLOR  =  *  BLUE * 

TCOLOR- *  RED  * 

PFILE  =  10 

ELSE 

S  COLOR  =  *  RED  * 

T COLOR  =  *  BLUE  * 

PF ILE=1 1 
END  IF 
C 
C 

C  THIS  SECTION  ASK  THE  USER  A  SET  OF  QUESTIONS  To 

C  OBTAIN  THE  PARAMETERS  FOR  THE  PROCESSING  OF  THE  SSFK'S 

C 
C 

WRITE (6,99 1SC0L0R 

99  FORMAT( lx,T38, * ME NU * , / , ID X , *  ANSWER  THE  FOLLOWING  QUESTIONS  TO  ES 

CTABLISH  THE  PA RAMETERS 1  , / ,  ID  X ,  *  FOR  SSPK  MODIFICATIONS  WITH  *,A4, 
C*  AS  THE  SHOOTER.  1  ,// , 

CSX,  *  I S  THE  TARGET  OPEN  OR  DEFILADE  ?*,//f10X,*  1=0PEN 
C10X,*  2=DEF IL A  DE  M 
32  REA  D<5,30,ERR=31>  XA 

IF( (XA.GT.21 .OR.I XA.LT.l) >  GO  TO  31 

30  FORMAT (II ) 

GC  TO  33 

31  PRINT  *,  'ILLEGAL  ENTRY,  TRY  AGAIN* 


DATA  DICTIONARY 


-  TARGET  OPEN  =  1,  TARGET  DEFILADE  =  2 

-  TAR6ET  STATIONARY  =  1,  TARGET  MOVING  =  2 

-  FIRER  STATIONARY  =  1,  FlRER  MOVING  =  2 

-  DAYTIME  =  1,  NIGHTTIME  =  2 

-  RECORD  COUNTER  IN  POINTER  FILE 

-  UNIT  NUMBER  OF  POINTER  FILE  IN  USE 

-  INDICATES  1ST  OR  2ND  PASS 

-  ARRAY  OF  BASE  SSPK  VALUES 

-  ARRAY  OF  MOVING  TARGET  FACTORS 

-  ARRAY  OF  MOVING  FIRER  FACTORS 

-  ARRAY  WORKING  AREA  HOLDING  BASE  OR  MODIFIED  SSPK  VALUES 

-  ARRAY  WORKING  AREA  HOLDING  MOVING  OR  FIRER  FACTORS 

-  NIGHT  DEGRADATION  FACTOR 

-  LOGICAL  VARIABLE  INDICATING  ALL  ZEPO  VALUES 

-  SHOOTER  COLOR 

-  TARGET  COLOR 

-  NAME  OF  SHOOTER  WEAPON 

-  SHOOTER  WEAPON  NUMBER 

-  ARRAY  CONTAINING  TARGET  NAME  AND  NUMBER 

-  ARRAT  CONTAINING  SHOOTER  NAME  AND  NUMBER 

-  ARRAY  CONTAINING  THE  TITLE  OF  THE  REPORT 

-  RECORD  FROM  POINTER  FILE 

-  fi 

-  «  ARRAYS  HOLDING  PARAMETER  CONDITIONS  FOR  CREATING 

-  ff  REPORT  HEADINGS. 
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33 

98 

42 


41 

4  3 
97 

52 

51 

53 
96 

62 

61 


GO  TO  32 
WRITE  <6 ,98  ) 

FORMAT* 5X.*IS  THE  TARGET  STATIONARY  OR  MOVING  ?*,//, 
C10X,’  l=StATI0NARY  *,/,10Xf*  2-HOVING  M 
READC5,30,ERR=4I)  XB 
IF*  CXB.GT.21  .0R.tX3.LT.in  GO  TO  41 
GO  TO  43 

PRINT  *,  *  ILLEGAL  ENTRY,  TRY  AGAIN* 

GO  TO  42 
WRI TE (6, 97 ) 

FORMAT  C  5X *  *  IS  THE  FIRER  STATIONARY  OR  MOVING  ?*,//, 

C 1  OX  ,  *  ^STATIONARY  *,/f10X,*  2  -MOV  I N6  *) 
READ*5,30,ERR=51)  XC 
IFI *XC.GT.2)«OR.(XC»LT.l))  60  TO  51 
GO  TO  53 

PRINT  *,  'ILLEGAL  ENTRY,  TRY  AGAIN* 

GO  TO  52 
WR I TE  C  6 ,96  ) 

FORMAT (5X,  *IS  IT  DAYTIME  OR  NIGHTTIME  ?*,//, 

C10X,*  lrDAYTIME  ,,/,lQX,*  2-NI GHTTIME  *  ) 
READI5,30,ERR=61)  XD 

IF* CXD. FT. 2I.0R.IXD.LT. 1)>  GO  TO  61 
GO  TO  73 

PRINT  *,  *  ILLEGAL  ENTRY,  TRY  AGAIN* 

GO  TO  62 


73  WRITE  t  6  ,90  ) 

90  FORMAT*//// ,T35  ,*P  ROGRAM  WORKIN  6  *»//// ) 


READ  THE  SSPK  BASE  V ALUE S , M 0 VI NG  TARGET  FACTORS, 

AND  THE  MOVING  FIRER  FACTORS  INTO  THE  APPROPRIATE  ARRAYS 
FOR  FUTURE  PROCESSING  BY  SUBSCRIPTS. 


IFCLOOP.EQ.OITHEN 

1=1 

111  READC7, 1Q,END=222  >  *  PKINf I, J) , J-1,6) 

10  FORMAT *6(F10.2,1XJ 1 
1  =  1*1 
60  TO  111 
222  K- 1 

33  3  READ  I  8 ,20,EN0=4<Ml ) CMvTRGT (K*L)  ,Lzl,6 ) 

20  FORMAT  *  6  I F4 .2 , IX)  ] 

K  -K  *  1 
GO  TO  333 
444  M - 1 

55  5  READ  19 , 2D, END =666 1  * MVFI RE  I M , N )  ,N=1,6) 

M  =  M  *  1 
GO  TO  555 
666  CONTINUE 
END  IF 

STORE  THE  TITLES  OF  THE  REPORTS 
M=L  OOP* 1 

WRITE (TITLE  CM)  , 5 >  S COL OR , ARR A Y2 I XC ),TCQL0R,ARRAY1«XAJ, 
G  ARR  A Y2 ( XB ) , ARR  A  Y3 ( XD ) 

5  FORMAT  *  5  X , A  4 , *  SHOOTER  *,A10,’  VS  * , A  4 , A 1 0 ,  ’ , '  , A 1 □ , 

C*  TARGET  AT  *fA101  ’ 

I  NOE  X  =0 


READ  A  RECORD  FROM  THE  POINTER  FILE  AND  PROCESS 
ACCORDING  TO  THE  PARAMETERS  SUPPLIED  TURING  THE  INTER¬ 
ACTIVE  PORTION  OF  THE  PROGRAM. 

STORE  THE  SHOOTER  NAME  A  NO  NUMBER  IN  THE  SHOOTER  AND 
TARGET  NAME  ARRAYS  FOR  CREATING  LABELED  REPORT. 


N  =  0 

777  READ*PFILE,7Q,END=888]LTNE 
70  F0RKAT*A80) 

I ND EX  =  I NDEX  *  1 
IF* INDEX. EG. 1 ITHEN 

IF (LINE*  30:36) .NE. ’SHOOTER*  > THEN 
I NDEX  =0 
GO  TO  777 
END  IF 

SHOOTRrLlNEI 1 8 :28 I 
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C 

214 

215 
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50 

217 
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22  G 

888 

221 

91 

222 
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225 
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226 

c 

227 
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229 

23D 

231 

232 

233 

c 

234 

c 

235 

c 

236 

237 

238 

c 

239 

2hO 

241 

242 

243 

92 

SHTNUM=LINE(  39  r4 1 > 

N=N*  1 

WRITE!  SHTNAMM.NJ  f  4  0  1  SHO  0  TR  ,  SHTNUK 
UPITE  (TRGNAM ( M, N ) ,461SHOOTR ,SHTNUM 
FORMAT ( A  lit  IX  f A3 ) 

FORMAT  ('SHOOTER-  ‘sAlO,’  SHOOTER  NUMBER-  #,A3) 
END  IF 

IF( INDEX. LE. 4)  60  TO  777 
IF( INDEX. EC. 65)  GO  TO  777 
IF( INDEX. EC. 66)  THEN 
INDEX-0 
GO  TO  777 
ENO  IF 

IF(XA.E0.I  )  THE  N 

READ(LINE,8Q)K0UNT 
F  0PM A  T ( T 35 , 1  3 ) 

ELSE 

READfLINE ,81 JKOUNT 
F GPMA  T ( T5 1 f 13  ) 

END  IF 

DO  15  J- 1 1  6 

TEMP ( JjrPKINIKOUNT, Jl 

CONTINUE 

IF <  X5 .EQ .2  1  THEN 

PEAD(LINE|82 ) KOUNT 
FORMAT ( T4 2 , 1  3 ) 

DO  25  J- 1*6 

TEMP2I J1 =MVTRGT( KOUNT  t  J) 
TEMP(JJ-TEMP(J)*TEHP2(J) 

CONTINUE 
ENO  IF 

IF (XC.E0.2  )  THEN 

READ(LINE,83)K0UNT 
FORMAT ( T57 ,13  J 
DC  35  J‘ 1 , 6 

TEMP24 J1-MVFIRE(K0UNT, J1 
TEMPI JlzTEMP ( J)* TEMP 2  I JJ 
CONTINUE* 

END  IF 

IF(XD.EQ.2>THEN 

PEAO(LINEf 84  1NITE 
FORMAT (T66,F3. 2) 

DO  45  J=l,fc 
TEMPI JjrTtMP I J (♦NI TE 
CONTINUE 
ENO  IF 


WRITE  THE  MODIFIED  SSPK  VALUES  TO  UNIT  14  FOR  FUTURE  PROCESSING 


WRITE  (  14  ,  SQM  TEMP  <  JJ,  J=lf6> 
F0RMATI6(F4.2,1XJ  J 


GO  TO  777 
WRITE (6,91) 

FORMAT (//✓ fT31 • *F  INISHED  PROCESSIN  G’f///J 


IF  THIS  IS  THE  FIRST  PASS,  RETURN  TO  THE  TOP  TO 
PROCESS  RED  AS  A  SHOOTER. 


IFIL00P.EQ.01THEN 
L00P=1 
GO  TO  1 
END  IF 
CLOSE  (14) 

REWIND  14 

CALL  SUBROUTINE  TO  COMPUTE  SUPER  TROOP  VALUES 

CALL  AGGPK 
WRI TE  (6,92) 

FORMAT! //// ,T33f •P  ROGRAM  COMPLET  E’,//// 
t,T35, ’UNLABELED  DUTPUT  ON  UNIT  12  ’,/ 
t, T35, ’LABELED  OUTPUT  ON  UNIT  13  •  ,// ) 

Stop 

END 
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SUBROUTINE  A6GPK 

C  ***********  ***  ***  ****  ******  ******  ***************  ******  *********** 

c  *  * 

C  *  AGGPKr  COMPUTE  PROBABILITIES  OF  KILL  FOR  AGGREGATED  GROUPS  * 

C  *  * 

c  ***************************************************************** 

c 

INCLUDE  UNCLASSIFIED*98AFP2.PaRM, LIST 
INCLUDE  UNCLASSIFIED*98AFP2*ERRDAT  »LIST 
REAL  PK(6) 

LOGICAL  ISAGG  C2  , I T YPS  ) 

COMMON  /LAB  EL/ TITLE (2 1 , SH TN AM ( 2 , 6 0 ) , TRGN A M ( 2 , 6 0 ) 

CHAPACTER*60  TITLE 
CHARACTER*39  SHTNAM 
CHARACTER*15  TRGN  A  M 
LOGICAL  ZERO 
C 

NERRS  =  0 

C  GET  AGGREGATION  FACTOR  AND  AGGREGATED  TYPES 

CALL  GETAGG  (AGGFAC,  ISAGG) 

C 

C  READ,  TRANSFORM,  AND  OUTPUT  PK  *S 

C 

DC  60D  I  =  1,2  3  SHOOTING  SIDE 

WRITE  ( 13, 10 ITITLE (I > 

1C  FORMAT ( A  60  ) 

DO  70C  J  -  1  *  IT YPS  3  SHOOTING  TYPE 

IF (ISAGG (I, J) )W RITE  113, 20)SHTNAMII,J) 

IF!  .NOT.  ISAGG  II,  J)1  WRITE  113, 2n$HTNAMI,JI 

20  FORMAT*/, 5X, *SUPEP  TROOP  ’,A39,/) 

21  FORMAT*/,  17X.A39,/) 

DO  800  K  r  l-ITYPS  3  TARGET  TYPE 
READ  (14,51)  (PK(L),  L=l,6) 

51  FORMAT (6(F4.2,1X) 1 

DO  900  L  -1,6 

C  A  LITTLE  PARANOIA  NEVER  HURT  ANYBODY 

PK(L)  =  RANGE  (‘PKf,  0,0,  PK * L  )  ,  1.0) 

IF  (NERPS  .GT.  V )  STOP 

IF  (.NOT.  ISAGGCT  *  J  )  .AND.  .NOT.  ISA&GI3-I,K)>  THEN 
CONTINUE  3  NEITHER  AGGREGATED 
ELSE  IF  ( I S A66 (  I  ,  J  )  .AND.  ISAGG f 3-1 ,K ) 1  THEN 
CONTINUE  3  BOTH  AGGREGATED 
ELSE  IF  (ISAGG(IfJ)  .AND.  .NOT.  I S A GG ( 3“I , K ) >  THEN 

PK(L)  -  1.0  “  (1.0-PKIL))  **  AGGFAC  3  AGGREGATED  SHOOTER 
ELSE  IF  (.NOT.  ISAGG  II  ,J1  .AND.  IS A 6G ( 3-1 , K  )  )  THEN 
PK ( L )  -  PKIL)  /  AGGFAC  3  AGGREA6ATED  TARGET 
ENDIF 

PK ( L )  =  MIN  (PK  (L  1  ,  0.99) 

9  CC  CON  T I NUF 

C 

C 

C  WRITE  ALL  OF  THE  MODIFIED  SSPK  VALUES  TO  THE  UNLABELED 

C  OUTPUT  FILE  ON  UNIT  12.  IF  THE  MODIFIED  SSPK  VALUE  AT  ANY 

C  DISTANCE  IS  GREATER  THAN  0.0  ,  THEN  WRITE  TO  THE  LABELED 

C  OUTPUT  FILE  ON  UNIT  13  ALSO. 

C 

c 

WRITE  *12,101) 

t  (NINT(100.0*PKCLI>,  L=l*6) 

1D1  FORMAT  (6(12,  IX)) 

ZERO-. TRUE. 

DC  55  L - 1 , 6 

C  PK(L)-TEKP(JM0.005 

IF (PK (L ) .LT .0.0D5 1THEN 
ZE PO - • TRUE  . 

ELSE 

ZEPO=. FALSE. 

60  TO  56 
END  IF 

55  CONTINUE 

56  IFIZEROIGO  TO  62 

IF(  ISAGG ( 3-1 , K )  ) WRITE ( 1 3 . 6  0 ) TRGN A M I  3- I t K ) ,PK 

IF ( .NOT .ISAGG ( 3—1 ,K))WRITE( 13, 61 ITRGNAMI3-I ,K) ,PK 

60  FORMAT* 5X, ’SUPER  TROOP  ’  , A  1 5 , 5 X ,6 (F4 . 2 >  ) 

61  FORMAT (17XfA15,5X,6(F4.2) ) 

62  CONTINUE 

8  DC  CONTINUE 

7  CO  CONTINUE 

6CC  CONTINUE 

WRITE  (6,63) 

63  FORMAT  (’  AGGREGATION  OF  PK’’S  COMPLETED.’) 

RETURN 

END 
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C 
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66 


NAPE:  RANGE 

PURPOSE:  CHECK  A  REAL  NUH8FP 
ARGUMENTS: 


TYPE  :  PEAL  FUNCTION 
FOR  BEING  IN  RANGE. 


NAPE 
ITEP 
XL  C 
X 

X  H  I 

RETURNS : 
XHI  IF  X 
CALLED  BY 


DIMENSION  TYPE  USE 

-  C*(*)  I 

-  R  I 

-  R  I 

-  R  I 

X,  IF  X  IS  WITHIN  RANGE; 
IS  GREATER  ThAn  XHI. 

A  P I  N  1  ,  APIN2,  GETAGG 


DESCRIPTION 

NAME  OF  THE  ITEM  BEING  TESTED 
LOWER  BOUND 

THE  NUMBER  BEING  TESTED 
UPPEP  BOUND 

XL 0  IF  X  IS  LESS  THAN  XLO;  OR 


CALLS:  GNERR 
COMMON  BLOCKS  USED:  NONE 
FILES  USED:  NONE. 

LOCAL  ARRAYS:  NONE* 

METHOD:  TEST  TO  SEE  IF  XLC  <r  X  <Z  XHI.  IF  NOT,  CONSTRUCT  AN  ERROR 

MESSA6E  SAYING  *  <  N  A  H  E  >  SHOULD  PE  IN  THE  RANGE  <LOWFR>  TO  <HIGHER>* 
AND  CALL  GNERR  TO  ISSUE  THE  ERROR  MESSAGE. 

FUNCTION  RANGE  (ITEM,  XLO,  X,  XHI) 
***************************************************************** 
*  * 

*  RANGE:  CHECK  A  REAL  NUMBER  FOR  BEING  IN  RANGE  * 

*  * 
***************************************************************** 
CHARACTER*! *)  ITEM 

CHA  R ACTE  R*70  MSG 


IF  C I  XL  0  .LE.  X)  .AND.  CX  .LE .  XHI  )  !  THEN 
CONTINUE 
ELSE 

BUILD  ERROR  MESSAGE 
WRITE  (MSG, 66)  X,  XLO,  XHI 
FORMAT  (1PGI1.4, 

t  •  SHOULD  BE  IN  THE  RANGE  1PG11.4,  *  TO  %  1PGI1.4) 

CALL  GNERR(ITEM,MSG) 

END  I  F 
RANGE  -  X 

IF  (RANGE  *  LT .  XLO)  RANGE  =  XLO 
IF  (RANGE  .G7.  XHI)  RANGE  r  XHI 
RETURN 
END 
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c 


c 

NAME:  RANGEI 

TYPE:  INTEGER  FUNCTION 

c 

PURPOSE:  CHECH  AN  INTEGER  FOR  BEING  IN  RANGE. 

c 

ARGUMENTS : 

c 

NAME  DIMENSION 

TYPF  USE 

DESCRIPTION 

c 

ITEM  - 

C*l*>  I 

NAME  OF  THE  ITEM  BEING  TESTED 

c 

IXLO  - 

I  I 

LOWER  BOUND 

c 

IX  - 

I  I 

the  number  being  tested 

c 

IXHI  - 

R  I 

UPPER  BOUND 

c 

RETURNS :  lx ,  IF  IX  IS 

IN  RANGE; 

IXLO,  IF  IX  IS  LESS  THAN  IXLO; 

c 

IXHI  IF  IX  IS  GREATER 

THAN  IXHI. 

c 

CALLED  BY:  APIN1,  APIN2.  GETAGG 

c 

CALLS:  GNERR 

c 

COMMON  BLOCKS  USED:  NONE 

c 

FILES  USED:  NONE. 

C  LOCAL  ARRAYS:  NONE* 

C  METHOD:  TEST  TO  SEE  IF  1X10  <-  IX  <r  IXHI.  IF  NOT,  CONSTRUCT  AN  ERROR 
C  MESSAGE  SAYING  *  <N AME  >  SHOULD  BE  IN  THE  RANGE  <LOUER>  TO  <HI6HER>* 

C  AND  CALL  GnERR  TO  ISSUE  THE  ERROR  MESSAGE* 

C 

INTEGER  FUNCTION  RANGEI  (ITEM,  IXLO,  IX,  IXHI) 

******  *******************  *  ***********************  *  *************** 

* 

*  RANGEI:  CHECK  AN  INTEGER  FOR  BEING  IN  RANGE 

* 

*************************************************** ******4***^*** 

CHARACTER* ( * J  ITEM 
CHARACTFR*70  MSG 

IF  MIXLO  •  LE  •  IX!  .AND.  (IX  .LE.  IXHI)!  THEN 
CONTINUE 
ELSE 

C  3UILD  ERROR  MESSAGE 

WRITE  (MSG, 66)  IX,  IXLO,  IXHI 

66  FORMAT  (110.  ■  SHOULD  BE  IN  THE  RANGE  *,  110,  1  TO  *,  110) 

CALL  GNERR(TTEH, MSG) 

END  I F 

RANGEI  r  IX 

IF  (RANGEI  .LT.  IXLO)  RANGEI  r  IXLO 
IF  (RANGEI  .GT.  IXHI!  RANGEI  r  IXHI 
RETURN 
END 
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NAME:  GNERP  TYPE:  SUBROUTINE 

PURPOSE:  ISSUE  AN  ERROR  MESSAGE  RELATED  TO  INPUT  DATA. 
ARGUMENTS: 


NAME 

ITEM 


MSG 


DIMENSION  TYPE  USE  DESCRIPTION 

-  C*(*l  I  NAME  OF  THE  ITEM  IN  ERROR 

(OR  BLANK,  IF  THE  MESSAGE  DOES  NOT 
REFER  TO  A  SPECIFIC  ITEM) 

THE  ERROP  MESSAGE 


61 


63 


-  C*(*t  I 

CALLED  BY:  APIN1,  APIN2,  ICOLOP,  RANGE*  RANGEI 
CALLS:  NONE 
COMMON  BLOCKS  USED:  ERRD AT 
FILES  USED:  NONE. 

LOCAL  ARRAYS:  NONE • 

METHOD:  PRINT  THE  NAME  OF  THE  ITEM  IN  ERROR  AND  THE  ASSOCIATED  MESSAGE. 

INCREMENT  VARIABLES  NEPRS  (THE  TOTAL  NUMBER  OF  ERRORS  DETECTED  THUS  FAR) 

ANO  NERRSL  (THE  NUMBER  OF  ERRORS  ON  THE  CURRENT  INPUT  LINE)  IN  COMMON  BLOCK 
ERRDAT  •  IF  NERRS  EXCEEDS  30,  ISSUE  A  FINAL  ERROR  MESSAGE  AND  STOP. 

SUBROUTINE  GNERR  (ITEM*  MSG) 

********************************* ******************************** 

*  * 

*  GNERR:  ISSUE  AN  ERROR  MESSAGE  * 

*  * 
***************************************************************** 

INCLUDE  UNCLA S S IF  I ED*98AFP2. ERRDAT ,LIST 
CHARACTER*!*)  ITEM,  MSG 

INCREMENT  ERROR  COUNT 
NERRS  =  NERRS* 1 
NERRSL  =  NERRSL*! 

PRINT  THE  MESSAGE 
IF  (ITEM  .EG.  *  *)  THEN 
WRITE  (6.61)  MSG 
FORMAT  (*  ERROR: 

else 

WRITE  (6,62)  ITEM,  MSG 
FORMAT  ( •  ERROR:  *  ,  A,  *  :  *  ,  A) 

ENDIF 

IF  (NERRS  .GT.  30)  THEN 
WRITE  (6,63) 

FORMAT  (*  ERROR  LIMIT  EXCEEDED. . .PROCESSING  STOPPED.*) 

STOP 
E  NO  IF 
RETURN 
END 


A  ) 
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THIS  IS  ONLY  A 
IS  LOCATED  ON 


C 
C 
C 
C 
C 

c 
c 

C 

c 

C 
C 

ERRDAT  PROC 

COMMON  /ERRDAT/  NERRS,  NERRSL 

END 


COPY  OF  THE  PROC  ERRDAT.  THE  ACTUAL  PROC 
UN  CL ASS  I FI ED*98 AFP  2. ERR DAT 


BLOCK  NAME:  ERRDAT 
USED  BY:  APINI ,  APIN2, 
BLOCK  DESCRIPTION: 

NAME  DIMENSION 

NERRS  - 

NEPRSL  - 


APOUT,  ARTPRE,  GETAG6,  GNERR 


TYPE 

I 

I 


DE  SCR IPTION 

TOTAL  NUMBER  OF  ERRORS  DETECTED 
TOTAL  NUMBER  OF  ERRORS  DETECTED  ON 
THE  CURRENT  INPUT  LINE 
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C  CODES  USED  IN  NAMING  THE  COMMON  BLOCKS 
C  I  INPUT 

C  M  MAIN 

C  1  FR  CALC 

C  2  DIRIO 

C  3  CNFALC 

C  4  STPREP 

C  5  CNFTHS 

C  6  EXTKLS 

C  7  DIPKLS 

C  8  CNFLC1 

BK1  PPOC 

C  USET  IN  INPUT*  MAIN  *  FRCALC  *  DIRIO,  CNFALC,  STPPEP,  EXTKLS,  DIRKLS 

C0MM0N/C1T057  /NTYPSC2)  ,C 6 S E , PREF 1 f PREF2 , PR EF3 , PR EF4 , IN SE ED  ,OSE ED 
INTEGER  CASE.  PREF1,  PREF?,  PPEF3,  PREF4  ’ 

DOUBLE  PRECISION  DS  LED 

END 

BK2  P ROC 

C  USED  IN  MAIN,  CNFALC,  STPREP,  CNFTMS,  EXTKLS,  DIRKLS 

*CC$  HO  TS  ^  2**  I  CONF  L^  12),  SMBLER,  BIGGER,  S  TAT  US(  I  CO  NFL  ,  ILEN  )  ,  CNFLCT  , 
END  INTEGER  TYPS,  SMALER,  BIGGER,  CNFLCT,  CSHOTS 
BK3  PPOC 

C  USED  IN  INPUT,  MAIN,  STPREP,  EXTKLS 

COMMON/ C IH4  6  /IOUNIT,  OUTSIL,  NSTA6E,  NSTA6C,  NDAYS 
INTEGER  OUTFIL 

END 

BK4  PROC 

C  USED  IN  CNFALC,  STPREP 
C 

CCMH0N/C34  /NODDS,  0D0Sf2),  CONF LD ( 2 , 1 R A N GE *  I EN VI R ) 

INTEGER  ODDS,  CONFLO 

END 

BK  5  PPOC 

C  USED  IN  INPUT,  CNFTMS 

COMHON/CIS  /LIMITS(2,ITrPS,?>  , 

*  SENSOR (2,ITYPS  ,IENVIP, 2),  SI ZE C 2, ITYPS, IEN VIR )  , 

*  CNTRSTC2, ITYPS  ,IENVIR, IS3NTR  )  ,  LI GHT  C I FNVI F )  ,  MA  G { TSENSR  > , 

f  BRISHTfTENVIRI,  RCDET  (2, ITYPS  >,  NDTCTN, 

^  N  5  Z  D  C  T  C2, ITYPS  J 

INTEGER  SENSOR 
PEAL  LIGHT, MAG 


END 
BK6 
C 
C 


PROC 


USED  IN  INPUT,  MAIN,  EXTKLS,  DIRKLS 

COMMON/ C IM6  7  /N0EXT<2)  .EFT f 2 , IEX T , ITYPS , IE NVIR ,1  RANGE) 

*  ,EXTN ( 2 ,IEXT , IENVIP , IRAN5E , I rDPT  H I 

J  f|5TKJ2.IEXT,IENVIR,IRAN^E,ICDPTH) ,  E XT  PE R C 2 , I  EX T ) 

*  ,EXTNl(2,IEXTfIENVIR,IRAKGE),  SHOTS i 2 , IEN V IR , I^ANGP ) 

*  ,AM0TYP(2 , ITYPS. ITYPS) ,  r S HO 7 S C 2. I EX T. I E N V I R . I RA NGE ) 

*  , B WPNS ( 2, ITYPS  ,IENVIR,  IR » NGE  T , INOD ST \  2 , IE  X  T , I R A N GE )  , LE  SDNS ( 2 ) 

*  ,  INDPARC2,  TEXT  ,  ITYPS) 

INTEGER  EXtK,  EXTNl ,  SHOTS,  AMOTYP,  BWPNS 
REAL  INDDST,  INDPAR 
LOGICAL  LESDNS 

END 

BK7  PROC 

C  USED  IN  MAIN,  FRCALC,  EXTKLS 
C 

COMMON/CMl 6  /I0PTR3 

END 

BK8  PROC 

C  USED  IN  INPUT,  MAIN,  FRCALC 
C 

COMMON/C IM1  /I NSERT  CIPHASE,2,ITYPS)  ,  E X TLO S ( 2 , IT YPS ) , 

*  PH AS  E ( I  DAYS ) 

INTEGER  PHASE 

END 

BK9  PROC 

C  USED  IN  INPUT,  CNFALC,  D IR  KLr 

COMMON /C 1 37  /E NVDS T C IE NVI P  I 

END 

BK10  PROC 

C  USED  IN  MAIN,  DIRIO,  DIRKLS 


Figure  D-VI-8.  Modified  SSPK  Generation  Program 
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COMMON/ CM2 7  /I0PTR4  f  CK1LLS ( 2  ,  ITYPS2 , 7 ) 

INTEGER  CKILLS 

END 

BK11  PROC 

C  USED  IN  MAIN,  STPREP,  DIPKLS 
C 

COMMON /CM4 7  /PKS 1 2 , I TY PS. IPK S f IR A NGE ) ,  MAX  CON, 

*  IU1S,  Il'lT  1  ,  IU1T2,  K  :  YU  1  ,  PKllIRANGE) 

END 

BK 1 ?  PROC 

C  USED  IN  MAIN,  CNFALC 
C 

C0MH0N/CM3  /MAXOOS 

END 

BK 1 3  PROC 

C  USED  IN  MAIN,  FRCALC,  DIRIO,  EXTKLS 
C 

COMMON/CMl 2 6  /F0PCESI2  ,IT TPS , I TYPS 1 
INTEGER  FORCES 

END 

BK 1 4  PROC 

C  USED  IN  CNFALC  , EXTKLS 
C 

COMMON /C 36  /C TP ( 2 ) , D A YST  f 2 ) 

*  , S  AVIT  <  4  > 

INTEGER  CTR  ,  DAYST,  SAVIT 

END 

BK 1 5  PROC 

C  USED  IN  EXTKLS,  DIRKLS 
C 

COM  MON / C67  /A  TEMP ( 3 ,1 PKS 1 

END 

BK 1 6  PROC 

C  USED  IN  MAIN,  CNFALC,  DIRIO,  STPPEP 
COMMON  / CM2  34  /  PR  0 JCT  ( IT YPS , 5  ) 

REAL  PRO JCT 

END 

B  K 1 7  PROC 

C  USED  IN  MAIN,  FRCALC,  EXTKLS,  DIPKLS 

COMMON  /CM  167/  VPNS C 2 ,1 TYP S ) , VPNS  1 ( 2 , IT YPS ) 

*  fDUELS (IENVIR ,IRANGE ,ICD»TH,*) 

*  ,TMS (2, IENVIR , IRANGE,ICDPTHfc),  WPNS1 1(2, IT YPS  > 
INTEGER  W P N $ ,  VPNS1,  DUELS,  WPNS1I 

END 

BK 1 8  PPOC 

C  USED  IN  CNF TM S  ,  DIRKLS 

PARAMETER  RMAXT -2 .0**30 

END 

BK 1 9  PROC 

C  USED  IN  MAIN,  CNFALC,  EXTKLS,  DIPKLS 
COMMON  /CM  367/  F0RCS1C2! 

INTEGER  FOR  CS 1 

END 

BK20  PROC 

C  USED  IN  MAIN,  INPUT,  CNFALC 
COMMON  / C I H  3/  NENVIR 

CND 

BK  2 1  PROC 

C  USED  IN  MAIN,  DIRIO,  CNFALC,  DIRKLS 
COMMON  / CM 2  37/  NUMVP N ( I TYPS , 2 ) 

END 

BK  22  PROC 

C  USED  IN  INPUT,  STPREP,  CNFTMS 

COMMON  / Cl 4 5  /  REFIRE ( 2 ,ITYPS , ITYPS , IENVIR  ) 

END 

BK23  PROC 

C  USED  IN  MAIN,  CNFALC,  DIRKLS 

COMMON  /CM  37  /F0PCS2  <2  > , V  OTP  A R ( 2 , IENVI R , I R ANGE > 
INTEGER  FCRCS2 , NOTPAR 

END 

BK24  PROC 

C  USED  IN  CNFALC,  DIRKLS 

COMMON  / C37  /  RNGDST  (IRAffGE) 

END 

BK25  PPOC 

C  USED  IN  MAIN,  INPUT,  CNFLC1,  EXTKLS,  DIRKLS 

COM MON /C IM6  78 /  LOG  I ICDPTH, 2,ITYPS,9>,L0GIT,STATE 
LOGICAL  LOGIT, STATE 

END 

rh‘77  ppnr 

C  USED  FOR  OUTPUT  FILES 

COMMON  / CM6  7/  TTLOS i 2 , ITL OS , IENV IR , IR ANGE ) 


Figure  D-VI-8.  Modified 
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INTEGER  TTLCS 

END 

BK  28  PROC 

C  USED  IN  CIPS,  COPS,  AND  AFP  FILE  GENERATION 
C 

PARAMETER  ITT0VC=4,  ITT  OTC - 12,  IINf  =  l 


COMMON  /0 1 2  3/  T TOVC (2 , 1 TY*S , I TTOVC ) ,  C  TO  VC  <  2 ,  IT  TO  TC  ,1 TT  OV  C  I 
C  ,  STOVC (2 , ITTOVC) ,  PER K ( ? , IT YP S ) ,  IVCM(2>,  ICM  (2  ) 

C  ,  CKILS1CITYPS1,TTYPS2,2»  ,  PL  OSS C 2 , ITYP S , I TYPS .3 J 
C  ,  TPT0VC(2  ,ITYPS) t  TPT  QTO ( 2 , TT YPS ) ,  NOS ( 2 , TTYP  S ) 

£  ,  CIPS1 C2  ,ITYPS,ITTOVCJ,JTTOVCC2>,JTTOTCC2) 

£  ,  L0SSESC2  ,  IT YPS ) ,  FACC2,ITY*S) 

INTEGER  TPTOVC,  TPTOTC 

REAL  PLOSS,  CKILS1,  PERK,  TTOVC,  CTOVC,  STOVC,  NOS,  CIPS1,  LOSSES 


END 
BK  29 
C 


PROC 

USED  IN  I NDLO S , TP  XTP 

COMMON /COM 1 /INLOSS { ?, ITLOS ) 

END 

PARH  PROC 

C  USED  IN  INPUT,  MAIN,  FRCALC,  01*10,  CNFALC  ,  STPREP, 

C  CNFTMS,  EXTKLS,  CIRCLE 

C 

C  GENERAL  USAGE  PARAMETERS 

PARAMETER  SMALLlr.DOaOl  «SY ALL?  - .000001 
r  PARAMETER  I PHAS E  =  2 , ID  AY $=? , ICDPTH=5 
PARAMETER  I  ODDS =50, IENVIRr 1 ,1 *A NGE =6 . I SGNTR =2 
FARA«ETER  IC0NFL=15G0,IST* GE= I 000 00 00 , 1 P K S= 4 

PARAMETER  I TYPS 1=60  , 1 T Y PS 2 =60  ,  I TY P S  =  M A  X f IT Y PS1 , ITYPS2 1 , IREPS=1 
PARAMETER  LNCNT=30 

PARAMETER  IP0S=4,  IDAY=2.  TVIS=2,  ICIPTP=4 

PARAMETER  ICASE=lPO$*IVIS*irAY  ,  ITHTR=1,  ITPD=1,  IC0MBC=1 
PARAMETER  IP1=  ICASE*IT  HT7  ,  TP3=1 
PARAMETER  IP4=ITHTR*ICASE,  IP?=ITHTR^ICASE*IT^D 
PARAMETER  I  P5  =  I  COMB  0*  IT  HT  5?  *T  C  A  SE*I  TPD 
C  PARAMETERS  FOP  THE  EXTERNAL  KILL r 

PARAMETER  TEXT  1  =  10 , 1 EX T2= ID , TEXT=MAX ( IE  XT  1  ,IEXT2  ) 

PARAMETER  ILEN=I0DDS*3 ,  TTL0$=IEXT+1 
C  PARAMETERS  FOR  DIRECT  I/O 

PARAMETER  N  II  =  1  TY*>S*IEN  VI  *  ,  K\ *’  =  IENVIR  ,  IU  1  =  2  0 
PARAMETER  IRSZ  1  =  3* IR ANGE 
PARAMETER  N21-ITYPS2 ,IU2=^1 

PARAMETER  NR2 =1 P 1 *1 T Y PS 1*W21,IRSZ?=IRANGE*4*10 
PARAMETER  NR6  =  I PI *1 TY*S I , T PS26 =5*1 T YPS*6 ♦ 10 , IU6=2 5 
PARAMETER  NP7=IP 1*2*1 TYPS, IRS 27=2* ITYP S*6+ 1 0, IU7= 26 
PARAMETER  N 84  =  1  RANGE , N8 3=1 E N V TR*N8 4 , N8 2  =  I T Y *S*N 8 3 
£  fN81=IDAYS*N62 ,N 8 0  =  1  REP S*N 8 1 

PARAMETER  NR8=IP3*2*N80 

PARAMETER  I RSZ8 =1 CO P T H* ITY PS*9*6* 1 0 , IU 8= 27 
C  PARAMETERS  FOP  DETECT  INTERFACES 
PARAMETER  ISENSR=5C 

C  PARAMETERS  FOR  CKILLS  DIRECT  ACCESS  I/O 
PARAMETER  N31=ITYPS1 tIU  3=7  2 

PARAMETER  NR3=IP5*IREPS*N31 ,IP SZ3=2*ITYPS2*7*6* 10 
PARAMETER  N 4 1 =1 TYPS 1 , IU 4  =  ? 3 

PARAMETER  NP4  =  IP3*I  PEPS  *N*  1 , 1 PSZ4  =  2*IT  Y*S*6  ♦  10 
PARAMETER  IU5=24 

PARAMETER  IPSZ5=4  *  2*2 *1 E XT* TE NV I R*IR AN GE * ICDP TH 
PARAMETER  N90=IREPS,  IU9=T 

PARAMETER  NR9 =1 P5 *1 R E PS *1 0  A YS ,IRSZ9  =  2* IT YP S *IT Y PS *6  + 10 
PARAMETER  N100-IREPS,  N  101 =TRfPS*TD AYS ,  IU10  =  4 
PARAMETER  NP10=IP5*N101 *IT YPS ! , IRSZ 10=2* I T Y PS2*6* 10 
PARAMETER  NR  11  =  IP 5* I C IP  TP, I U 1 1 =7 , 1 RS Z 1 1  =  2* I T YPS *1 CIPTP*10* 10 
PARAMETER  NR1 2  =  IP 5* I C IP  TP. I U1 2=8 , I RSZ 1 2= 2*1 TYPS *1 CIPTP* 10* 10 
parameter  npi4=ip3*ireps*t d ay**itypsi*it yps2,  iui4=3i 
£  ,IRSZ14=(3* IENVIR*IRANGE*TCDPTH*5J *10 

PARAMETER  IU15-32 ,IRSZ1 5=5 ♦2*7ENVIR*IRANGE* ICDPTH*5 
C  PARAMETERS  FOR  NON-OIRECT  ACCESS  FILES 

PARAMETER  N132=IREPS,  N  1 3? -ID  A YS*Nl 32 ,  Iul3  =  9 
PARAMETER  IPSZl 3=2*ITL0S*TENVTP*IRANGE+4 

PARAMETER  IUIN1=10,  IUIN2=11,  IUIN3=12,  IUIN4=13,  1UIN6=15 
PARAMETER  IUIN7=16,  IUIN8=14,  IAFPIN=17,  IU0UT1=18 

PARAMETER  IU0UT3=33,  IRSZU3=4  - 

£  IRANGE*IENV IR*2 


♦  IRANGE*IENVIR*IEXT*2  ♦ 


INPUT  FILES 
03PKS3A 


NUMBER 

10 


UNIT 

IUIN1 


FORMAT 
24F3  .3 


Figure  D-VI-8.  Modified  SSPK  Generation  Program 
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24  7;C 

03RNGDST3A 

11 

IUIN2 

2413 

248  :C 

07PREF3  A 

12 

IUIN3 

F  REE 

249  :C 

Q3PR0J3A 

13 

I U I N  4 

FREE 

25Q:C 

03KILLSD3 

15 

IUIN6 

free 

251  :  C 

03CIPSD3 

16 

IUIN7 

FREE 

252 :  C 

03CSCSS 

14 

IUIN8 

FREE 

2 53  :  C 

Q3AFP I N 

17 

IUIN9 

IN  SP 

253:C  03AFPIN  1 

2*4:0 

255 : C  FILE  TO  UNIT  ASSOCIATIONS 
256  :C 


257  :  C 

258  :  C 

FILE 

UNIT 

number 

FORMAT 

259  :  C 

PKS 

TUI 

20 

UNFORMATTED  (BINARY) 

26Q :  C 

RNGDST 

IU2 

21 

F4.2 

26 1  :C 

CKILL5 

IU  3 

22 

16 

262  :  C 

NUMUPN 

I U  4 

23 

16 

263 :  C 

EXT 

IU5 

24 

UNFORMATTED  (BINARY) 

264  :C 

PRO JCT 

IU  6 

25 

F6  *2 

265  :  C 

PREF 

I U  7 

26 

F8.6 

266  :  C 

LOG 

I U  8 

27 

16 

267  i  C 

ALLOCATE 

I U  9 

3 

16 

268  :  C 

FALLOC 

IU10 

4 

16 

269  :  C 

CIPS 

lull 

7 

Fir. 3 

270  :  C 

COPS 

IU  12 

e 

F1C. 3 

271  :C 

TTLOS 

IU  1  3 

9 

UNFORMATTED  (BINARY ) 

272  :  C 

AFPIN 

IAFPTN 

17 

IN  SPECS 

273 :  C 

AFPOUT 

IU0UT1 

18 

IN  SPECS 

274 ;  C 

ESHOTS, SHOTS 

IU  OUT  3 

33 

UNFORMATTED  (BINARY  T 

275  :C 

DUELS 

IU  1  4 

31 

IS 

276  r  C 

TIMES 

IU  15 

32 

UNFORMATTED  (BINARY ) 

277:  END 

Figure  D-VI-8.  Modified  SSPK  Generation  Program 
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ANNEX  VII  TO  APPENDIX  D 

PROGRAMS  AND  NOTES  FOR  FOUR  COMBAT  MODULE  PREPROCESSORS  - 
PREFGEN,  RNGDSTGEN,  PKSGEN,  AND  PROUGEN 


Section  I.  OVERVIEW 

D-VII-1.  This  annex  describes  briefly  four  preprocessors  of  the  Combat 
Module.  All  four  preprocessors  transform  previously  prepared  input  data 
into  files  in  the  forms  required  by  the  principal  program  of  the  Combat 
Module.  The  relation  of  the  four  preprocessors  to  the  AFP  Combat  Module, 
and  AFP  System  in  general,  is  portrayed  in  Figure  D-VII-1. 


11  esSG.ABEIK  G.HAINSSG/SKBLREP,G.MAINSSG/SGS {F) 
- - - E  (ENV)N  (REP1) 


MET  nor 

t.nOCXHiV  C.HTflCEHAl 

t.ntjPFTRv  c.jTahp.tic* 
_ _  ii  _ 


22  ?ADD  G.LONGROLLSSG/SKELOPTSX 
fADD  G . GOROL (P )  (R)Z 


SXQT  GJR  .AFPSTATSTRAT/TEST 


25  § ADD  R .COMPXQT(IJ) 
~XQT  G. COMPARE 


■  I 

COMPARE 

RENTES 

0* 

C :  \i  e 

Figure  D-VII-1.  The  Relation  of  Four  Combat  Module  Preprocessors 
(PREFGEN,  RNGDSTGEN,  PKSGEN,  and  PROJGEN)  to  the 
Module's  Principal  Program  (MAIN) 


Section  II.  PREPROCESSOR  PROGRAMS  AND  NOTES 
D-VII-2.  PREFGEN 

a.  Program  PREFGEN  processes  the  sequential  data  file  PREF  previously 
created  in  task  5  of  the  Combat  Module  input  data  preparation.  The  file 
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PREF  and  task  5  are  described  in  Annex  II  to  Appendix  D.  The  file  PREF 
contains  user-specified  fractional  preferences  for  shooting  weapons  to 
engage  targets  (which,  too,  may  be  able  to  shoot).  Program  PREFGEN 
generates  so-called  "modified  preferences"  in  order  to  reconcile  the 
possible  conflicting  preferences  of  opponents.  The  original  preferences  of 
two  opposing  types  are  first  moved  "halfway  toward  their  arithmetic  mean." 
These  intermediate  values  are  then  "renormalized"  so  that  the  sum  of  the 
modified  preferences  for  each  weapon  equals  the  sum  of  the  original 
preferences.  The  modified  preferences  are  then  output  to  a  direct  access 
file  in  the  form  required  by  the  main  program  of  the  Combat  Module. 

b.  The  PREFGEN  source  program  is  listed  in  Figure  D-VII-2. 

c.  Input  Files.  Unit  15  -  basedata 


Unit  12  -  preference  file 


d.  Runstream  Input.  String  of  six  1 1 s  separated  by  blanks. 

e.  Format  of  Sequential  Symbolic  Preference  Input  File.  Free  field 
format. 

f.  Method 

.  (1)  For  each  combination  of  preferences,  each  preference  is  moved 
halfway  toward  the  average. 

Example:  Blue  Type  1  Red  Type  2 


Preference  for 
Red  Type  2 


Preference  for 
Blue  Type  1 


.2 


.4 


The  average  is  .3 

Moving  the  Blue  preference  halfway  toward  the  average: 

(.2  +  . 3)/2  =  .25 

Moving  the  Red  preference  halfway  toward  the  average: 

(.4  +  . 3 )/2  =  .35 

So  the  new  (modified)  preferences  are: 


Blue  Type  1 
Preference  for 
Red  Type  2 


Red  Type  2 
Preference  for 
Blue  Type  1 


.25 


.35 
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UNCLASSIFIED 
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23 

24 
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26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 
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41 
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★H7AFPC1 ) .PREFGENC2) 
INCLUDE  PAR* 
INCLUDE  BK1 
INCLUDE  BK3 


DEFINE  FILE  I U7 ( N R 7 f I R S 2 7 f F , N E XT7 ) 

PARAMETER  ERROR=.G2 

DIMENSION  PRE FS( 2, ITYPS, ITYPS )  .PREFS1 (2,  IT YPS ,ITY PS) 
DIMENSION  SUMS<2fITYP$),$UMS1  (i.ITYPS) 

REAL  PREFS,PREFSl,SUMSf SUMS1 

INTEGER  COMBO, TPD,THTR,NVIS,NDAY,NPOS 

LOGICAL  ERRORS 

CONTINUF 
ERRORS*. FALSE . 

READ(IUIN6,100)  NDAYS,NTYPS(1),NTYPS(2) 

FORMATO 

READ <5 ,100)  COMBO,TPD,THTR,NV!S,NDAY,NPOS 
CASE=(NVIS-1 )*IDAY*IPOS+(NDAY-1)*IPOS+(NPOS-1 ) 

PRE FI = (THTR-1 ) *  I C A S E ♦ C A S E 
00  1000  1=1,2 

READ (IU IN*, 100)  (  (PREPS  (I,  J  ,K),  It  =1,  NTYPS  (3-1)  )  , 

8  J=1,NTYPS(I) ) 

CONTINUE 
DO  3000  1=1,2 
DO  3000  J=1 , NTYPS ( I ) 

SUMS (I,J)=0.0 
DO  2500  K  =  1 , NTYPS (3-1) 

SUMS(I,))=SUMS(I,J)+PREFS(I,J,K) 

CONTINUE 

1 Fui riyUf <I»J)  .GT.  1.0  ♦  ERROR  )  THEN 
WRITE (6 ,2600)  J , I , SUMS (  I  , J ) 

FORMAT(  /  jlXdOdH*),'  PREFERENCES  FOR  TYPE  ',13,'  SIDE 
8  » 3X ,  SUM  TO  »F9.6,1X,10(1H*)  ) 

ERRORS*. TRUE. 

END  I  F 
CONTINUE 

IF  (  FRRORS  )  CALL  FABORT 
DO  4000  J=1 .NTYPS ( 1 ) 

DO  4000  K=1,NTYPS(2) 

TEMP= ( PP £  F S (1,J,K)+PREFS(2,K,J))/2.0 
PREFS1  (1 , J,K)=(PREFS(1 , J ,K) +TFMP) /2 .0 
contInue  (2,’c,  j)  =  (pre,:s (2.k.J)*temp  1/2.0 

DO  5000  1=1,2 
DO  5000  J=1,NTYPS(I) 

SUMS  1 (I , J ) =0.0 
DO  5000  K=1 , NTYPS (3-1 ) 

SUMS1  (I  ,J)=SUMS1  (I,J)+PREFS1(I»J,K) 

continue 
do  6000  1=1,2 
DO  6000  J=1 , NTYPS ( I ) 

DO  6000  K  =  1  ,  NTYPS (3-1 ) 

IF  (  SUMS  1 ( I , J )  .GT.  .001  )  THEN 

PREFS1(I.J,n  =  (PREPS1(I,J  »  K ) *  S  UMS  (  I  ,  J  )  )  /  s  UMS 1  (  I  ,  J  ) 

PPEFS1 (I  ,J,K)=0.0 
ENDIF 

6000  CONTINUE 

DO  2000  1=1  ,2 
DO  2000  J=1 , NTYPS ( I ) 

IOPTR7=(I-1 ) MTYPS  +  J 
I0PTR7=I0PTR7+PREF1*2*ITYPS 
WRITE (IU7'IOPTR7, 1100, ERR*1 500) 

(PREFS1(I,J,K),IC=1,NTYPS(3-I)) 

FORMAT  (500(500F8.6) ) 

GOTO  2000 
WRITEC6.1600)  I.J 

FORMAT(|0(1H*) ,Sx,'PREF  WRITE  E R R OR ' , 5 X , ' I N D I C E S =  ', 

<-  »  I  5  v  5  X  j  «  j  0  (i  H*  )  } 

STOP 

CONTINUE 
STOP 
END 
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Figure  D-VII-2.  Source  Listing  of  the  Program  PREFGEN, 
a  Combat  Module  Preprocessor 
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(2)  The  original  sum  of  a  weapon's  preferences  is  maintained. 

Example:  Let's  say  the  raw  preferences  for  Blue  type  1  sum  to  .8  and 

the  modified  preferences  sum  to  .9. 

Each  modified  preference  for  Blue  type  1  against  each 
opponent  is  multiplied  by  .8/. 9  so  the  new  modified 
preferences  again  sum  to  .8. 

(3)  Although  PREFGEN  is  currently  "hardwired"  to  move  original 
opposing  preferences  halfway  (f  =  0.5)  toward  their  mean  before 
renormal ization,  the  method  may  be  easily  generalized  for  any  fraction  (f) 
toward  the  mean.  Let  p  and  q  be  the  original  opposing  preferences.  Let  p' 
and  q'  be  the  opposing  modified  preferences  before  renormal ization.  Then 

p'  =  (1  -  f/2)p  +  (f/2)q 

q'  =  (f/2)p  +  (l-f/2)q 

The  current  value,  f=0.5,  was  chosen  arbitrarily  as  a  "neutral"  value. 

Some  unbalanced  weapons  allocations  have  occurred  with  f=0.5.  Although  the 
imbalances  are  not  the  fault  of  f=0.5,  a  different  value  of  f  may  produce 
better  though  hardly  perfect  weapons  allocations.  One  disadvantage  of  fine 
tuning  f  is  that  f  is  not  a  "natural"  combat  parameter. 

g.  Output  File.  Unit  26,  direct  access. 

(1)  Pointer  to  Record. 

(Side  -  1)  +  ITYPS  +  ID  of  weapon  type 

(2)  Record  Format.  The  preferences  against  all  opponents  in  F8.6 
format. 

D— VII— 3.  RNGDSTGEN 

a.  Program  RNGDSTGEN  processes  the  sequential  data  file  RNGDST 
previously  created  in  task  1  of  the  Combat  Module  input  data  preparation. 
The  file  RNGDST  and  task  1  are  described  in  Annex  III  to  Appendix  D.  The 
file  RNGDST  contains  user-specified  fractional  preferences  by  range  for  the 
engagement  of  opposing  weapons  types,  given  that  opposing  types  do  engage. 
Program  RNGDSTGEN  converts  the  integer  values  in  file  RNGDST  to  real  values 
and  scales  those  values  to  decimal  fractions.  The  program  checks  whether 
the  sum  of  fractions  across  all  ranges  for  each  weapon-type-on-weapon-type 
pairing  is  within  an  acceptable  tolerance  of  1.0.  Any  sum  out  of  tolerance 
generates  an  error  message  and  sets  an  abort  flag.  If  the  abort  flag  is 
not  set  after  all  checks  have  been  made,  program  RNGDSTGEN,  the  range 
preferences,  are  then  output  to  a  direct  access  file  in  the  form  required 
by  the  main  program  of  the  Combat  Module. 

b.  The  RNGDSTGEN  source  program  is  listed  in  Figure  D-VII-3. 
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UNCLASSIFIED 

1 

2 

X 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 
2  4 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 


*  H  7  A  F  P (1 )  .RNGDSTGEN  CO) 
INCLUDE  PAR* 
INCLUDE  B  K 1 
INCLUDE  B  K  3 


C 

C 

C 

C 

C 

c 

c 

2 

c 

ICO 


150 

175 


100C 

1200 

2000 


2100 

2500 

2600 


3  C  00 


DEFINE  FILE  I U2 < N R 2 , I R S Z 2 , F , N E XT2 ) 

PARAMETER  IPLACE=2 

DIMENSION  IRNGCITYPS1 , I T Y  PS  2  , IRANGE) 

DIMENSION  RRNGCITYPS1, I TYPS2, IRANGE) 

INTEGER  IRNG ,  COMBO ,  TPD  ,THTR  f N VI  SUNDAY f NPOS 

REAL  RRNG 

LOGICAL  ERRORS 

CONTINUE 

ERRORS=. FALSE . 

READ (IUIN6, 100)  NDAYSfNTYPSCI ) fNTYPS (2) 

FORMAT  C ) 

RE AD (5, 100)  COMBO, TPD, THTR,NVIS,NDAY, NPOS 
CASEr(NVIS-1 )*IDAY*IPOS+ (NDAY-1 ) *  I POS ♦ (NPOS-1 ) 

PRE FI = (THTR-1 )*I CASE* CASE 
DO  175  J  =1 ,NTYPS (1 ) 

READ(IUIN2,150)  ((IRNG(J,<,L),L=1, IRANGE), K-1,NTYPS(2)) 
FORMAT (2413) 

CONTINUE 

DO  2000  J  =  1  , N T Y  P S ( 1 ) 

DO  2000  K=1,NTYP$<2) 

SUM^O.O 

DO  1000  L=1, IRANGE 

TEMP  =  IRNG(J,K,L)/<10.0**IpHCE) 

RRNG(J,K,L)=TEMP 

SUM=SUM4TEMP 

CONTINUE 

IF  (  (SUM  .GT.  1.0+SMALL2)  .OR.  (SUM  .LT.  1.0-SMALL2)  ) 

.WP ITE (6 ,1 200)  J , K, SUM 

F0RMAT(/,1X, 10(1 H*),3X, 'TYPES  ',l3f3X,l3,3X,'SU*  '  ,  F9  . 
8  f  3X  « 1 0 ( 1 H*) ) 

ERRORS=.TRUE. 

ENDI  F 
' CONTINUE 

IF  (  ERRORS  )  CALL  FABORT 
DO  3000  J=1 ,NTYPS (1 ) 

DO  3C00  K  =  1  ,NTYPS  (2) 

I0PTR2=( J-1 ) *N21 *K 
I0PTR2*I0PTR2+PREF1 *ITYPS1*ITYPS2 
WRITE ( IU2^IOPTR2,2100,ERR=2500) 

&  (RRNG(J,K,L) ,L=1 , IRANGE) 

FOR*AT(5QC<5CQF4.2) ) 

GOTO  3000 
WRITEC6 ,2600)  J  «  K 

FORMAT (30(lH*)15Xt'RN6DST  WRITE  ERROR', 5Xf'INDIC£Sr  ', 

8  2(15, 5X) ,30(1H*)) 

STOP 

CONTINUE 
STOP 
END 


Figure  D-VII-3.  Source  Listing  of  the  Program  RNGDSTGEN, 
A  Combat  Module  Preprocessor 
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c.  Input  Files.  Unit  15  -  basedata 


Unit  11  -  range  distribution 


d.  Runstream  Input.  String  of  six  l's  separated  by  blanks. 

e.  Format  of  Sequential  Range  Distribution  Input  File.  Each  line 
contains  24  integers  in  13  format. 

f.  Output  File.  Unit  21,  direct  access. 

(1)  Pointer  to  Record. 

(Side  1  type  ID  -  1)  *  ITYPS2  +  Side  2  type  ID 

(2)  Record  Format.  The  range  distribution  for  each  combination  of 
types  as  real  numbers  in  F4.2  format. 

D-VII-4.  PKSGEN 

a.  Program  PKSGEN  processes  the  sequential  data  file  PKS  previously 
created  in  task  4  of  the  Combat  Module  input  data  preparation.  The  file 
PKS  and  task  4  are  described  in  Annex  VI  to  Appendix  D.  The  formatted  file 
PKS  contains  SSPKs  by  range  for  weapon-type-on-weapon-type  engagements. 
Program  PKSGEN  generates  an  unformatted  sequential  file  in  the  form 
required  by  the  main  program  of  the  Combat  Module. 

b.  The  PKSGEN  source  program  is  listed  in  Figure  D-VII-4. 

c.  Input  File.  Unit  10  -  PK  file 

d.  Sequential  Input  File  Format.  Each  line  contains  four  groups,  each 
group  consisting  of  six  integer  PKS.  The  six  PKS  correspond  to  the  six 
ranges. 

(1)  Six  PKS  for  mobility  kills. 

(2)  Six  PKS  for  firepower  kills. 

(3)  Six  PKS  for  catastrophic  kills. 

(4)  Six  PKS  for  M/F  kills. 

Each  line  is  read  using  24F3.3  in  the  format. 

e.  The  output  file  is  sequential  and  is  written  onto  Unit  20.  Each 
line  contains: 

(1)  The  side  of  the  shooter. 

(2)  The  Side  1  weapon  type  in  the  conflict. 
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(3)  The  Side  2  weapon  type  in  the  conflict. 

(4)  The  six  M/F  PKS  corresponding  to  the  shooting  type. 
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29 

30 

31 

32 

33 

34 
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36 

37 

38 


C 

c 

c 

c 

c 

c 


c 


301 

300 

20G 

ICO 


700 


60C 

500 

400 


PROGRAM  PKSGEN 


INCLUDE  PARM,LIST 

REAL  PK(2, ITYPS, ITYPS, IRANGE) ,  PKl(IRANGE) 

INTEGER  TYPE (2) 

LOGICAL  ALLZ 

DEFINE  FILE  I  L'l  C  S  D  F  ,  ,  I  R  S  Z 1  ,  ,  I  R  S  Z1  ) 

DO  100  ISIDF  =•  1,2 

CO  200  I T 1  =  1.ITYPS 
TYPECISIDE)  =  IT1 
DO  3GO  IT2  =  1  ,  ITYPS 
TYPE (3-ISIDE)  =  IT2 
READ  (IUIN1 ,301 ) 

8  formatK(6F3DI}TYPE<1),TYPE<2),I)’  I=1’IRAN6E3 

CONTINUE 

CONTINUE 

CONTINUE 

DO  400  IT1  *  1. ITYPS 
TYPE ( 1 )  =  I T1 
DO  500  ISIDE  =  1,2 
DO  600  IT2  =  1, ITYPS 
TYPE  C  2 )  =  IT2 
DO  700  I  =  1.IRANGE 

PK1(I)  =  PK (ISIDE ,TYPE(1 ), TYPE (2) , I) 

CONTINUE 

IF  (.NOT.  ALLZ (PK1 , IRANGE)) 

8  WRITE  (IU1)  ISIDE,  TYPE(I),  TYPE(2),  PK1 

CONTINUE 
CONTINUE 
CONTINUE 
END 


Figure  D-VII-4.  Source  Listing  of  the  Program  PKSGEN, 
a  Combat  Module  Preprocessor 


D-VII-5.  PROJGEN 

a.  Program  PROJGEN  processes  the  sequential  data  file  ENGAGE  previously 
created  in  task  2  of  the  Combat  Module  input  data  preparation.  The  file 
ENGAGE  and  task  2  are  described  in  Annex  V  to  Appendix  D.  The  free- 
formatted  file  ENGAGE  contains  user-specified  participation  factors  and 
conflict  specifications  by  weapon  type  on  weapon  type.  A  participation 
factor,  p,  0.0  <  p  <  1.0,  specifies  that  only  the  fraction  p  of 

weapons  allocated  to  engage  on  a  day  do  "reach"  the  engagements.  The 
fraction  (1-p)  is  not  lost  but  becomes  available  for  allocation  on  the 
following  day.  The  participation  factor  is  applied  each  day.  Program 
PROJGEN  scales  the  real  input  values  and  outputs  them  to  a  direct  access 
file  in  the  form  required  by  the  main  program  of  the  Combat  Module. 
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b.  The  PROJGEN  source  program  is  listed  in  Figure  D-VII-5. 
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28 
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INCLUDE  PAR  * 

INCLUDE  B  K 1 
INCLUDE  BK3 
C 

DEFINE  FILE  I U6 (NR6 , 1 R S 1 6  ,  F  ,  N E XT6 ) 

PARAMETER  IPLACE=2 
C 

DIMENSION  PROJl ( ITYPS1 , ITTPS2 , 5) 

DIMENSION  PR0J2(ITYPS1 ,ITYPS2,5) 

REAL  PROJ? 

C 

INTEGER  PR0J1 , COMB 0 , TP D , T HT R , N V I S , ND A Y , N PO S 

2  CONTINUE 

C 

READ(IUIN6,100)  NDAYS,NTYPS(1),NTYPS(2) 

ICO  FORMATO 

R5AD(5  ,100)  COMBO,TPD,THTR,NVIS»NDAYfNPOS 
CASE  =  (NVIS-1)*IDAY*IPOS*(NDAY-1)*IPOS«’(NPOS-1) 
PREF1=(THTR-1)*ICASE+CASE 

DO  1000  1=1 t NT YPS ( 1  ) 

DO  1000  J=1,NTYPS(2) 

„„„  REAP(IUIN4,100)  (  P  R  0  J  1  (  I  ,  J  ,  O  ,  K  =  1  ,  5  ) 

1000  CONTINUE 

DO  2000  I *1  ,  NT YPS ( 1 ) 

DO  2000  J=1,NTYPS(2) 

DO  2000  K  =  1 t 5 

„„„„  PR0J2(I,J,K)=PR0J1 (I,J,K)/(10.0**IPLACE) 

2000  CONTINUE 

DO  3000  1=1 , NT Y  P  S (1 ) 

I0PTR6=I 

I0PTR6=I0PTR6+PREF1*ITYPS1 

WRITE(IU6'IOPTR6,2100tERR=2500) 

8  ( (PROJ2C I, J ,K) ,  K  =  1 , 5) ,J=1 , NT YPS  C 2 3 > 

2100  FORMAT (500(500F6.2) ) 

GOTO  2000 

2500  WRITE (6,2600)  I 

2600  FORMAT <2Q(1H*) ,5x, 'PROJECT  WRITE  ERROR" , 5X , 'INDEX 

8  15 ,5X ,30<lH*) ) 

STOP 

3000  CONTINUE 
STOP 
END 


Figure  D-VII-5.  Source  Listing  of  the  Program  PROJGEN, 
a  Combat  Module  Preprocessor 


c.  Input  Files.  Unit  15  -  basedata 

Unit  13  -  projection/participation 

d.  Runstream  Input.  String  of  six  l's  separated  by  blanks. 
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e.  Format  of  Sequential  Projection/Participation  Input  File.  Free 
field  format— all  inputs  real.  For  each  Side  1  type  and  Side  2  type: 

(1)  The  participation  factor  for  the  Side  1  type. 

(2)  The  participation  factor  for  the  Side  2  type. 

(3)  The  conflict  duration  in  minutes. 

(4)  The  number  of  identical  sites  of  which  this  battle  is  typical. 

(5)  The  number  of  conflicts/day. 

f.  Output  File.  Unit  25,  direct  access. 

(1)  Pointer  to  Record.  ID  of  Side  1  type. 

(2)  Record  Format.  The  five  numbers  described  above,  for  each  Side  2 
type,  in  F6.2  format. 
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ANNEX  VIII  TO  APPENDIX  D 
AFP  ARTILLERY  PREPROCESSOR 

Section  I.  OVERVIEW 


D-VIII-1.  GENERAL.  This  annex  describes  the  artillery  preprocessor  of  the 
AFP  Firepower  and  Counterfirepower  Module.  The  main  program  of  the  AFP 
Combat  Module  decomposes  battle  into  direct  fire  engagements  between  single 
opposing  weapon  types.  Area  weapons  (including  mortars,  artillery,  and 
rockets)  may  fire  on  the  direct  fire  engagements.  However,  because  the 
main  program  of  the  Combat  Module  does  not  include  explicit  information 
about  the  mix  and  distribution  of  weapons  within  indirect  fire  areas,  a 
preprocessor  sensitive  to  the  geometry  and  contents  of  target  complexes  is 
applied  to  generate  appropriately  adjusted  lethalities  of  indirect  fire. 

The  AFP  Artillery  Preprocessor  accepts  a  variety  of  special  input  data  and 
generates  so-called  "effective  fractional  damage  (EFD)"  data  for  shooter 
and  target  weapon  pairings.  With  some  important  distinctions,  an  EFD  is 
the  artillery  analogue  of  an  SSPK  for  direct  fire.  The  SSPK  of  a  direct 
fire  round  is  a  probability  that  the  round  kills  a  single  target.  An  SSPK 
must  lie  on  the  closed  interval  0.0  to  1.0.  Logic  within  the  main  program 
of  the  Combat  Module  treats  SSPKs  as  probabilities.  The  EFD  of  an  indirect 
fire  round  is  the  expected  damage  against  possibly  several  targets  of  the 
same  type  within  the  lethal  area  of  the  round.  In  principle,  an  EFD  may 
exceed  1.0;  however,  computed  EFDs  are  usually  much  smaller  than  1.0.  A 
single  indirect  fire  round  may  also  kill  targets  of  different  types. 

Hence,  a  single  artillery  round  may  have  nonzero  EFDs  against  several 
target  types.  If  there  are  N  target  types  on  the  battlefield,  a  single 
shot  may  be  characterized  by  an  N-element  vector.  A  single  round  SSPK 
vector  may  have  only  one  nonzero  element,  and  that  element  must  be  less 
than  1.0.  A  single  round  EFD  vector  may  have  N  nonzero  elements,  and  the 
elements  may  exceed  1.0.  The  elements  of  such  an  EFD  vector  clearly  depend 
on  characteristics  of  a  round  and  on  the  geometry  and  contents  of  the 
target  area.  In  these  terms,  the  artillery  preprocessor's  purpose  is  to 
build  EFD  vectors. 

D-VIII-2.  INPUT 

a.  Artillery  preferences  for  target  cluster  types  (including  the  type 
of  round  fired). 

b.  Target  cluster  compositions. 

c.  Target  cluster  locations. 

d.  Artillery  characteristics. 

e.  Artillery  target  class  composition. 

f.  Range  distribution  of  artillery. 
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D-VIII-3.  OUTPUT.  Expected  fractional  kills  per  round  of  AFP  targets. 

D-VIII-4.  PROCESS.  The  artillery  preprocessor  models  two  range  bands: 
near  (corresponding  to  Combat  Module  bands  1-5)  and  deep  (corresponding  to 
Combat  Module  range  band  6). 

a.  Compute  the  modified  preference  of  each  indirect  fire  shooter  for 
each  type  of  target  cluster  in  each  of  the  two  range  bands  (based  on  the 
initial  preference  and  the  number  of  clusters  of  each  type). 

b.  Compute  the  expected  fractional  kills  (EFK)  per  round  of  each  class 
of  artillery  target  (troops,  light  vehicles,  heavy  armor,  etc.,  seven 
classes  in  all)  in  each  type  of  target  cluster  in  each  location  (open, 
woods,  or  town),  via  the  Super-Quickie  II  algorithm.  In  the  case  of 
troops,  this  computation  also  involves  their  posture  (standing,  prone,  or 
in  foxholes)  in  addition  to  the  data  required  for  the  other  target  classes. 

c.  Weight  the  EFKs  computed  in  step  b  by  the  fraction  of  clusters  in 
each  location  and  sum  over  locations  to  produce  the  EFK  of  each  class  of 
target  in  each  type  of  target  cluster. 

d.  For  each  shooter,  calculate  the  expected  fractional  kills  according 
to  the  formula: 

n 

efk(i,r)  =  ^  mp(k,r)  *  efkl(k,m)  *  den( i ,k)/class(k,m) 
k=l 


where: 


n 

efk(i,r)  = 

mp(k,r) 

efkl(k,m) 

m  = 

den(i,k) 
class  (k,m)  = 


the  number  of  target  cluster  types 

the  expected  fractional  kills  of  AFP  type  i  in  artillery 
preprocessor  range  band  r  (near  or  deep) 
the  modified  preference  of  this  shooter  for  target 
clusters  of  type  k  in  range  band  r 

the  expected  fractional  kills  of  artillery  target  class  m 
in  target  cluster  type  k 

the  artillery  target  class  of  AFP  type  i  (1  m  7) 
the  number  of  type  i  targets  in  target  cluster  type  k 
the  number  of  targets  of  artillery  target  class  m  in 
target  cluster  type  k 


Section  II.  INPUT  FILES 


D— VIII— 5.  TYPEMAP  FILE 

a.  File  Name:  Artillery  target  type-mapping  Unit  number:  5 


D-VIII-2 
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b.  Description:  This  file  maps  AFP  target  numbers  to  artillery  target 
classes.  The  first  five  lines  are  descriptive  information  disregarded  by 
the  processing  program. 


c. 

Used  by:  APIN1 

d. 

Description  of 

Fields: 

Name 

Position 

Type 

SC 

1 

C 

ID 

2-3 

I 

DESCR 

10-19 

C 

IATCL 

24 

I 

D-VIII-6.  ARTYPREF  FILE 


Description 

Target  side,  B  or  R 
AFP  identification  number 
Target  description 

Artillery  target  class  0-7,  with  the 
following  meaning: 

0  =  invulnerable  to  artillery 

1  =  troops 

2  =  light  vehicles 

3  =  heavy  armor 

4  =  light  armor 

5  =  crew-served  weapon 

6  =  light  artillery 

7  =  heavy  artillery 


a.  File  Name:  Artillery  preference  file 


Unit  number:  5 


b.  Description:  This  file  specifies  the  preference  of  each  artillery 
shooter  for  each  type  of  target  cluster.  It  is  not  necessary  that  the  file 
include  data  for  every  possible  shooter  (51-60);  those  not  included  will  be 
presumed  to  be  "dummies"  and  will  produce  no  kills.  The  first  five  lines 
of  the  file  are  human-readable  descriptive  information  disregarded  by  the 
processing  program. 


c.  Used  by:  APIN1 


d. 

Description  of  Fields 

Name 

Position 

Type 

SC 

1 

C 

ID 

2-3 

I 

DESCR2 

8-27 

c 

TSC 

30 

c 

ITCT 

31-32 

I 

P 

39-43 

R 

Description 

Shooter  side,  B  or  R 
Shooter  identification  number,  51-60 
Shooter  description 
Target  cluster  side,  B  or  R 
Target  cluster  identification  number 
Preference  of  this  shooter  for  this 
type  of  target  complex.  The  total 
preferences  of  a  given  shooter  must 
sum  to  1 
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Name 

IAM 


Position  Type 

45  I 


D-VIII-7.  ARTYDATA  FILE 

a.  File  Name:  Artillery  data  file 


Description 

Type  of  ammo  to  be  fired  by  this 
shooter  at  this  type  of  target 
cluster,  0-2  with  the  following 
meaning: 

0  =  I  CM 

1  =  HE 

2  =  VT 


Unit  number: 


b.  Description:  This  file  contains  the  technical  characteristics  of 
the  artillery  and  ammunition.  One  chunk  of  data  requires  two  lines  in 
the  file  and  corresponds  to  a  specific  combination  of  shooter, 
ammunition,  class  of  target,  and  target  location.  For  troop-class 
targets,  their  posture  (standing,  prone,  or  in  foxholes)  is  also 
considered. 

c.  Used  by:  APIN2 

d.  Description  of  Fields: 


Name  Position 

(First  of  two  lines) 


Type 


Description 


SC 

1 

C 

Shooter  side,  B  or  R 

ID 

2-3 

I 

Shooter  number,  51-60 

WPNNAM 

4-23 

C 

Shooter  description 

AMODES 

24-33 

C 

Ammunition  description 

IATCL 

34 

I 

Target  class,  1-7 

TGTDES 

36-45 

C 

Target  description.  For  troop-class 
targets,  the  7th  column  of  this 
field  specifies  their  posture: 

S  =  standing 

P  =  prone 

F  =  foxhole 

ILOCN 

46 

I 

Target  location: 

1  =  open 

2  =  woods 

3  =  town 

AMOTYP 

47 

I 

Ammunition  type: 

0  =  I  CM 

1  =  HE 

2  =  VT 

NV 

48-49 

R 

Number  of  volleys  to  be  fired  at  the 
target 

AL 

D-VIII-4 

50-54 

R 

Lethal  area  of  a  round  (sq  meters) 

LO 
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Name 

Position 

Type 

Description 

LV 

55-59 

R 

Length  of  volley  pattern  (meters) 

WV 

60-64 

R 

Width  of  volley  pattern  (meters) 

NR 

65-67 

R 

Number  of  rounds  per  volley 

RR  68-70 

(Second  of  two  lines) 

R 

Round  reliability 

REPM 

1-5 

R 

Mean  point  of  impact  range  error 
probable  (meters) 

DEPM 

6-10 

R 

Mean  point  of  impact  deflection 
error  probable  (meters) 

CEPM 

11-15 

R 

Mean  point  of  impact  circular  error 
probable  (meters) 

TLE 

16-20 

R 

Target  location  error  (meters) 

REPP 

21-25 

R 

Precision  range  error  probable  (meters) 

DEPP 

25-30 

R 

Precision  deflection  error  probable 
(meters) 

CEPP 

31-35 

R 

Precision  circular  error  probable 
(meters) 

K 

36-38 

R 

Pattern  adjustment  factor 

OMEGA 

39-41 

R 

Angle  of  fall,  for  HE  (degrees) 

NS 

42-44 

R 

Number  of  submunitions,  for  I CM 

RS 

45-47 

R 

Reliability  of  a  submunition,  for  ICM 

LSP 

48-52 

R 

Single  round  submunition  pattern 
length  (meters)  for  ICM 

WSP 

53-57 

R 

Single  round  submunition  pattern 
width  (meters)  for  ICM 

RSP 

D-VIII-8. 

58-62 

TGTDENSITY  FILE 

R 

Single  round  submunition  pattern 
radius  (meters)  for  ICM 

a.  File  Name:  Target  density  file  Unit  number:  5 

b.  Description:  This  file  contains  the  densities  (inventories)  of  each 
of  the  AFP  weapon  types  in  each  of  the  artillery  target  clusters. 


c. 

Used  by:  APIN1 

d. 

Description  of  Fields: 

Name 

Position  Type 

Description 

SC 

1  C 

The  side  of  the  target  cluster,  B  or  R 
(possibly  blank,  in  which  case  the 
line  contains  only  IT  and  DEN) 

JTCT 

2-3  I 

The  identification  number  of  the 
target  cluster 
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Description 

The  AFP  identification  number  of  the 
target  weapon  type 

The  density  of  the  target  weapon  within 
the  target  cluster 


Unit  number:  5 

b.  Description:  This  file  contains  the  distribution  of  each  of  the 
indirect  fire  shooters  to  the  two  range  bands  (near  and  deep)  used  by 
the  artillery  preprocessor.  The  first  line  of  this  file  is  descriptive 
information  not  processed  by  the  program. 


Name 

IT 

DEN 


Position 

19-20 

21-29 


Type 

I 

R 


D— VIII— 9.  RNGDIST  FILE 

a.  File  Name:  Range  distribution 


c.  Used  by:  APIN1 

d.  Description  of  Fields: 


Name 

Position 

Type 

SC 

1 

C 

IS 

2-3 

I 

DIST(l) 

10-13 

R 

DIST(2) 

25-28 

R 

Description 

Shooter  side,  B  or  R 

Shooter  identification  number,  51-60 

Fraction  of  shooters  assigned  to  band 

1  (near) 

Fraction  of  shooters  assigned  to  band 

2  (deep) 


(Fractions  must  sum  to  1.0) 

D-VIII-10.  AFPINV  FILE 


a.  File  Name:  AFP  inventory  file  Unit  number:  5 

b.  Description:  This  file  contains  the  number  of  each  AFP  type.  The 
first  nine  lines  of  this  file  are  descriptive  information  not  processed  by 
the  program.  The  file  also  includes  information  about  the  types  of  weapons 
mounted  on  each  firing  platform,  but  this  information  is  disregarded  by  the 
processing  program.  Only  the  lines  which  contain  a  nonblank  character  in 
column  1  are  processed  fully;  these  are  the  lines  which  contain  the 
inventory  data. 

c.  Used  by:  APIN1 
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d.  Description  of  Fields: 


Name 

Position 

Type 

SC 

1 

C 

ID 

2-3 

I 

DESCR 

10-19 

C 

INVTRY 

26-35 

I 

D-VIII-11.  TGTDATA  FILE 


Description 

Side,  B  or  R 

AFP  identification  number 

Description 

Inventory  (NOTE:  Although  this  field 
is  read  with  an  I  type  format,  blanks 
are  treated  as  nulls,  not  zeros, 
contrary  to  the  usual  practice. 
Consequently,  the  number  need  not 
be  right-justified  in  the  field.) 


a.  File  Name:  Artillery  target  data  file  Unit  number:  5 

b.  Description:  This  file  describes  the  dimensions  of  artillery 
target  clusters. 


c.  Used  by:  APIN1 

d.  Description  of  Fields: 


Name 

Position 

Type 

SC 

1 

C 

ID 

2-3 

C 

DESCR2 

5-24 

c 

TL 

25-30 

R 

TW 

31-36 

R 

D-VIII-12. 

TGTLOC  FILE 

Description 

Target  cluster  side,  B  or  R 
Target  cluster  identification  number 
Target  cluster  description 
Length  of  target  cluster  (meters) 
Width  of  target  cluster  (meters) 


a.  File  Name:  Target  location  file  Unit  number:  5 

b.  Description:  This  file  specifies  the  fraction  of  target  clusters  of 
each  type  to  be  found  in  each  of  the  three  types  of  location:  open,  woods, 
and  town.  It  also  specifies  the  total  number  of  clusters  of  each  type. 

The  first  nine  lines  of  the  file  are  descriptive  header  information  not 
processed  by  the  program. 


c.  Used  by:  APIN1 
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d.  Description  of  Fields: 


Name 

Position 

Type 

SC 

1 

C 

ID 

2-3 

I 

DESCR 

4-13 

C 

FL0C(1) 

23-26 

R 

FL0C(2) 

29-33 

R 

FL0C(3) 

36-39 

R 

IPOST 

42 

I 

NCMPLX(l)  47-53 

R 

NCMPLX(2)  56-62 

R 

Description 

Target  cluster  side,  B  or  R 
Target  cluster  identification  number 
Target  cluster  description 
Fraction  located  in  open 
Fraction  located  in  woods 
Fraction  located  in  towns 
Posture  of  troops  in  each  cluster: 

1  =  standing 

2  =  prone 

3  =  foxhole 

This  field  may  be  omitted  if  the 
cluster  contains  no  troops 
Number  of  target  clusters  of  this  type 
in  range  band  1  (near) 

Number  of  target  clusters  of  this  type 
in  range  band  2  (deep) 


Section  III.  PROGRAM  ARRAYS  AND  VARIABLES 


D-VIII-13.  APDAT  BLOCK 


a.  Block  Name:  APDAT 


b.  Used  by:  APIN1,  APIN2,  APOUT,  ARTPRE 

c.  Block  Description: 

Name  Dimension  Type  Description 


The  following  are  input  data: 


NTCT  2  I 

ARTYCL  2, ITYPS  I 

NTYPS  2  I 

POSTUR  2 ,MAXTCT  I 

I AMMO  2,  I 

LOARTY:HIARTY 

IOPT  MAXOPT  I 


Number  of  target  cluster  types,  by  side 
Arti llery' target  class,  by  side  and  AFP 
weapon  type  number  (0  if  target  is  in¬ 
vulnerable  to  artillery) 

Number  of  AFP  weapon  types,  by  side 
Posture  of  troops,  by  side  and  target 
cluster  type  (1  =  standing,  2  =  prone, 

3  =  foxhole) 

Type  of  ammo  to  be  fired,  by  shooter  side 
and  indirect  fire  weapon  number 
Run  control  options  (currently  only  one: 
arty  data  print  control) 
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PREF 

2, 

LOARTY:HIARTY, 

MAXTCT 

R 

TL 

2,MAXTCT 

R 

TW 

2, MAXTCT 

R 

FLOCN 

2, MAXTCT, 

NLOCN 

R 

NCMPLX 

2, MAXTCT, 

NRANGE 

R 

CLWPN 

2, MAXTCT, ITYPS 

R 

RNGDST 

2, 

LOARTYrHIARTY, 

NRANGE 

R 

WPID 

2, ITYPS 

C*10 

CLSTID 

2, MAXTCT 

C*10 

This  is  the  end  of  the  input  dal 

EFK1 

2, 

LOARTY:HIARTY, 
MAXTCT, NATCL 

R 

MPREF 

2, 

LOARTY:HIARTY 

MAXTCT 

R 

EFK3 

2, 

LOARTYrHIARTY, 
ITYPS, NRANGE 

R 

TDEN 

2, MAXTCT, 

NATCL 

R 

D— V I II- 

-14.  ERRDAT  BLOCK 

a. 

Block  Name:  ERRDAT 

b. 

Used  by:  APIN1,  APIN2,  / 

c. 

Block  Description: 

Name 

Dimension 

Type 

NERRS 

_ 

I 

NERRSL 

— 

I 

The  raw  (unmodified)  target  preference,  by 
shooter  side,  shooter  type,  and  target 
cluster  type 

Target  cluster  length  (meters),  by  side  and 
target  cluster  type 

Target  cluster  width  (meters),  by  side 
and  target  cluster  type 
Fraction  of  target  clusters  in  type  of 
location,  by  side,  target  cluster  type, 
and  location  type 

Density  of  target  cluster  type,  by  side, 
target  cluster  type,  and  range 
Composition  of  target  cluster  by  AFP 
identification  number 
Distribution  of  shooters  to  range  bands 


type  number 
irget  cluster  i dent i f 
target  cluster  type 


The  expected  fractional  kill,  by  shooter 
side,  shooter  type,  target  cluster  type, 
and  artillery  target  class 

Modified  target  preference  (taking  density 
of  target  clusters  into  account)  by 
shooter  side,  shooter  type,  and  target 
cluster  type 

Expected  fractional  kill,  by  shooter  side, 
shooter  type,  AFP  target  type  number,  and 
range 

Target  density,  by  side,  target  cluster 
type,  and  artillery  target  class 


Description 

Total  number  of  errors  detected 
Total  number  of  errors  detected  on  the 
current  input  line 
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Section  IV.  PROGRAM  ROUTINES 


D-VIII-15.  ARTPRE 


a.  Name:  ARTPRE 


Type:  Main  program 


b.  Purpose:  Controls  the  overall  process  of  the  artillery 
preprocessor. 

c.  Arguments:  None 

d.  Called  by:  None 

e.  Calls:  APIN1,  APIN2,  APOUT,  ZERO 

f.  Common  Blocks  Used:  APDAT,  ERRDAT 

g.  Files  Used:  Reads  from  unit  5. 

h.  Local  Arrays:  None 

i.  Method:  First,  read  the  run  control  option(s).  Invoke  APIN1  to 
read  all  of  the  input  data  except  the  artillery  characteristics,  i.e.,  the 
artillery  target  preferences,  target  cluster  dimensions,  target  cluster 
locations,  target  inventories,  artillery  target  class  compositions,  and 
artillery  range  distributions.  Calculate  the  modified  artillery  target 
preferences,  adjusting  the  original  preferences  to  take  the  density  of 
target  clusters  into  account.  Call  APIN2  to  read  the  artillery 
characteristic  file  and  compute  the  initial  expected  fractional  kills 
(EFKs)  of  artillery  target  classes  in  each  target  cluster  type.  Use  the 
modified  preferences  and  the  target  composition  of  each  cluster  to  compute 
the  EFK  of  each  AFP  type  in  each  of  the  two  range  bands.  Finally,  if  no 
errors  have  been  detected,  call  APOUT  to  output  the  results. 


D-VIII-16.  APIN1 


a.  Name:  APIN1 


Type:  Subroutine 


b.  Purpose:  Read  and  validate  first  set  of  artillery  preprocessor  data 
(all  data  but  the  artillery  tube  data). 

c.  Arguments:  None 

d.  Called  by:  ARTPRE 

e.  Calls:  FLUSH,  GETAGG,  GNERR,  ICOLOR,  IZERO,  PRTBOX,  RANGE,  RANGEI , 
and  ZERO 

f.  Common  Blocks  Used:  APDAT,  ERRDAT 
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g.  Files  Used:  Reads  from  unit  5. 

h.  Local  Arrays: 
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Name 

Dimension 

Type 

Description 

C0L0R1 

2 

C*1 

B  and  R  (color  abbreviations) 

ATCL 

NATCL 

C*7 

Artillery  target  class  names 

CLOCN 

NLOCN 

C*5 

Target  cluster  location  names 

XLOCN 

NLOCN 

R 

Temporary  storage  for  target  cluster 
fractional  locations 

XNCMPL 

NRANGE 

R 

Temporary  storage  for  numbers  of  target 
clusters 

XDIST 

NRANGE 

R 

Temporary  storage  for  range  distribution 

i . 

Method:  APIN1 

first  reads 

the  number  of  AFP  weapon  types  and  the 

number  of  target  cluster  types  on  each  side.  Next,  APIN1  reads  the 
artillery  preprocessor  input  files  (excluding  the  artillery  tube  data  file) 
in  the  following  order: 

(1)  The  artillery  target  type-mapping  file,  which  tells  the  artillery 
target  class  of  each  of  the  AFP  target  types. 

(2)  The  artillery  preference  file,  which  contains  the  "raw"  (or 
unmodified)  preference  of  each  type  of  indirect  fire  weapon  for  each  type 
of  target  cluster  and  the  type  of  ammo  fired  at  the  cluster. 

(3)  The  target  data  file,  which  contains  the  dimensions  of  each 
target  cluster  type. 

(4)  The  target  density  file  which  contains  the  densities  of  each  of 
the  AFP  weapon  types  within  each  of  the  target  clusters. 

(5)  The  target  location  file,  which  specifies  the  fraction  of  each 
type  of  target  cluster  found  in  each  type  of  location,  the  posture  of  the 
troops  (if  any)  in  each  type  of  cluster,  and  the  number  of  clusters  of  each 
type  in  each  of  the  two  range  bands. 

(6)  The  range  distribution  file  which  specifies  the  fraction  of  each 
type  of  indirect  fire  shooter  allocated  to  each  of  the  two  range  bands. 

Each  file  is  terminated  by  an  end-of-file  condition.  All  data  is  printed 
and  validated,  and  any  errors  detected  will  result  in  error  messages,  but 
the  routine  will  attempt  to  keep  on  processing  even  in  the  presence  of 
errors. 

D-VIII-17.  APIN2 

a.  Name:  APIN2  Type:  Subroutine 

b.  Purpose:  Read  artillery  tube  data  for  the  artillery  preprocessor 
and  calculate  expected  fractional  kills. 
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c.  Arguments:  None 

d.  Called  by:  ARTPRE 

e.  Calls:  GNERR,  ICOLOR,  INDWPS,  IZERO,  LOOKUP,  PRTBOX,  RANGE,  RANGEI , 
and  ZERO 


f.  Common  Blocks  Used:  APDAT,  ERRDAT 


g- 

Files  Used:  Reads 

from 

unit  5. 

h. 

Local  Arrays: 

Name 

Dimension 

Type 

Description 

CPOST 

NPOST 

C*1 

One-letter  posture  abbreviations 

C0L0R1 

2 

C*1 

R  and  B  (color  abbreviations) 

IREC 

2, 

I 

Used  to  detect  missing  or  duplicate  data 

LOARTY:HIARTY, 
0 : MAXAMO , 
2:NATCL,NL0CN 

for  all  target  classes  except  personnel 

IRECP 

2, 

I 

Used  to  detect  missing  or  duplicate  data 

LOARTY:HIARTY, 
0:  MAXAMO, NLOCN 
NPOST 

1, 

for  personnel  kills 

i.  Method:  Read  and  validate  data  from  the  artillery  tube  data  file. 
Data  from  this  file  may  or  may  not  be  listed,  depending  on  a  run  option, 
I0PT(1).  Setting  I0PT(1)  equal  to  0  will  suppress  the  listing  of  tube 
data,  including  the  lethal  area  data,  which  is  classified.  This  routine 
reads  two  records  at  a  time  (one  set  of  data  requires  two  input  records), 
validates  the  data,  and  checks  for  a  possible  duplication  of  previous  data. 
Records  are  considered  to  be  duplicate  if  they  refer  to  the  same 
combination  of  shooting  side,  shooter,  ammo  type,  artillery  target  class, 
and  type  of  location.  For  personnel  targets,  their  posture  must  match  as 
well.  If  all  is  well,  APIN2  next  checks  to  see  if  the  data  is  needed  to 
compute  EFKs  within  any  of  the  target  clusters.  The  data  is  relevant  only 
if  it  matches  the  type  of  ammo  shot  at  that  type  of  cluster,  and  the 
cluster  includes  targets  of  the  artillery  target  class  specified  by  the 
tube  data.  For  personnel  targets,  their  posture  within  the  cluster  must 
also  match  the  posture  specified  by  the  tube  data.  If  the  data  is  relevant 
according  to  these  criteria,  INDWPS  is  called  to  compute  the  basic  EFK 
against  the  specified  class  of  targets  in  the  specified  cluster.  APIN2 
weights  the  basic  EFK  figure  by  the  fraction  of  clusters  in  the  specified 
location  and  sums  the  result  into  the  EFK1  array,  which  is  used  to 
accumulate  the  total  EFK  for  that  combination  of  cluster  and  target  class. 
This  cycle  is  repeated  for  each  pair  of  input  records  until  the  end  of  file 
is  encountered.  When  all  the  records  have  been  processed,  APIN2  checks  to 
see  that  all  the  data  needed  was  included  in  the  input,  i.e.,  records  were 
found  which  matched  each  required  combination  of  shooting  side,  shooter, 
ammo  type,  artillery  target  class,  and  location  (and  posture  as  well,  for 
personnel).  Any  missing  data  will  result  in  an  error  message. 
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D— VIII— 18.  APOUT 

a.  Name:  APOUT  Type:  Subroutine 

b.  Purpose:  Output  the  results  of  the  artillery  preprocessor. 

c.  Arguments:  None 

d.  Called  by:  ARTPRE 

e.  Calls:  NZRNDX,  PRTBOX,  PRTMR1,  RIGHTJ 


f. 

Common  Blocks  Used: 

:  APDAT, 

ERRDAT 

g- 

Files  Used:  Input 

-  none; 

Output  -  7 

h. 

Name 

Local  Arrays: 

Dimension 

Type 

Description 

ATCL 

NATCL 

C*7 

Artillery  target  class  names 

C0L0R1 

2 

C*1 

B  and  R  (color  abbreviations) 

ROWIND 

2, IEXT 

I 

Indexes  of  nonzero  matrix  rows 

CLUSX 

2 , MAXT  CT 

I 

Indexes  of  nonzero  matrix  columns  (for 

WPNX 

2, ITYPS 

I 

cluster  types) 

Indexes  of  nonzero  matrix  columns  (for 

R0WLB1 

2, IEXT 

C*5 

AFP  weapon  types) 

First  set  of  row  labels  for  matrices 

CLUSL1 

2,MAXTCT 

C*5 

First  set  of  column  labels  (for  cluster 

WPNL1 

2,MAXTCT 

C*5 

types) 

First  set  of  column  labels  (for  AFP 

R0WLB2 

2, IEXT 

C*10 

weapon  types) 

Second  set  of  row  labels  for  matrices 

CLUSL2 

2,MAXTCT 

C*10 

Second  set  of  column  labels  (for  cluster 

WPNL2 

2,MAXTCT 

C*10 

types) 

Second  set  of  column  labels  (for  AFP 

NROWS 

2 

I 

weapon  types) 

Counts  entries  used  in  ROWIND 

NCLUSX 

2 

I 

Counts  entries  used  in  CLUSX 

NWPNX 

2 

I 

Counts  entries  used  in  WPNX 

INR 

IRANGE 

I 

Maps  Combat  Module  range  bands  to 

i . 

Method:  APOUT  first  prints 

artillery  preprocessor  range  bands 

,  in  columnar  form,  the  nonzero  EFKs  for 

each  combination  of  target  cluster  type  and  artillery  target  class.  Next, 
the  routine  sets  up  row  and  column  labels  for  matrices  containing  the 
remaining  data  to  be  printed:  modified  preferences  for  target  clusters  and 
EFKs  of  AFP  target  types.  For  each  of  these  two  matrices  and  each  of  the 
two  preprocessor  range  bands,  APOUT  first  calls  NZRNDX  to  set  up  lists  of 
nonzero  rows  and  columns,  then  calls  PRTMR1  to  print  the  matrix,  complete 
with  row  and  column  labels  and  suppression  of  all-zero  rows  or  columns. 
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Finally,  the  routine  writes  the  EFKs  of  AFP  target  types  to  file  7  in  a 
form  suitable  for  inclusion  in  the  AFP  Combat  Module  base  data  file. 

Combat  Module  EFKs  for  range  bands  1  through  5  correspond  to  the  artillery 
preprocessor  EFK  for  the  near  range  band;  those  for  range  band  6,  to  the 
far  range  band. 

D-VIII-19.  RANGE 

a.  Name:  RANGE  Type:  Real  function 


b. 

c. 

Purpose:  Check 

Arguments: 

a  real 

number 

for  being  in  range. 

Name 

Dimension 

Type 

Use 

Description 

ITEM 

_ 

C*(*) 

I 

Name  of  the  item  being 

XLO 

— 

R 

I 

Lower  bound 

X 

— 

R 

I 

The  number  being  tested 

XHI 

— 

R 

I 

Upper  bound 

d.  Returns:  X,  if  X  is  within  range;  XLO  if  X  is  less  than  XLO;  or  XHI 
if  X  is  greater  than  XHI. 

e.  Called  by:  APIN1,  APIN2,  GETAGG 

f.  Calls:  GNERR 

g.  Common  Blocks  Used:  None 

h.  Files  Used:  None 

i.  Local  Arrays:  None 

j.  Method:  Test  to  see  if  XLO  X  XHI.  If  not,  construct  an  error 
message  saying  "(name)  SHOULD  BE  IN  THE  RANGE  (lower)  to  (higher)"  and  call 
GNERR  to  issue  the  error  message. 

D-VIII-20.  RANGE I 


a. 

Name:  RANGE I 

Type:  Integer  function 

b. 

Purpose:  Check 

an  integer  for 

being  in  range. 

c. 

Arguments: 

Name 

Dimension 

Type 

Use 

Description 

ITEM 

_ _ 

C*(*) 

I 

Name  of  the  item  being  tested 

IXLO 

— 

I 

I 

Lower  bound 

IX 

— 

I 

I 

The  number  being  tested 

IXHI 

— 

R 

I 

Upper  bound 
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d.  Returns:  IX,  if  IX  is  within  range;  IXLO  if  IX  is  less  than  IXLO; 
or  IXHI  if  IX  is  greater  than  IXHI. 

e.  Called  by:  APIN1,  APIN2,  GETAGG 

f.  Calls:  GNERR 

g.  Common  Blocks  Used:  None 

h.  Files  Used:  None 

i.  Local  Arrays:  None 

j.  Method:  Test  to  see  if  IXLO  IX  IXHI.  If  not,  construct  an 
error  message  saying  "(name)  SHOULD  BE  IN  THE  RANGE  (lower)  to  (higher)" 
and  call  GNERR  to  issue  the  error  message. 

D-VIII-21.  GNERR 


a. 

Name:  GNERR 

Type: 

Subroutine 

b. 

Purpose:  Issue 

an  error 

message 

related  to  input  data. 

c. 

Arguments: 

Name 

Dimension 

Type 

Use 

Description 

ITEM 

_ _ 

C*(*) 

I 

Name  of  the  item  in  error 

(or  blank. 

if  the  message  does  not 
a  specific  item) 

refer  to 

MSG 

— 

C*(*) 

I 

The  error  message 

d.  Called  by:  APIN1,  APIN2,  ICOLOR,  RANGE,  RANGEI 

e.  Calls:  None 


f.  Common  Blocks  Used:  ERRDAT 

g.  Files  Used:  None 

h.  Local  Arrays:  None 

i.  Method:  Print  the  name  of  the  item  in  error  and  the  associated 
message.  Increment  variables  NERRS  (the  total  number  of  errors  detected 
thus  far)  and  NERRSL  (the  number  of  errors  on  the  current  input  line)  in 
common  block  ERRDAT.  If  NERRS  exceeds  30,  issue  a  final  error  message  and 
stop. 
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D-VIII-22.  FLUSH 


a.  Name:  FLUSH  Type:  Subroutine 

b.  Purpose:  Flush  a  specified  number  of  input  records. 

c.  Arguments: 


Name 

Dimension 

Type 

Use 

Description 

I  UN  IT 

- - - 

I 

I 

FORTRAN  unit  number  of  the  file 

N 

— 

I 

I 

Number  of  records  to  flush 

d. 

Called  by:  APIN1 

e. 

Calls:  None 

f. 

Common  Blocks 

Used: 

None 

g- 

Files  Used: 

INPUT  - 

IUNIT  (above) 

h. 

Local  Arrays: 

None 

i. 

Method:  Read 

the  specified  number  of  records  from  the  specified 

file. 

or  up  to  the  end  of  the  file,  ' 

whichever  occurs  first. 

D— VI I I 

-23.  INDWPS 

a. 

Name:  INDWPS 

Type:  Subroutine 

b. 

Purpose:  Compute  expected  fractional  kill  of  targets  by  artillery. 

c. 

Arguments: 

Name 

Dimension 

Type 

Use 

Description 

AMOTYP 

— 

I 

I 

Ammo  type:  0  if  ICM,  HE  otherwise 

AL 

— 

R 

I 

Lethal  area  of  a  round  (sq  meters) 

CEPM 

— 

R 

I 

Mean  point  of  impact  circular  error 

probable  (meters) 

DEPM 

— 

R 

I 

Mean  point  of  impact  deflection 

error  probable  (meters) 

REPM 

— 

R 

I 

Mean  point  of  impact  range  error 

probable  (meters) 

CEPP 

— 

R 

I 

Precision  circular  error  probable 

(meters) 

DEPP 

— 

R 

I 

Precision  deflection  error  probable 

(meters) 

REPP 

— 

R 

I 

Precision  range  error  probable 

(meters) 

K 

— 

R 

I 

Pattern  adjustment  factor  (no  units) 
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Name 

Dimension 

Type 

Use 

Description 

LT 

— 

R 

I 

Length  of  target  area  (meters) 

RT 

— 

R 

I 

Radius  of  target  area  (meters) 

WT 

— 

R 

I 

Width  of  target  area  (meters) 

LV 

— 

R 

I 

Length  of  volley  pattern  (meters) 

WV 

— 

R 

I 

Width  of  volley  pattern  (meters) 

LSP 

R 

I 

Single  round  submunition  pattern 
length  for  ICM  (meters) 

RSP 

R 

I 

Single  round  submunition  pattern 
radius  for  ICM  (meters) 

WSP 

.... 

R 

I 

Single  round  submunition  pattern 
width  for  ICM  (meters) 

NR 

“  —  “ 

R 

I 

Number  of  rounds  in  each  volley  (no 
units) 

NS 

^  ™ 

R 

I 

Number  of  submunitions  in  each  round 
for  ICM  (no  units) 

NV 

— 

R 

I 

Number  of  volleys  (no  units) 

RR 

— 

R 

I 

Reliability  of  a  round  (no  units) 

RS 

—  - 

R 

I 

Reliability  of  a  submunition  for 

ICM  (no  units) 

TD 

— 

R 

I 

Target  density 

TLE 

*  ^  ** 

R 

I 

Target  location  error  in  circular 
error  probable  (meters) 

OMEGA 

— 

R 

I 

Angle  of  fall  for  HE  (degrees) 

EFK 

— 

R 

0 

Expected  fractional  kill 

FD 

d. 

e. 

f. 

-  R 

Called  by:  APIN2 

Calls:  None 

Common  Blocks  Used:  None 

0 

Fractional  damage 

g.  Files  Used:  None 

h.  Local  Arrays:  None 

i.  Method:  This  subroutine  implements  the  Super-Quickie  II  algorithm 
as  described  in  the  publication  "Programmable  Calculator  (T I -58  or  TI-59) 
Manual  for  Evaluating  Effectiveness  of  Nonnuclear  Surface-to-Surface 
Indirect-Fire  Weapons  Against  Area  Targets,"  dated  2  June  1981,  by  Lonnie 
R.  Minton,  US  Army  Field  Artillery  School.  Note  that  the  TI-59  program  and 
the  flowchart  given  in  that  publication  differ.  This  subroutine  agrees 
with  the  flowchart. 

D-VIII-24.  PRTBOX 

a.  Name:  PRTBOX  Type:  Subroutine 

b.  Purpose:  Print  a  character  string,  framed  by  a  box  of  asterisks. 
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c.  Arguments: 


Name 

Dimension 

Type 

Use 

Description 

ICNTRL 

— 

I 

I 

Print 

control  digit  (0  or 

1) 

S 

— 

C*(*) 

I 

The  character  string  to  print 

d. 

Called  by:  APIN1,  APIN2, 

APOUT 

e. 

Calls:  None 

f. 

Common  Blocks 

Used:  None 

g- 

Files  Used:  None 

h. 

Local  Arrays: 

None 

i. 

Method:  Using 

the  supplied  ICNTRL  for 

carriage  control  on 

the  first 

line,  print  the  character  string  framed  in  a  box 

************* 

*  * 

*  LIKE  THIS  * 

*  * 

************* 


D-VIII-25.  NZRNDX 
a.  Name:  NZRNDX 


Type:  Subroutine 


b.  Purpose:  Form  lists  of  indexes  of  nonzero  rows  and  columns  in  a 


matrix. 

c. 

Arguments: 

Name 

Dimension 

Type 

Use 

MAT 

2, ROWDIM, 
COLDIM 

I 

I 

ROWDIM 

— 

I 

I 

COLDIM 

— 

I 

I 

ROWIND 

2, ROWDIM 

I 

0 

COLIND 

2, COLDIM 

I 

0 

NROWS 

2 

I 

0 

NCOLS 

2 

I 

0 

d.  Called  by:  APOUT 

e.  Calls:  None 


Description 

The  matrix  to  be  scanned 

The  row  dimension  of  MAT 
The  column  dimension  of  MAT 
Lists  of  indexes  of  nonzero  rows 
Lists  of  indexes  of  nonzero  columns 
Sizes  of  lists  of  row  indexes 
Sizes  of  lists  of  column  indexes 
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f.  Common  Blocks  Used:  None 

g.  Files  Used:  None 

h.  Local  Arrays:  None 

i.  Method:  The  first  index  of  MAT  typically  represents  a  side  (Blue  or 
Red).  For  a  fixed  side,  say  S,  consider  the  slice  of  MAT  consisting  of 
MAT(S,i,j),  with  i  and  j  varying.  NROWS(S)  is  set  equal  to  the  number  of 
nonzero  rows  in  this  slice.  (A  row  is  nonzero  if  it  contains  at  least  one 
nonzero  entry.)  R0WIND(S,1)  through  R0WIND(S,NR0WS(S) )  contain  the  indexes 
of  the  nonzero  rows.  Similarly,  NCOLS(S)  is  set  to  the  number  of  nonzero 
columns  in  the  slice,  and  COL IND(S,1)  through  C0LIND(S,NC0LS(S) )  contain 
the  indexes  of  the  nonzero  columns  in  the  slice. 


D-VIII-26.  PRTMR1 

a.  Name:  PRTMR1 

b.  Purpose:  Print  a  matrix. 


c.  Arguments: 


Name 

Dimension 

Type 

Use 

TITLE 

— 

C*(*) 

I 

MAT 

2,NDIM1, 

NDIM2 

I 

I 

NDIM1 

— 

I 

I 

NDIM2 

— 

I 

I 

ROWIND 

2,NDIM1 

I 

I 

COLIND 

2,NDIM2 

I 

I 

NROWS 

2 

I 

I 

NCOLS 

2 

I 

I 

R0WLB1 

2.NDIM1 

C*5 

I 

R0WLB2 

2.NDIM1 

C*10 

I 

C0LLB1 

2,NDIM2 

C*5 

I 

C0LLB2 

2,NDIM2 

C*10 

I 

d. 

Called  by: 

APOUT 

e.  Calls:  None 


f.  Common  Blocks  Used:  None 

g.  Files  Used:  None 


Type:  Subroutine 


Description 

A  title  to  be  printed  above  the 
matrix 

The  matrix  to  be  printed 

The  second  dimension  of  MAT 
The  third  dimension  of  MAT 
Lists  of  indexes  of  rows  to  be 
printed 

Lists  of  indexes  of  columns  to 
be  printed 

Sizes  of  lists  in  ROWIND 
Sizes  of  lists  in  COLIND 
First  set  of  row  labels 
Second  set  of  row  labels 
First  set  of  column  labels 
Second  set  of  column  labels 
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h.  Local  Arrays: 

Name  Dimension  Type 


Description 


CELL  10 


C*10  Used  to  hold  contents  of  one  line  of  print 


i.  Method:  Consider  MAT  as  consisting  of  two  slices,  MAT(1,*,*)  and 
MAT(2,*,*).  Each  slice  is  considered  to  be  a  two-dimensional  array  and  is 
printed  separately.  For  the  slice  with  first  dimension  S,  i.e., 

MAT(S,*,*),  only  the  rows  listed  in  R0WIND(S,*)  and  the  columns  listed  in 
C0LIND(S,*)  will  be  printed.  Typically,  these  are  the  nonzero  rows  and 
columns  listed  by  calling  NZRNDX  before  calling  PRTMR1.  Ten  columns  per 
line  are  printed,  framed  by  the  row  and  column  labels  (both  sets),  and  zero 
entries  are  printed  as  ' . '  rather  than  '0'  to  increase  the  readability  of 
the  printout.  This  is  accomplished  by  setting  up  the  contents  of  each  line 
in  the  character  array  CELL  before  printing,  with  each  cell  containing  one 
number  in  character  form  if  nonzero  or  if  zero. 


D-VIII-27.  RIGHT J 

a.  Name:  RIGHTJ  Type:  Subroutine 

b.  Purpose:  Right  justify  a  character  string. 

c.  Arguments: 


Name 

Dimension 

Type 

Use 

Description 

SI 

— 

C*(*) 

I 

The  input  character  string 

S2 

— 

C*(*) 

I 

The  output  character  string 

d.  Called  by:  APOUT 

e.  Calls:  None 

f.  Common  Blocks  Used:  None 

g.  Files  Used:  None 

h.  Local  Arrays:  None 

i.  Method:  Move  SI  to  S2,  right-justified  within  S2  and  padded  on  the 
left  with  blanks,  if  necessary. 


D-VIII-28.  ZERO 

a.  Name:  ZERO  Type: 

b.  Purpose:  Set  all  the  elements  of  a  real  matrix  to  0. 


Subroutine 
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c.  Arguments: 


Name  Dimension  Type  Use 


Description 


A 

N 


N 


R 


0  The  matrix  to  be  zeroed 

I  The  dimension  of  A 


d.  Called  by:  APIN1,  APIN2,  ARTPRE 

e.  Calls:  None 

f.  Common  Blocks  Used:  None 

g.  Files  Used:  None 

h.  Local  Arrays:  None 

i.  Method:  Set  A(l)  through  A(N)  equal  to  0.  This’ routine  can  also  be 
used  to  zero  a  multidimensional  matrix  A  by  passing  N  as  the  product  of  the 
dimensions  of  A.  This  is  a  little  tricky  and  doubtless  reprehensible,  but 
extremely  convenient. 

D-VIII-29.  IZERO 

a.  Name:  IZERO  Type:  Subroutine 

b.  Purpose:  Set  all  the  elements  of  an  integer  matrix  to  0. 

c.  Arguments: 

Name  Dimension  Type  Use  Description 

IA  N  10  The  matrix  to  be  zeroed 

N  -  I  I  The  dimension  of  IA 

d.  Called  by:  APIN1,  APIN2 

e.  Calls:  None 

f.  Common  Blocks  Used:  None 

g.  Files  Used:  None 

h.  Local  Arrays:  None 

i.  Method:  Set  I A ( 1 )  through  I A ( N )  equal  to  0.  This  routine  can 

also  be  used  to  zero  a  multidimensional  matrix  IA  by  passing  N  as  the 

product  of  the  dimensions  of  IA.  This  is  a  little  tricky  and  doubtless 
reprehensible,  but  extremely  convenient. 
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D-VIII-30.  ICOLOR 


a. 

Name:  ICOLOR 

Type: 

Subroutine 

b. 

Purpose:  Convert  a  color 

(B  or 

R)  to  a  side  index  (1  or  2) 

• 

c. 

Arguments: 

Name 

Dimension 

Type 

Use 

Description 

ID 

— 

c*(*) 

I 

Identifier  to  be  used  for 

any  error 

message 

CH 

- - 

C*1 

I 

Color 

d. 

Returns:  1  if  B,  2  if  R, 

1  otherwise. 

e. 

Called  by:  APIN1,  APIN2 

f. 

Calls:  GNERR 

g* 

Common  Blocks 

Used:  None 

h. 

Files  Used: 

None 

i . 

Local  Arrays: 

None 

j. 

Method:  Set 

ICOLOR  accordingly 

if  CH  is  B  or  R.  If  CH  is 

neither  B 

nor  R, 

force  ICOLOR 

to  1  and  issue  an  i 

error  message  via  GNERR. 

D-VIII 

-31.  LOOKUP 

a. 

Name:  LOOKUP 

Type:  Integer  function 

b. 

Purpose:  Look  up  a  character  string  in  a  table. 

c. 

Arguments: 

Name 

Dimension 

Type 

Use 

Description 

S 

_ _ 

c*(*) 

I 

The  character  string  to  be 

look  up 

STAB 

(*) 

c*(*) 

I 

The  table  to  be  searched 

N 

— 

I 

I 

The  number  of  entries  to  be  searched 

d.  Called  by:  APIN2 

e.  Calls:  None 

f.  Common  Blocks  Used:  None 

g.  Files  Used:  None 
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h.  Local  Arrays:  None 

i.  Method:  Search  STAB ( 1 )  to  STAB(N)  for  a  match  to  S.  The  value  of 
the  function  returned  is  the  index  of  the  first  match  or,  if  no  match  is 
found,  0. 

D-VIII-32.  GETAGG 


a. 

Name:  GETAGG 

Type:  Subroutine 

b. 

Purpose:  Get 

weapon  types  to  be 

aggregated. 

c. 

Arguments: 

Name 

Dimension 

Type 

Use 

Description 

AGGFAC 

— 

R 

0 

The  aggregation  factor 

ISAGG 

— 

L 

0 

ISAGG ( i , j )  is  .true,  if  weapon  type 

j  on  side  i  is  aggregated,  .false, 
otherwi se 

d. 

Called  by:  APIN1 

e. 

Calls:  RANGE, 

RANGE  I 

f. 

Common  Blocks 

Used:  ERRDAT 

9- 

Files  Used:  Reads  from 

unit  5. 

h. 

Local  Arrays: 

Name 

Dimension 

Type 

Description 

NGRPS 

2 

I 

The  i 

number  of  aggregated  types,  by  side 

NAGG 

2,  ITYPS 

I 

List 

of  aggregated  types  on  each  side 

COLOR 

2 

C*4 

Blue 

and  Red 

i.  Method:  Read  data  specifying  the  aggregated  types,  validate  the 
data,  and  construct  the  logical  array  ISAGG  accordingly.  Any  errors 
detected  will  result  in  execution  of  a  STOP  instruction.  The  data  is  read 
with  free-format  reads,  in  the  following  sequence: 

(1)  Aggregation  factor,  number  of  aggregated  types  on  the  Blue  side, 
and  number  of  aggregated  types  on  the  Red  side. 

(2)  List  of  Blue  aggregated  types. 

(3)  List  of  Red  aggregated  types. 

All  data  read  is  printed  out  for  perusal  by  the  user. 
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Section  V.  ADVICE  ON  ARTILLERY  SETUP 


D-VIII-33.  BACKGROUND.  The  AFP  scheme  for  decomposing  the  battlefield 
into  direct  fire  duels  between  pure  weapon  types,  subject  to  incoming 
indirect  fire,  requires  special  treatment  of  indirect  fire  weapons. 

Indirect  fire  weapons  must  be  able  to  fire  at  direct  fire  weapons  and  at 
one  another.  AFP  development  took  the  unusual  step  of  making  the 
counterbattery  role  a  variation  of  direct  fire.  Counterbattery  weapons  can 
kill  one  another  but  nothing  else.  In  early  AFP  application,  some  weapon 
types  were  assigned  almost  entirely  to  the  counterbattery  role,  thereby, 
precluding  them  from  killing  other  types  of  targets.  Weapons  not  assigned 
to  the  counterbattery  role  were  available  for  indirect  fire  upon  the  direct 
fire  duels  (including  the  counterbattery  versions  of  direct  fire). 

Indirect  firers  kill  any  targets  upon  which  they  fire,  but  the  indirect 
firers  cannot  be  killed  by  any  weapon.  In  that  early  AFP  production, 
mortars,  artillery,  and  rockets  killed  and  lost  relatively  little.  Review 
of  input,  logic,  and  output  led  to  the  conclusion  that  the  AFP  battlefield 
decomposition  scheme  had  been  carried  too  far  in  several  respects. 

a.  The  treatment  of  counterbattery  fire  had  prevented  kills  of 
collateral  targets. 

b.  The  treatment  of  noncounterbattery  fire  had  been  based  on 
underestimation  of  the  presence  of  mortars,  artillery,  and  rocket  launchers 
in  general  target  complexes. 

c.  Overall,  too  little  fire  was  falling  on  too  few  targets  with  too 
little  effect. 

D-VIII-34.  REMEDY.  System  tests  showed  that  mortar,  artillery,  and  rocket 
could  be  better  approximated  simply  by  a  revised  approach  to  input  data 
setup. 


a.  Increase  Firing 

(1)  Change:  Set  Additionals  file  entries  to  be  1.0  for  all  weapons. 

(2)  Rationale:  The  value  in  the  Additionals  file  reflects  the 
percentage  of  "indirect  fire"  that  a  weapon  system  will  use  as  opposed  to 
"counterbattery  fire."  In  AFP,  "counterbattery  fire"  is  reflected  by 
direct  fire  engagements  between  indirect  weapon  systems.  This  does  not 
reflect  the  total  killing  power  of  the  arti 1 lery/mortars  because  one  does 
not  normally  shoot  at  just  the  indirect  fire  weapon  system  but  other 
vehicles  and  personnel  as  well.  When  the  Additionals  value  is  set  at  1.0, 
all  firing  will  be  in  the  "indirect  fire"  mode  where  firing  is  done  against 
target  clusters  (area  targets).  When  one  round  is  fired  at  a  "cluster,"  it 
may  kill  anything  in  the  cluster  as  set  up  in  the  target  cluster 
description  file.  This  more  accurately  reflects  the  counterbattery/ 
countermortar  effects.  The  percent  of  counterbattery  fire  can  be  portrayed 
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by  giving  a  weapon  system  a  preference  against  an  artillery  cluster.  This 
new  portrayal  also  eliminates  many  confusing  cross-checks  that  needed  to  be 
conducted. 

(3)  Previously:  Because  8"  and  MLRS  had  high  "counterbattery" 
preferences  (40  percent  and  90  percent  respectively),  they  were  not  getting 
the  correct  number  of  kills.  Note:  With  this  new  change,  no  allocations 

will  show  up  for  the  indirect  fire  weapon  systems,  but  one  must  ensure 

allocations  are  made  between  deep  generic  targets  (BTRP  and  RTRP  Deep, 

LARM,  HARM,  etc.)  so  that  engagements  occur. 

b.  Enrich  Target  Clusters 

(1)  Change:  Add  generic  targets  for  the  close  range  bands. 

(2)  Rationale:  Target  clusters  that  are  fired  on  in  the  near  range 

bands  do  not  include  all  targets  that  may  be  killed  by  indirect  fire.  By 
having  generic  targets  such  as  BTRP  near,  LVEH  near,  etc.,  this  problem 
should  be  corrected. 

(3)  Previously:  Only  direct  fire  weapon  systems  were  clustered. 

c.  Attack  Air  Defense  Weapons 

(1)  Change:  Increase  preference  of  artillery  for  Enemy  Air  Defense. 

(2)  Rationale:  Doctrinally,  8"  and  MLRS  should  have  a  substantial 
portion  of  their  fires  directed  for  anti-ADA  missions.  This  may 
simultaneously  increase  their  CIP  since  ADA  systems  have  a  higher  target 
value  if  they  can  be  killed. 

(3)  Previously:  MICAF  I  had  zero  preference  for  ADA  targets. 
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APPENDIX  E 

THE  AFP  COMBAT  SUPPORT/COMBAT  SERVICE  SUPPORT  MODULE 
AND  ITS  PREPROCESSORS 


E-l.  OVERVIEW.  The  Combat  Support/Combat  Service  Support  (CS/CSS) 
modulation  process  is  designed  to  provide  adjustments  to  the  AFP  Combat 
Module  results  to  account  for  the  impacts  of  eight  CS/CSS  functions.  The 
Combat  Module  produces  estimates  of  the  kills  and  losses  achieved  and 
suffered  by  each  opposing  side.  Those  kills  and  losses  are  recorded  for 
each  type  weapon  versus  each  type  opposing  weapon.  The  Combat  Module 
represents  combat  at  so-called  normed  levels  of  CS/CSS  support.  A  normed 
level  of  support  corresponds  most  closely  to  standard  doctrine  with  its 
implied  requirements.  For  many  reasons  one  or  both  sides  may  be  unable  to 
conduct  combat  operations  at  normed  levels.  These  reasons  range  from 
deliberate  decisions  to  provide  more  or  less  than  doctrinal  levels,  through 
temporary  imbalances  associated  with  modernization  and  reorganization  time 
leads  and  lags,  to  outright  interference  by  an  opponent's  equipment  and 
actions. 


a.  Detailed  examples  with  sample  data  requirements  and  record  formats 
are  presented  in  Annex  I  to  this  appendix. 

b.  The  relation  of  the  AFP  CS/CSS  processes  to  the  AFP  System  in 
general  is  portrayed  in  Figure  E-l;  the  CS/CSS  processes  are  highlighted  by 
being  enclosed  within  a  heavy  line. 

c.  Essentially  there  are  two  AFP  CS/CSS  Preprocessors  depicted  in 
Figure  E-l.  The  first  is  called  the  Search  Preprocessor;  its  function  is 
to  extract  data  from  selected  inventory  files  based  on  two  keys — unit 
identification  (TPSNA)  and  fiscal  year — and  to  develop  pertinent  equipment 
and  manpower  performance  factors.  The  second  preprocessor  is  the  Main  AFP 
CS/CSS  Preprocessor  and  is  described  further  in  the  succeeding  paragraphs. 

d.  The  AFP  approach  to  CS/CSS  was  developed  in  accordance  with  the  fol¬ 
lowing  guidelines. 

(1)  Combat  Support 

(a)  Support  potential  must  reflect  any  disparity  of  forces — should 
be  based  on  comparisons  between  US  and  its  adversaries. 

(b)  Combat  support  units  must  be  employed  in  their  normal  roles. 

(c)  Combat  support  factors  must  incorporate  combat  support 
equipment  characteristics. 
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Figure  E-l.  The  Relation  of  the  AFP  CS/CSS  Preprocessors  and  Module 
to  the  Analysis  of  Force  Potential  (AFP)  System  in  General 
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(2)  Combat  Service  Support 

(a)  Emphasis  must  be  on  division  level  support--DISCOM  or 
equivalent. 

(b)  Support  factors  must  be  relative  to  intense  combat  that 
stresses  the  support  system  and  its  surge  capabilities. 

(c)  Combat  service  support  factors  must  incorporate  CSS  equipment 
characteristics. 

E-2.  FUNCTIONAL  DEFINITIONS.  In  general,  a  CS/CSS  function  may  be 
represented  by  a  measure  and  a  countermeasure  for  both  Blue  and  Red  sides. 
For  example,  mine  laying  and  mine  clearing  are  a  natural  measure/counter¬ 
measure  pair.  Some  functions  possess  measures  without  corresponding 
countermeasures.  For  example,  maintenance  is  represented  by  a  measure  for 
each  side  but  is  not  regarded  as  requiring  or  permitting  a  direct 
countermeasure.  The  eight  CS/CSS  functions  represented  within  the  AFP 
CS/CSS  Module  are  defined  as  follows.  (The  current  AFP  system  preserves 
space  for  a  ninth,  unused  CS/CSS  function.) 

a.  Tactical  Mobility 

(1)  Measure.  The  measure  is  a  weighted  average  (weighted  with 
respect  to  inventory  and  to  on-road  or  off-road  travel)  of  the  speeds  of  a 
side's  ground  combat  systems  relative  to  the  average  weighted  speed  of  the 
base  case  ground  combat  systems.  Similarly  there  is  a  relative  weighted 
measure  for  air  combat  systems. 

(2)  Countermeasure.  The  countermeasure  for  a  side  is  its  divisional 
engineer  capability  to  create  obstacles  (not  including  minefields)  relative 
to  the  enemy  capability  to  clear  obstacles  (a  planning  or  doctrinal  stand¬ 
ard);  e.g.,  the  Blue  standard  was  extracted  from  the  Combat  to  Support 
Balance  Study  (CSBS). 

b.  Bridging 

(1)  Measure.  The  computation  of  the  bridging  measure  is  based  on  the 
force's  inventory  of  bridges,  rafts,  and  vehicles,  and  on  a  stylized  series 
of  gaps  of  specified  widths  which  the  force  must  cross.  Three  factors  are 
considered  in  the  computation:  the  fraction  of  the  series  of  gaps  which 
can  be  bridged;  the  fraction  of  the  vehicles  in  the  force  which  can  cross 
each  gap,  based  on  their  load  classes;  and  the  time  required  for  those 
vehicles  to  cross  the  gaps,  including  the  time  to  assemble  and  disassemble 
the  bridges  and  rafts  used. 

(2)  Countermeasure.  No  bridging  countermeasures  are  represented 
within  AFP. 
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c.  Mine/Countermine 

(1)  Measure.  The  measure  for  a  side  is  its  divisional  engineer 
capability  to  create  minefields  relative  to  enemy  capability  to  clear 
mines. 

(2)  Countermeasure.  A  side's  countermeasure  is  the  clearing  rate 
achievable  with  divisional  assets  relative  to  the  opponent's  mine  laying 
rate.  Consideration  is  given  to  doctrinal  breaching  approaches;  i.e., 
complete  breaching  success  may  be  achieved  "in  lanes"  without  clearing  an 
entire  minefield. 

d.  Protective  Positions 

(1)  Measure.  A  side's  measure  is  the  ratio  of  its  ability  to 
construct  protective  positions  for  combat  systems  within  five  hours  to  the 
number  of  positions  required. 

(2)  Countermeasure.  Countermeasures  are  not  represented  within  AFP. 

e.  C2EW 

(1)  Essentially  a  side's  C2EW  measure  and  its  opposing  countermeasure 
are  combined  because  the  measure  for  a  side  is  computed  using  related 
countermeasure  data;  i.e.,  a  side's  command  and  control  performance  is 
degraded  by  opposing  electronic  jammers.  The  measure  for  a  side  is  1.0 
minus  the  fractional  reduction  in  combat  effectiveness  attributable  to 
diminished  effectiveness  of  command  and  control  caused  by  active  jamming. 
Three  TRADOC  Systems  Analysis  Activity  (TRASANA)  studies  provided  the 
rationale  to  relate  a  side's  combat  effectiveness  and  the  performance  of 
command  and  control  equipment  such  as  multichannel  radio  relay  equipment, 
VHF  and  HF  radios.  Both  sides  are  assumed  to  have  deployed  their  assets  in 
doctrinal  fashion.  Consideration  is  given  to  radio/radar  and  jammer 
equipment  densities,  frequency  bands,  and  effectiveness. 

f.  Medical.  The  measure  for  a  side  is  1.0  less  the  fractional 
reduction  of  divisional  strength  attributable  to  shortfall  in  the  capacity 
of  the  divisional  medical  battalion.  Higher  echelon  medical  facilities  are 
assumed  to  perform  at  their  designed  capacities.  The  generation  of 
casualties  is  assumed  to  occur  at  intense  combat  levels.  (No 
countermeasure  is  represented. ) 

g.  Maintenance.  The  measure  for  a  side  is  1.0  less  the  fractional 
reduction  in  divisional  equipment  availability  attributable  to  manhour 
shortfalls  in  divisional  maintenance  battalion  teams  and  shops.  (No 
countermeasure  is  represented.) 

h.  Supply  and  Transportation.  The  measure  for  a  side  is  1.0  less  any 
fractional  shortfall  in  the  divisional  supply  and  transportation 
battalions'  capability  to  lift  daily  supply  requirements.  Higher  echelon 
supply  and  transportation  units  are  assumed  to  perform  at  their  designed 
levels.  (No  countermeasure  is  represented.) 


E-4 


CAA-D-84-14 


E-3.  CS/CSS  Symbols.  As  appropriate  to  the  Ith  function,  measures  and 
countermeasures  are  developed  and  assigned  in  accordance  with  the  followi 


AFP  symbol i 

sm: 

a. 

U(I) 

Blue  countermeasure. 

b. 

V(I) 

Blue  measure. 

c. 

S(I) 

Red  countermeasure. 

d. 

T(I) 

Red  measure. 

ng 


E-4.  ORGANIZATION  OF  APPENDIX.  The  development  of  measures  and  counter¬ 
measures,  as  and  if  appropriate  to  each  CS/CSS  function,  is  described  in 
Annex  I  to  Appendix  E.  There  the  Main  CS/CSS  and  Search  preprocessor 
programs  are  described.  The  current  AFP  Combat  Module  may  represent  type- 
on-type  engagements  between  weapons  of  up  to  60  types  on  each  side. 

Whether  or  not  CS/CSS  measures  and  countermeasures  apply  to  specific  type- 
on-type  engagements  is  determined  from  sets  of  tables.  The  tables  serve  as 
screens  by  weapon  type,  weapon  category,  function,  measure/countermeasure, 
and  combat  environment.  If  a  type-on-type  engagement  "passes"  all  the 
screens,  the  corresponding  U,  V,  S,  or  T  value  is  applied.  And  depending 
on  combat  environment,  a  weight  is  applied  to  each  function  in  rolling  up 
all  functions.  All  these  steps  are  performed  in  the  AFP  CS/CSS  Module 
proper.  That  module  outputs  the  rolled-up,  weighted  values  across  all 
CS/CSS  functions  as  the  so-called  CS/CSS  "moduli."  The  CS/CSS  Module 
proper  is  described  in  Annex  II  to  Appendix  E. 
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ANNEX  I  TO  APPENDIX  E 

THE  AFP  COMBAT  SUPPORT/COMBAT  SERVICE  SUPPORT  (CS/CSS)  SEARCH  AND 
MAIN  PREPROCESSORS  FOR  DETERMINING  MEASURES  AND  COUNTERMEASURES 

BY  CS/CSS  FUNCTION 


Section  I.  OVERVIEW 

E-I-l.  This  annex  describes  the  development  of  Blue  and  Red  measures  and 
countermeasures  for  each  of  the  eight  active  CS/CSS  functions.  (AFP  struc¬ 
ture  reserves  space  for  a  ninth  CS/CSS  function,  but  that  space  is  not  cur¬ 
rently  used.)  The  product  of  the  Main  Preprocessor  is  a  small  file 
containing  2  (sides)  x  2  (measure  and  countermeasure)  x  8  (functions)  =  32 
significant  numerical  values.  (The  file  also  contains  four  1.0-values  for 
the  unused  function.)  That  file  is  one  of  the  principal  inputs  to  the 
CS/CSS  Module  proper  which  "rolls  up"  the  values  in  accord  with  a  complex 
of  switches  and  weights;  this  process  constructs  Blue  and  Red  CS/CSS  moduli 
for  each  possible  pairing  of  Blue  and  Red  weapon  types.  The  CS/CSS  Module 
proper  is  described  in  Annex  II  to  Appendix  E. 

E-I-2.  It  is  important  to  note  that  anything  and  everything  about  CS/CSS 
equipment  and  manpower  characteristics,  requirements,  and  capabilities 
relative  to  a  specific  combat  environment  is  compressed  into  the  32-value 
file  generated  by  the  CS/CSS  Main  Preprocessor.  And  because,  by 
definition,  some  of  those  values  are  always  1.0,  the  range  of  CS/CSS 
variability  must  be  expressed  in  fewer  than  32  numerical  values. 

E-I-3.  Toward  accomplishment  of  the  generation  of  CS/CSS  factors,  the  two 
AFP  CS/CSS  preprocessors  are  designed  to: 

a.  Read  all  necessary  input  data  from  a  single  automatically  prepared 
file*  comprised  of  data  which  represent  both  authorizations  and  on-hand 
strengths  of  personnel  and  equipment. 


*This  file  is  prepared  from  an  interactive  program  called  the  Search 
Preprocessor;  this  program  requires  the  user  to  identify  the  organizations 
(by  TPSNA)  and  years  to  be  analyzed  by  AFP.  Two  files  will  be  used  by  the 
Search  Preprocessor  to  develop  the  input  data  for  the  CS/CSS  Main 
Preprocessor: 

(1)  An  MOS  file  depicting  the  on-hand  and  authorized  strengths  for 
several  maintenance  related  specialties. 

(2)  An  item  inventory  file  of  US  equipment  (weapon  system)  quantities 
by  fiscal  year. 
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b.  Perform  a  variety  of  arithmetic  and  logical  operations  for  each 
CS/CSS  function. 

c.  Generate  a  single  file  containing  Blue  and  Red  factors  for  measures 
and  countermeasures  (some  of  which  may  be  identically  1.0)  for  each  CS/CSS 
function. 

E-I-4.  The  relation  of  the  AFP  CS/CSS  Preprocessor  to  the  AFP  System  in 
general  is  shown  in  Figure  E-I-l. 
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Figure  E-I-l.  Relation  of  the  AFP  Combat  Support/Combat  Service  Support 
Preprocessors  to  the  AFP  System  in  General 
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Section  II.  INPUT 

E— 1-5 -  The  following  paragraphs  describe  the  input  to  the  AFP  CS/CSS  Pre¬ 
processor;  note  that  all  input  data  are  read  by  FORTRAN  free-format  read 
statements: 

a.  Tactical  Mobility.  Table  E-I-l  describes  the  tactical  mobility 
input.  Figure  E-I-2  displays  sample  input  records  for  generating  tactical 
mobility  factors. 


Table  E-I-l.  Tactical  Mobility  Input 
(page  1  of  3  pages) 


Field 


Variable 


Data  description 


(1st  record) 


1  JUMP 


2  FACT (1,1) 


Switch  for  whether  to  use  given 
values  in  record  or  compute  values 
from  following  input  where:  T  =  use, 
F  =  read  data  and  compute 

Value  of  Blue  countermeasure,  U(l) 


3  FACT (1,2) 


Value  of  Blue  measure,  V(l) 


(if  JUMP  =  .FALSE.,  next  record,  else  GOTO  next  record  **) 


(next  record) 

1  SPDX(l) 

2  SPDX(2 ) 

3  SPDWT(2) 


(next  record) 

1  NVEH 


(next  NVEH  records) 


Blue  ground  vehicles  average  speed 
(kph) 

Blue  aircraft  average  speed  (kph) 

Ratio  of  average  speed  (two  base  case 
years)  of  Blue  aircraft  to  Blue  ground 
vehicles 


Number  of  Blue  vehicle  or  Blue  air¬ 
craft  types 
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Table  E-I-l.  Tactical  Mobility  Input 
(page  2  of  3  pages) 


Field 


Variable 


Data  description 


1  DENSTY(  ) 

2  SPEED(  ) 

(next  record) 

1  REQEHO 

(next  record) 

1  CAPEHO 

(**  next  record) 

1  JUMP 

2  FACT (1,3) 

3  FACT (1,4) 

(if  JUMP  =  .FALSE.,  next  record,  el 
(next  record) 


Population  of  Blue  vehicles/aircraft; 
subscript  1  =  ground,  2  =  air 

Rate  of  movement  (kph)  of  Blue 
vehicle/aircraft  types;  subscript  1  = 
ground,  2  =  air 


Blue  obstacle  clearing  capability 
(cubic  meters/hour) 


Blue  obstacle  creation  capability 
(cubic  meters/hour) 


Switch  for  whether  to  use  given 
values  in  record  or  compute  values 
from  following  input  where:  T  =  use, 
F  =  read  data 

Value  of  Red  countermeasure,  S(l) 
Value  of  Red  measure,  T(l) 
se  GOTO  next  **) 


1  SPDX(l) 

2  SPDX(2) 

3  SPDWT (2) 


(next  record) 


Red  ground  vehicles  average  speed  (kph) 

Red  aircraft  average  speed  (kph) 

Ratio  of  average  speed  of  Red  air¬ 
craft  to  Red  ground  vehicles 
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Field 

Variable 

Data  description 

1 

NVEH 

Number  of  Red  vehicles  or  Red  air¬ 
craft  types 

(next  NVEH  records) 

1 

DENSTY(  ) 

Population  of  Red  vehicles/aircraft; 
subscript  1  =  ground,  2  =  air 

2 

SPEED(  ) 

Rate  of  movement  (kph)  of  Red  vehicle 
aircraft  types;  subscript  1  =  ground, 
2  =  air 

(next 

record) 

1 

REQEHO 

Red  obstacle  clearing  capability 
(cubic  meters/hour) 

(next  record) 

1 

CAPEHO 

Red  obstacle  creation  capability 
(cubic  meters/hour) 

(**) 

F 

1.7 

62. £6 

4 
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84  1 

68 

328 

48 

ZI 

61 

55 

3 

56 

42 

227 

25 
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1.0 
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33 
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en 

145 

75 

as 

7  P 
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362 
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172 
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26 
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44 
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215 

6 

62  31 

8432 

315 
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3.°4 


Figure  E-I-2.  Example  of  Tactical  Mobility  Data  Input  to 
the  AFP  CS/CSS  Main  Preprocessor 
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b.  Bridging.  Table  E-I-2  describes  the  bridging  input.  Figure  E-I-3 
displays  sample  input  records  for  generating  bridging  factors. 

Table  E-I-2.  Bridging  Input 
(page  1  of  3  pages) 


Field  Variable 

Data  description 

(1st  record) 


1  JUMP 

Switch  for  whether  to  use  given 
values  in  record  or  compute  values 
from  following  input,  T  =  use,  F  = 
read  data 

2  FACT (2,1) 

Value  of  Blue  countermeasure,  U(2) 

3  FACT (2, 2) 

Value  of  Blue  measure,  V(2) 

(if  JUMP  =  .FALSE.,  next  record,  else  GOTO  next  record  **) 
(next  record) 


1  NCPD 

Number  of  crossing  points  desired 

2  TDFACT 

Take-down  factor  (when  multiplied 
by  set-up  time,  yields  take-down 
time) 

(next  record) 


1  BASEF1 

Value  of  capability  factor  FI  in 
base  case 

2  BASEF2 

Value  of  capability  factor  F2  in 
base  case 

3  BASEF3 

Value  of  capability  factor  F3  in 
base  case 

(next  record) 


1  NGAPS 

Number  of  different  types  of  gap 

(next  NGAPS  records) 
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Field 


Variable 


Data  description 


1  NGP 

2  WGAP 
(next  record) 

1  NVEH 

(next  NVEH  records) 

1  NV 

2  VCLAS 

3  VNUM 


Frequency  of  occurance  of  this  type 
gap 

Width  of  this  type  gap  (meters) 

Number  of  different  combat  vehicle 
types 

Number  of  vehicles  of  this  type 

Load  class  of  this  type  vehicle 

AFP  identification  number  of  type 
vehicle 


4  VDESC 


(next  record) 

1  NBRIDG 


Description  of  this  type  vehicle 
(NOTE:  This  is  character  type  data 
and  must  be  enclosed  in  single  quota¬ 
tion  marks.) 


Number  of  different  types  of  bridges/ 
rafts 


(next  records) 

(NOTE:  There  will  be  NBRIDG  groups  of  records  consisting  of  (NGAPS+1) 
records  per  group. ) 

1  BSETS  Number  of  bridge/raft  sets  available 

2  BNUM  AFP  identification  number  of  bridge/ 

raft 


3  BDESC 


Description  of  bridge/raft  (character 
data) 


(next  NGAPS  records) 
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Table  E-I-2.  Bridging  Input 
(page  3  of  3  pages) 


Field 

Variable 

Data  description 

1 

CPSET 

Number  of  crossing  points  per  set  for 
this  type  of  gap 

2 

SETUP 

Set-up  time  (minutes) 

3 

VCRATE 

Vehicle  crossing  rate  (vehicles/hour) 

4 

BCLAS 

Bridge/raft  load  class 

(**  next  record) 

1 

JUMP 

Switch  for  whether  to  use  given 
values  in  record  or  compute  values 
following  input,  T  =  use,  F  =  read 
data 

.2 

FACT(2 ,3 ) 

Value  of  Red  countermeasure,  S(2) 

3 

FACT (2, 4) 

Value  of  Red  measure,  T(2) 

(if  JUMP  =  .FALSE.,  next  record,  else  GOTO  next  **) 

NOTE:  Currently,  the  Red  bridging  measures  and  countermeasures  are  computed 
off-line;  therefore,  input  data  coding  for  Red  bridging  is  limited  to  the 
three  preceding  fields. 

(**  ) 

c.  Mine/Countermine.  Table  E-I-3  describes  the  mine/countermine  input. 
Figure  E-I-4  displays  sample  input  records  for  generating  mine/countermine 
factors. 
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'j 


Figure 


1 

2 

3 

4 

5 

6 
7 
6 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 


24 

25 

26 

27 

28 
29 
3C 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 
4  8 


SXQT  *98AFP.87GRRGPPE 

3  2.0 

1 .0  0.005584  1.0 

4 

1  15 

1  60 
1  200 

1  400 

23 

54  6  51  '81 MM  MORTAR ' 
460  11  7  'Mill' 

159  12  15  'M113+T0W' 

0  12  0  '  M  5  7  7  A 1 ' 

1  44  12  49  '  U  C  3  V  ' 

24  12  27  'VULCAN' 

24  13  32  'CHAF1 ' 

0  16  21  >551' 

53  22  53  '4.2MSP' 

0  24  1  2  ' I T  V  TOWII' 

54  24  56  '155SPMID9' 

12  24  57  '8IN/203' 

0  46  1  7  ' C  F V  ' 

0  46  58  ' MLR  S  ' 

0  50  16  ' I F V ' 

0  52  1  9  ' M  4  £  A  5  ' 

206  53  24  ' M  6  Q  A 1  ' 

0  55  22  'M6CA3' 

0  55  25  ' "60  A 2  ' 

8  57  46  'CEV' 

0  62  20  ' M 1 E 1 
0  59  26  'DIVAD' 

106  59  23  'Ml' 

7 

1  320  'MAP' 

8  40  200  62 
3.2  40  2CC  62 
4  10  4.5  60 

4  10  3  60 
1  6  321  ' A V LP ' 

1  5  550  60 

C  0  0  0 

0  0  0  C 
0  0  0  0 

2  323  ' L T R  5 ' 

2  30  200  16 

1  25  40  16 
1  25  4.5  16 
1  25  3  16 


E-I-3.  Example  of  Bridging  Data  Input  to 
the  AFP  CS/CSS  Main  Preprocessor 
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Table  E-I-3.  Mine/Countermine  Input 
(page  1  of  2  pages) 


Field 


Variable 


Data  description 


(1st  record) 


1 

JUMP 

Switch  indicates  whether  to  use  given 
values  in  record  or  compute  values 
from  following  input,  where  T  =  use, 

F  =  read  data 

2 

FACT (3,1) 

Value  of  Blue  countermeasure,  U(3) 

NOTE:  U(3)  will  =  1.00 

3 

FACT (3, 2) 

Value  of  Blue  measure,  V(3) 

(if 

JUMP  =  .FALSE.,  next  record. 

else  GOTO  next  record  **) 

(next  record) 

1 

EQMN 

Population  of  Blue  mine  laying  equip¬ 
ment  items 

2 

PRSMN 

Population  of  Blue  mine  laying  per¬ 
sonnel,  grade  E-7  and  below 

3 

LANMN 

Number  of  lanes  through  Red  minefield 
along  Red  division  front 

4 

AWLMN 

Average  width  of  Red  minefield  lane  (m) 

5 

ADFRT 

Average  Red  division  frontage  (m) 

(next  record) 

1 

CLRMN 

Red  mine  clearing  capability  (mines/hr) 

(** 

next  record) 

1 

JUMP 

Switch  inndicates  whether  to  use  given 
values  in  record  or  compute  values 
from  following  input,  where  T  =  use, 

F  =  read  data 

2 

FACT (3, 3) 

Value  of  Red  countermeasure,  S(3) 

Note:  S(3)  will  =  1.00 
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Field  I  Variable 


Data  description 


3  FACT(3,4)  Value  of  Red  measure,  T(3) 

(if  JUMP  =  .FALSE.,  next  record,  else  GOTO  next  **) 

(next  record) 


1 

EQMN 

Population  of  Red  mine  laying  equip¬ 
ment  items 

2 

PRSMN 

Population  of  Red  mine  laying  per¬ 
sonnel,  grade  E-7  and  below 

3 

LANMN 

Number  of  lanes  through  Blue  minefield 
along  Blue  division  front 

4 

AWLMN 

Average  width  of  Blue  minefield  lane 
■  (m) 

5 

ADFRT 

Average  Blue  division  frontage  (m) 

(next  record) 

1 

EQCLM 

Blue  mine  clearing  capability 
(mines/hr) 

F 

1.0 

1.0 

3000 

573.14 

285 

28 

3. ^36 

125C0 

F 

1.0 

1.0 

4600 

24 

0 

12 

8 

30000 

Figure  E-I-4.  Example  of  Mine/Countermine  Data  Input  to 
the  AFP  CS/CSS  Main  Preprocessor 
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d.  Protective  Positions.  Table  E-I-4  describes  the  protective  position 
data.  Figure  E-I-5  displays  sample  input  records  for  generating  protective 
position  factors. 


Table  E-I-4.  Protective  Positions  Input 
(page  1  of  2  pages) 


Field 


Variable 


Data  description 


(1st  record) 

1 

JUMP 

Switch  for  whether  to  use  given 
values  in  record  or  compute  values 
from  following  input,  T  =  use, 

F  =  read  data 

2 

FACT (4,1) 

Value  of  Blue  countermeasure,  U(4) 

3 

FACT (4, 2) 

Value  of  Blue  measure,  V(4) 

(if 

JUMP  =  .FALSE.,  next 

< 

record. 

else  GOTO  next  record  **) 

(next  record) 

1 

BNPP 

Number  of  Blue  equipment  types  used 
to  prepare  protective  positions 

(next  BNPP  records) 

1 

BDENPP 

- 

Population  of  Blue  equipment  of  type 

2 

BRATEP 

Rate  of  position  preparation  (per 
hour)  per  equipment  of  type 

(** 

next  record) 

1 

JUMP 

Switch  for  whether  to  use  given 
values  in  record  or  compute 
values  from  following  input, 

T  =  use,  F  -  read  data 

2 

FACT (4, 3) 

Value  of  Red  countermeasure,  S(4) 

3 

FACT (4, 4) 

Value  of  Red  measure,  T(4) 

(if 

JUMP  =  .FALSE.,  next 

record. 

else  GOTO  next  **) 

(next  record) 
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Field 

Variable 

Data  description 

1 

RNPP 

Number  of  Red  equipment  types  used 
to  prepare  protective  positions 

(next  RNPP  records) 

1 

RDENPP 

Population  of  Red  equipment  of  type 

2 

RRATEP 

Rate  of  position  preparation  (per 
hour)  per  equipment  of  type 

(**) 

F 

1.0 

1.0 

2 

11 

2  .GO 

7 

1 . 73 

F 

1 . 0 

1.0 

6 

8 

7.47 

12 

3.88 

12 

1 .91 

2 

2 . 33 

12 

2.95 

7 

1.40 

Figure  E-I-5.  Example  of  Protective  Position  Data  Input  to 
the  AFP  CS/CSS  Main  Preprocessor 
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e.  C2EU.  Table  E-I-5  describes  the  C2EW  input.  Figure  E-I-6  displays 
sample  input  records  for  generating  C2EW  factors. 


Table  E-I-5.  C2EW  Input 
(page  1  of  4  pages) 


Field 


Variable 


Data  description 


(1st  record) 

1  JUMP 

2  FACT (6,1) 

3  FACT  (6, 2) 

(if  JUMP  =  .FALSE.,  next  record  *, 

t 

(*  next  record) 


Switch  indicates  whether  to  use  given 
values  in  record  or  compute  values 
from  following  input,  where  T  =  use, 

F  =  read  data 

Value  of  Blue  countermeasure,  U(6) 
Value  of  Blue  measure,  V(6) 
else  GOTO  next  record  **) 


1  DNSRAD(  ) 


2  T0PJAM(  ) 

3  FAC JAM (  ) 

4  WTJAM(  ) 


Population  of  Blue  radios/radars  by 
type.  NOTE:  For  this  and  following 
subscripted  variables  (indicated  by 
the  parentheses  (  )  symbol),  these 
subscripts  pertain  for  Blue: 

1  =  Very  high  frequency  (VHF)  radios 

2  =  High  frequency  (HF)  radios 

3  =  Multichannel  radio  relay  equip¬ 

ment 

4  =  Countermortar/counterbattery 
.  radars 

Maximum  possible  fraction  of  type 
Blue  emitters  which  could  be  jammed 

Change  in  Blue  combat  effectiveness 
for  each  1  %  of  Blue  communications 
lost 

Fraction  of  the  change  in  Blue  combat 
effectiveness  which  can  be  attributed 
to  a  particular  type  of  radio/radar 
being  jammed 
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Field 


Variable 


Data  description 


5  NJAM(  ) 


(next  NJAM  records) 

1  EFFJAM(  ) 

2  DNSJAM(  ) 


Number  of  types  of  Red  jammers  capable 
of  countering  the  similarly  subscripted 
radio/radar 


Quantity  of  Blue  radios/radars  by  type 
jammed  by  one  of  a  type  Red  jammer 

Population  of  Red  jammers  by  type 
capable  of  countering  the  similarly 
subscripted  radio/radar 


(Continue  reading  jammer  records  for  this  type  Blue  radio/radar  until  NJAM 
types  have  been  read;  then  return  to  next  record  (*)  until  all  four  types  of 
radios  have  been  read.  After  all  four  types  of  radios  have  been  read,  pro¬ 
ceed  to  **  next  record) 


(**  next  record) 

1 

2  FACT (6, 3) 

3  FACT (6, 4) 

(if  JUMP  =  .FALSE.,  next  record  ***, 
(***  next  record) 

1  DNSRAD(  ) 


Switch  indicates  whether  to  use  given 
values  in  record  or  compute  values 
from  following  input,  where  T  =  use, 

F  =  read  data 

Value  of  Red  countermeasure,  S(6) 
Value  of  Red  measure,  T(b) 
else  go  to  next  **) 


The  value  of  data  read  into  this  field 
is  unity  (1.0) 

NOTES: 


(a)  The  approach  used  to  calculate 
Red  C2EW  countermeasures  and  measures 
focuses  on  Blue  ECM  (electronic 
countermeasure)  equipment  instead  of 
Red  radios/radars. 
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Table  E-I-5.  C2EW  Input 
(page  3  of  4  pages) 


Field  |  Variable 

Data  description 

2  T0PJAM(  ) 

NOTES  (continued): 

(b)  Although  the  field  naming  con¬ 
vention  is  the  same  one  used  for  the 
preceding  Blue  calculations,  the  data 
read  into  these  fields  has  a  different 
"meaning"  in  some  cases  (as  indicated 
in  following  paragraphs). 

(c)  Subscripted  variables  (indicated 
by  the  parentheses  (  )  symbol)  for  Red 
C2EW  are: 

1  =  Red  HF  radios 

2  =  Red  VHF  radios 

3  =  Red  communication  equipment 

jammed  by  Blue  airborne  jammers 

4  =  Red  noncommunication  equipment 

such  as  radars 

Maximum  possible  degradation  to  Red 
combat  effectiveness  corresponding  to 
the  appropriate  subscript 

3  FAC JAM (  ) 

Value  of  unity  (1.0)  for  Red  C2EW 

4  WT JAM (  ) 

Fraction  of  the  change  in  Red  combat 
effectiveness  which  can  be  attributed 
to  a  particular  type  of  Blue  jamming 
such  as  HF  or  VHF. 

5  NJAM(  ) 

Number  of  types  of  Blue  jammers  capable 
of  countering  a  similarly  subscripted 
radio/radar 

(next  NJAM  records) 

1  EFFJAM(  ) 

Fraction  of  the  change  in  Red  combat 
effectiveness  which  can  be  attributed 
to  a  particular  type  Blue  jammer  such 
as  the  AN/TLQ-15 
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Field 


Variable 


Data  description 


2  DNSJAM(  )  Population  of  the  specific  type  of 

Blue  jammer  targeted  against  Red 
C2EW  capability 

(Continue  reading  jammer  records  for  this  type  Red  C2EW  capability  until 
NJAM  types  have  been  read;  then  return  to  next  record  ***  until  all  4  types 
of  Red  C2EW  capability  have  been  read.) 

(**) 


F 

1 . 2 

1.0 

20&c 

0.635 

1.37685 

0  .Q318 

1 

81  .5 

5 

77 

0.02 

0. C2394 

0.0004  l 

7.1 

6 

L 

0.02 

0.02337 

0 .0004 

2 

1.718 

3 

1.718 

1 

1  3 

1  .00 

Q  .19 

0. 16  74 

1 

1.25 

4 

F 

1  .  Q 

l.C 

1  .0 

0.86 

1.0 

0 . 101 6 

1 

0.1833 

□ 

1 .0 

0.685 

1.0 

0.4566 

c 

0  .0274 

0 

Q.C274 

C 

0.00913 

0 

.0103 

0 

.  3  G  fa  3  4 

J 

1.0 

0.315 

1.0 

0.2100 

2 

•  u  2  l.  8 

0 

.00365 

0 

1.0 

0.40 

1.0 

.231-7 

1 

.00344 

0 

Figure  E-I-6.  Example  of  C2EW  Data  Input  to  the 
AFP  CS/CSS  Main  Preprocessor 
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f.  Medical.  Table  E-I-6  describes  the  medical  input.  Figure  E-I-7 
displays  sample  input  records  for  generating  medical  factors. 

Table  E-I-6.  Medical  Input 
(page  1  of  2  pages) 


Field  Variable 

Data  description 

(1st  record) 


1  JUMP 

Switch  for  whether  to  use  given 
values  in  record  or  compute 
values  from  following  input, 

T  =  use,  F  =  read  data 

2  FACT (7,1) 

Value  of  Blue  countermeasure,  U(7) 

3  FACT (7, 2) 

Value  of  Blue  measure,  V(7) 

(if  JUMP  =  .FALSE.,  next  record,  else  GOTO  next  record  **) 
(next  record) 


1  BDIVS 

Blue  divisional  personnel  strength 
supported 

2  BAREAS 

Blue  area  support  strength  supported, 
if  any 

3  BSFACT 

Blue  surge  factor 

4  BDWIA 

Blue  divisional  WIA  rate  (per  1,000) 

5  BAWIA 

Blue  area  support  WIA  rate  (per  1,000) 

(next  record) 


1  BDDNBI 

Blue  divisional  DNBI  rate  (per  1,000) 

2  BADNBI 

Blue  area  support  DNBI  rate  (per  1,000) 

3  BMBCAP 

Blue  medical  bn  capability  (releases 
per  day) 

4  BFEVAC 

Blue  fraction  of  casualties  evacuated 
from  division  area 

(**  next  record) 
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Table  E-I-6.  Medical  Input 
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Field 

Variable 

Data  description 

1 

JUMP 

Switch  for  whether  to  use  given 
values  in  record  or  compute 
values  from  following  input, 

T  =  use,  F  =  read  data 

2 

FACT(7,3) 

Value  of  Blue  countermeasure,  S(7) 

3 

FACT(7,4) 

Value  of  Blue  measure,  T(7) 

(if  JUMP  =  .FALSE.,  next  record,  else  GOTO  next  **) 

(next 

record) 

1 

RDIVS 

Red  divisional  personnel  strength 
supported 

2 

RAREAS 

Red  area  support  strength  supported, 
if  any 

3 

RSFACT 

Red  surge  factor 

4 

RDWIA 

Red  divisional  WIA  rate  (per  1,000) 

5 

RAWIA 

Red  area  support  WIA  rate  (per  1,000) 

(next 

record) 

1 

RDDNBI 

Red  divisional  DNBI  rate  (per  1,000) 

2 

RADNBI 

Red  area  support  DNBI  rate  (per  1,000 

3 

RMBCAP 

Red  medical  bn  capability  (releases 
per  day) 

4 

RFEVAC 

Red  fraction  of  casualties  evacuated 
from  division  area 

(**) 
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F  1.0  1.0 

19485.0  19485.0 

5.65  1.2 

F  1.0  1.0 

11920.0  11920.0 

6.00  1,8 


5.0 

160.0 

5.0 
500. 0 


3.17 

.5 

24.0 

.5 


1.73 

5.4 


Figure  E-I-7.  Example  of  Medical  Data  Input  to  the 
AFP  CS/CSS  Main  Preprocessor 


g.  Maintenance.  Table  E-I-7  describes  the  maintenance  input.  Figure 
E-I-8  displays  sample  input  records  for  generating  maintenance  factors. 


Table  E-I-7.  Maintenance  Input 
(page  1  of  3  pages) 


Field 


Variable 


Data  description 


(1st  record) 

1  JUMP 

2  FACT(8,1) 

3  FACT (8,2) 

(if  JUMP  =  .FALSE.,  next  records, 
(next  records) 


Switch  for  whether  to  use  given 
values  in  record  or  compute 
values  from  following  input, 

T  =  use,  F  =  read  data 

Value  of  Blue  countermeasure,  U(8) 

Value  of  Blue  measure,  V(8) 

else  GOTO  next  record  **) 
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Field 


Variable 


Data  description 


1  BMCAP (  ) 


2  BMREQ(  ) 


(**  next  record) 


Blue  maintenance  capability  (number 
of  personnel  on  hand)  in  each  of  i 
maintenance  categories,  i  =  1  through 
7.  The  subscripted  variable  BMCAP(  ) 
corresponds  to  each  of  the  following 


skill 

specialties: 

i 

MOS 

Maintenance  category 

1 

31E 

Field  radio  repair 

2 

45B 

Small  arms  repair 

3 

45  L 

Arti 1 lery  repair 

4 

52D 

Power  generator  re¬ 
pair 

5 

62B 

Construction  equip¬ 
ment  repair 

6 

63G,H,W 

Automotive  repair 

7 

67 

Aircraft  repair 

Blue  maintenance  personnel  require¬ 
ment  according  to  TAADS  (authoriza¬ 
tion  documents)  in  each  of  i  categories 
as  shown  above. 


1  JUMP 

2  FACT (8, 3) 

3  FACT (8, 4) 

(if  JUMP  =  .FALSE.,  next  records. 


Switch  for  whether  to  use  given 
values  in  record  or  compute 
values  from  following  input, 

T  =  use,  F  =  read  data 

Value  of  Red  countermeasure,  S(8) 

Value  of  Red  measure,  T(8) 

se  GOTO  next  **) 


(next  records) 
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Table  E-I-7.  Maintenance  Input 
(page  3  of  3  pages) 


Field  | 

Variable 

Data  description 

1 

RMCAP 

Capability  (1,000s  MH/day)  for 
maintenance  category 

2 

RMREQ 

Requirement  (1,000s  MH/day)  for 
maintenance  category 

(**) 

F  1.0  1.0 

7 

627.12  11.807 

1057.26  9.835 

16.08  .256 

68.34  .446 

52.26  1.566 

217.08  2.42 

12.06  .37 

T  1.0  .7017 


Figure  E-I-8.  Example  of  Maintenance  Data  Input  to  the 
AFP  CS/CSS  Main  Preprocessor 
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h.  Supply  and  Transportation.  Table  E-I-8  describes  the  supply  and 
transportation  input.  Figure  E-I-9  displays  sample  input  records  for  gen¬ 
erating  supply  and  transportation  factors. 


Table  E-I-8.  Supply  and  Transportation  Input 
(page  1  of  3  pages) 


Field 

Variable 

Data  description 

(1st  record) 

1 

JUMP 

Switch  for  whether  to  use  given 
values  in  record  or  compute 
values  from  following  input, 

T  =  use,  F  =  read  data 

2 

FACT (9,1) 

Value  of  Blue  countermeasure,  U(9) 

3 

FACT (9, 2) 

Value  of  Blue  measure,  V(9) 

(if  JUMP  =  .FALSE.,  next  record,  else  GOTO  next  record  **) 

(next  record) 

1 

BNSTA 

Number  of  Blue  S&T  equipment  types 

(next  BNSTA  records) 

1 

BDST 

Population  of  Blue  equipment  of  type 

2 

BA VAIL 

Availability  of  Blue  equipment  of  type 

3 

BEFF 

Capacity  of  Blue  equipment  type 
(meas-mi les/day) 

4 

TCOMP 

Pointer  to  transportation  class 

1  =  STON 

2  =  gallons 

3  =  STON  (ALOC) 

(next  record) 

1 

BNCLAS 

Number  of  Blue  classes  of  supply 

(next  BNCLAS  records) 
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Table  E-I-8.  Supply  and  Transportation  Input 
(page  2  of  3  pages) 


Field  Variable 

Data  description 

1  BCONR 

Blue  required  consumption  by  class 
of  supply  ( Ibs/man/day) 

2  BALOC 

Percent  of  class  required  by  ALOC 

3  BBASIC 

Percent  of  class  carried  by  supported 
units 

(**  next  record) 


1  JUMP 

Switch  for  whether  to  use  given 
values  in  record  or  compute 
values  from  following  input, 

T  =  use,  F  =  read  data 

2  FACT (9, 3) 

Value  of  Red  countermeasure,  S(9) 

3  FACT(9,4) 

Value  of  Red  measure,  T(9) 

(if  JUMP  =  .FALSE.,  next  record,  else  GOTO  next  **) 


1  RDIVS 

Red  division  personnel  strength 

(next  record) 

1  RNSTA 

Number  of  Red  S&T  equipment  types 

(next  RNSTA  records) 

1  RDST 

Population  of  Red  equipment  of  type 

2  RAVAIL 

Availability  of  Red  equipment  of  type 

3  REFF 

Capacity  of  Red  equipment  type 
(meas-mi les/day) 

4  TCOMP 

Pointer  to  transportation  class 

1  =  MTON 

2  =  liters 

3  =  MTON  (ALOC) 

(next  record) 
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Field 


Variable 


Data  description 


1 

RNCLAS 

Number  of  Red  classes  of  supply 

(next  RNCLAS  records) 

1 

RCONR 

Red  required  consumption  by  class  of 
supply  ( Ibs/man/day) 

2 

RALOC 

Percent  of  class  required  by  ALOC 

3 

RBASIC 

Percent  of  class  carried  by 
supported  units 

(**) 

NOTE:  The  AFP  treatment  of  the  supply  and  transportation  function  requires 
Blue  divisional  personnel  strength  as  input.  That  datum  need  not  be  read 
in  this  segment  because  the  value  is  read  earlier  by  the  CS/CSS  Main  Pre¬ 
processor  for  one  of  the  foregoing  CS/CSS  functions. 


F  1.0  1.0 

8 


(L 

1.0 

60.  QO 

1 

72 

1.0 

5.03 

1 

654 

1  *  c 

2.53 

1 

2 

1.0 

2500.00 

19 

1 .0 

1 300 .00 

"2 

a 

1.0 

8  .00 

1 

8 

1 .  n 

5  00  .00 

2 

63 

1  .0 

6  .35 

3 

8 

3.62 

0.0 

1.0 

15.17 

c .  P 

1.0 

.53 

0.0 

1.0 

8 .50 

0.0 

1 . 0 

13.78 

0.0 

1.0 

6.97^ 

0.0 

1  .0 

•  3  5 

0.0 

1.0 

.72 

0.3 

0 .7 

F 

1.0 

1.0 

11920 

2 

1 

1 . 0 

4382.5 

2200 

1 . 0 

10440 

2 

1860.92 

a .  o 

1.0 

42.23 

0.0 

1 .0 

Figure  E-I-9.  Example  Supply  and  Transportation  Data  Input 
to  the  AFP  CS/CSS  Main  Preprocessor 
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Section  III.  OUTPUT 

E— 1-6-  Table  E-I-9  describes  the  sample  extract  records  from  a  file 
produced  by  the  CS/CSS  Main  Preprocessor.  Figure  E- I -10  displays  sample 
extract  records;  the  records  have  the  same  format. 


Table  E-I-9.  Output  Description 


Columns  | 

Variable 

Data  description 

|  Format 

(Ith  record) 

1-2 

I 

Counter  to  indicate  the  Ith 

CS/CSS  function  listed 

12 

3-5 

IENV 

Numerical  indication  of  the 
type  environment  pertinent  to 
this  output  listing 

13 

6-13 

FACT (1,1) 

Blue  countermeasure  factor 

U(I)  for  the  Ith  CS/CSS 
function 

F8.2 

14-21 

FACT (I, 2) 

Blue  measure  factor  V(I)  for 
the  Ith  CS/CSS  function 

F8.2 

22-29 

FACT (1,3) 

Red  countermeasure  factor 

S(I)  for  the  Ith  CS/CSS 
function 

F8.2 

30-37 

FACT (I, 4) 

Red  measure  factor  T(I)  for 
the  Ith  CS/CSS  function 

F8.2 

38-42 

— 

5X 

43-53 

NFUN(I) 

Literal  name  of  the  Ith 
function  such  as  Mines  or 

C2EW 

All 

54-55 

— 

2X 

56-61 

NAMPOS 

Designation  of  the  posture; 
e.g.,  STATIC,  BAPD 

62-63 

— 

2X 

64-67 

FORCE 

Identification  of  unit  and 
fiscal  year;  e.g.,  8182  for 
the  8th  Infantry  Division, 
fiscal  year  1982 

A4 

E-I-26 


(M  rsj  (M  f  fsj  (\i  fM  rsi  rvi 


CAA-D-84-14 


C/M 

B  ME  AS 

R  C/M 

P  ME  A  S 

FUNCTION 

POST 

FORCE 

i.12 

.99 

2.28 

.9  - 

MOBILITY 

STATIC 

ala? 

l.CO 

.92 

l.OC 

•  8  5 

BRIDGING 

sta  tic 

8X8? 

l.CO 

.69 

1.00 

1.29 

MINE 

STATIC 

*182 

l.CO 

.29 

l.OC 

1.46 

PROT.POSN  . 

STATIC 

8152 

1.00 

1.00 

i.ao 

I  .00 

M/  * 

STA  TIC 

81 8  * 

1 .00 

.98 

l.OC 

1.17 

C2EW 

STA  TIC 

8182 

l.rc 

1.02 

l.OC 

1.Q2 

MEDICAL 

static 

6  T8  ^ 

l.CO 

.97 

l.OC 

2. S3 

MAINTENANCE 

STATIC 

8182 

l.QO 

.61 

1.0c 

.8  1 

SUPP8TPANS 

static 

Figure  E-I-10.  Example  of  Blue  Countermeasures  and  Measures 
and  Red  Countermeasures  and  Measures  by  CS/CSS  Function 
as  Generated  by  AFP  CS/CSS  Main  Preprocessor 


Section  IV.  RUNSTREAM 

E-I-7.  Figure  E- I -11  displays  a  sample  runstream  for  a  single  execution  of 
the  two  CS/CSS  Preprocessors,  both  the  Search  and  the  Main  Preprocessors. 


1 :3RUN  ,F/TP  A1P3.E1S99P7277D, UNCLASSIFIED, 5. 100 
2 :  3HDG  , If  ****$$UNCLASSIFIED****** 

3:30UAL  UNCLASSIFIED 
4  :  3  A  S  G  »  A  *P  30  U  T  PUT  • 

5 : 3USE  20,  $P30UTPUT. 

6  :  3  A SG  »  T  17. 


7:  3ED 
8 : 3USE 
9 : 3X  Q  T 


»P3C0UNTEP.aASlSTEST,17. 
15.  ,  7P3TESTCS. 
*P2C0UNTER.870PRECSCSSI 


Figure  E-I-ll.  Sample  Runstream  for  Execution  of  the 
AFP  CS/CSS  Preprocessors 
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Section  V.  PROGRAM 

E-I-8.  Figures  E- I -12  and  E-I-13  display  the  basic  logical  flow  of  the  two 
AFP  CS/CSS  Preprocessors. 

E-I-9.  The  following  paragraphs  describe  the  calculation  of  measures  and 
countermeasures  for  the  CS/CSS  functions  represented  within  AFP. 

a.  Tactical  Mobility.  The  treatment  of  tactical  mobility  provides  a 
first  order  approximation  to  the  advantages  and  disadvantages  of  having 
more  or  less  air  and  ground  mobility  as  a  net  result  of  unimpeded  vehicle 
speeds  (the  Blue  and  Red  measures)  and  non-mine  obstacles  (the  Blue  and  Red 
countermeasures). 

(1)  Measure.  Tactical  mobility  is  measured  by  combining  the  weighted 
average  speeds  of  a  side's  aircraft  and  ground  vehicles.  If  V(l)  is  the 
Blue  tactical  mobility  measure. 


G  GB 

2  (N(i )  *  S ( i ) )  2  N(i) 

1  i 

V  ( 1 )  =  -  * - 

GB  T 

2  (N(1)  *  S(1))  2  N(i) 

i  i 


A  AB 

2  (N(i)  *  S(i)  2  N(i ) 

1  i 

+  -  * - *  M 

AB  T 

2  (N(i)  *  S(i )  2  N(i) 

i  i 


where: 

the  number  of  Blue  ground  combat  vehicle  types 

the  number  of  Blue  ground  combat  vehicle  types  in  the  selected  base 
case 

index  of  Blue  vehicle  types;  e.g.,  i  =  1,  2,  ... 
the  number  of  vehicles  of  type  i  (including  aircraft) 
the  speed  (kph)  of  the  vehicles  of  type  i 

the  total  number  of  Blue  ground  combat  vehicle  and  aircraft  types 
the  number  of  Blue  aircraft  types 

the  number  of  Blue  aircraft  types  in  the  selected  base  case 
ratio  of  the  aircraft  weighted  average  speed  to  ground  combat 
vehicle  weighted  average  speed  for  two  combined  base  cases 

A  similar  expression  (for  T(l))  applies  to  Red  ground  combat  vehicles.  It 
is  implied  that  faster  is  better.  For  other  measures  held  constant, 
greater  speed  tends  to  improve  a  side's  exchange  ratio  (kills/losses).  It 
is  not  suggested  that  the  simple  proportionality  to  speed  holds  for 
extremely  low  or  extremely  high  speeds. 


G  = 
GB  = 


N(1)  = 
SO)  • 
T  = 

A  = 

AB  = 

M  = 
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and  Medical. 

Figure  E-I-12.  Flow  Chart — Search  Preprocessor 
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NOTE: 


THIS  FLOW  LOGIC  GENERALLY 
DEPICTS  THE  PROCESS  TO 
DEVELOP  EACH  OF  THE  8 
CS/CSS  FACTORS;  IT  IS 
REPLICATED  FOR  EACH 
DIVISION.  EACH  YEAR, 

AND  EACH  POSTURE  REQUIRED. 


Figure  E-I-13- 


Flow  Chart— AFP  CS/CSS  Main  Preprocessor 


E— I -30 


CAA-D-84-14 


(2)  Countermeasure.  The  Blue  side's  countermobility  measure  is  the 
ratio  of  its  non-mine  obstacle  creation  capability  to  the  Red  side's  doc¬ 
trinal  non-mine  obstacle  creation  clearing  capability.  It  is  assumed  the 
tactical  commander  would  allocate  100  percent  of  his  earth  moving  assets  to 
countermobility  and  100  percent  to  build  protective  positions. 
Situationally,  however,  the  tactical  commander  on  the  ground  would  allocate 
his  resources  according  to  the  scenario  in  progress.  The  Blue  obstacle 
creation  capability  in  packed  dirt  expressed  in  cubic  meters  per  hour 
(m^/hr)  is  the  dig-in  rate  of  on-hand  Blue  equipment.  The  Red  obstacle 
clearing  capability  similarly  expressed  in  m^/hr  is  the  excavation  rate  of 
doctrinal ly-prescribed  Red  equipment.  If  the  Blue  tactical  mobility 
countermeasure  is  U(l),  then. 


J  K 

U(l)  =  2  (N(i)  *  D(1))/S  (N(i)  *  E( i ) ) 
i  i 


where: 

J  =  the  number  of  Blue  equipment  types  capable  of  creating  obstacles 

i  =  index  of  equipment  types 

N(i)  =  number  of  equipment  of  type  i 

D(i)  =  the  dig-in  rate  (m^/hr)  of  equipment  of  type  i 

K  =  the  number  of  Red  equipment  types  capable  of  clearing  obstacles 

E(i)  =  the  excavation  rate  of  equipment  of  type  i 

An  expression  similar  to  U(l)  applies  to  the  Red  side,  S(l).  This  would  be 
accomplished  by  substituting  Red  doctrinal  obstacle  creation  equipment  cap¬ 
ability  in  the  numerator  of  the  equation  and  Blue  obstacle  clearing  equip¬ 
ment  capability  in  the  denominator. 

b.  Bridging.  The  treatment  of  bridging  provides  first  order  approxima¬ 
tion  to  the  advantages  and  disadvantages  of  having  more  or  less 
gap-crossing  capability. 

(1)  Measure.  A  side's  measure  is  determined  in  a  submodel  as  the 
bridging  capability  of  a  combat  force  using  the  force's  bridge,  raft,  and 
vehicle  inventory.  The  submodel  uses  bridge  and  raft  inventories  as  well 
as  characteristics  of  bridges  and  rafts,  the  vehicle  inventory  by  weight 
class,  and  a  series  of  gaps  of  specified  widths  which  the  force  attempts  to 
cross.  For  each  gap  width,  the  submodel  computes  the  following: 

(a)  A  determination  whether  it  is  possible  to  cross  the  gap,  given 
the  rafts  and  bridges  available  (without  regard  to  vehicle  inventory); 

(b)  The  fraction  of  vehicles  which  can  cross  the  gap  via  bridge  or 
raft;  and 
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(c)  The  total  time  required  for  those  vehicles  to  cross  the  gap, 
including  set-up  and  take-down  times  for  bridges  and  rafts. 

These  assumptions  pertain:  the  availability  of  personnel  to  perform  set-up 
and  take-down  operations  is  not  considered.  Although  not  all  the  force  may 
be  able  to  cross  a  given  width  of  gap,  when  the  next  gap  is  processed  the 
entire  force  is  viewed  as  being  ready  to  cross  it  even  though  the  entire 
force  may  not  be  able  to  do  so.  The  bridging  measure  or  capability  V ( 2 )  is 
computed  as  follows: 

V( 2)  =  (Fi  *  F2  *  F3)/(base  Fi  *  base  F2  *  base  F3) 


where. 


F 


1 


n 

2 

i 


T(i )  *  D(i ) 


n  =  number  of  different  gap  widths 
T(i)  =  the  "gap  weight"  (i=l,2...,n) 

D(i)  =  1  if  it  is  possible  to  cross,  0  otherwise 


and 


T(i)  =  (G(i)  *  W(i))  /  (2  G ( i )  *  W(i)) 

i 


where. 


G(i)  =  the 
W(i)  =  the 
n 

F2  =  1/(2 


number  of  gaps  of  type  i  (1*1,2,. 
width  of  the  ith  type  gap  (1*1,2, 

e(D  *  C(1)) 


n) 

»n)  • 


C(i)  =  the  calculated  crossing  time  for  gap  type  i  (i=l,2, . . . ,n) 


F.  =  (2  R(i ) )/n 
J  i 


R(i)  =  the  fraction  of  vehicles  capable  of  crossing  gap  type  i 
(i-1,2, . . . ,n) . 

Base  F^,  base  F2,  and  base  F3  =  values  of  F^,  F2,  and  F3  in  a  base  case 
(2)  Countermeasure.  None;  i.e.,  U(2)  =  S(2)  =  1.0. 
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c.  Mine/Countermine.  The  treatment  of  mine/countermine  provides  first 
order  approximation  to  the  advantages  and  disadvantages  of  a  side's  having 
more  or  less  mine  laying  or  breaching  capability. 

(1)  Measure.  The  computations  depicting  a  side's  mine  laying 
capability  and  the  enemy's  mine  clearing  capability  are  incorporated  into  a 
single  ratio  representing  a  side's  mine  and  countermine  functions.  Both 
equipment  and  personnel  capabilities  are  considered.  Also,  a  side's  mine 
laying  capability  is  affected  by  the  opposing  side's  lane  clearing  doctrine 
(i.e.,  number  and  width  of  lanes  to  be  cleared)  to  yield  effective  mine 
laying  capability.  If  V(3)  is  the  Blue  mine/countermine  measure,  then 

V(3)  =  L(b)/C(r) 


where, 

L(b)  =  Blue  capability  to  lay  mines 
and 

L(b)  =  Q(b)  +  P(b)  *  500/13  *  N(r)  *  W(r)/0.5  *  F(r) 

where, 

Q(b)  =  rate  (mines/hr)  of  Blue  mine  laying/clearing  equipment,  nonmanual 
methods 

P(b)  =  number  of  Blue  personnel  engaged  in  minelaying/clearing  operations 
500/13  =  number  of  mines  per  hour  laid  by  a  13-man  team  (12EM  +  1  NCO)  of 
engineer  personnel  (MOS  12B) 

N(r)  =  doctrinal  number  of  Red  lanes  to  be  cleared  through  a  Blue  minefield 
by  an  attacking  Red  division 

W(r)  =  doctrinal  width  (meters)  of  a  cleared  Red  lane  through  a  minefield 
0.5  =  represents  the  assumption  that  one-half  of  the  division  front  is 
protected  by  natural  obstacles 

F(r)  =  doctrinal  width  (meters)  of  a  Red  division's  frontage 
C(r)  =  Red  capability  to  clear  mines  (mines/hr)  is  currently  calculated 
off-line 

Otherwise,  T(3)  is  the  Red  mine  measure  such  that, 

T(3)  =  L(r)/C(b) 


where, 

L(r)  =  Red  capability  to  lay  mines  calculated  by  replacing  the  (b)  and  (r) 
notations  with  their  respective  converse  in  the  formula  for  L(b) 
C(b)  =  Blue  capability  to  clear  mines  (mines/hr) 

and 


C(b)  =  Q(b)  +  P(b)  *  3.6/30.0 
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where, 


3.6  =  number  of  Red  mines  encountered  per  lane 

30.0  =  Blue  doctrine  specifies  30  manhours  required  to  clear  one  lane  that 
is  1  km  long. 

(2)  Countermeasure.  None;  i.e.,  U(3)  =  S(3)  =  1.0. 

d.  Protective  Positions.  The  treatment  of  protective  positions  provides 
first  order  approximation  to  the  advantages  and  disadvantages  of  having 
more  or  less  capability  to  construct  protective  positions.  Within 
the  AFP  Combat  Module,  combat  postures  are  assumed  to  be  "pure"  in  the 
sense  that  none  or  all  of  the  side's  ground  systems  are  in  defilade.  That 
assumption  directly  influences  the  sensing  sizes  and  SSPKs  by  posture 
employed  within  the  Combat  Module.  The  protective  position  factors  provide 
some  a  posteriori  adjustment  to  the  Combat  Module's  raw  estimates  of  kills 
and  losses.  In  a  defense  intense  posture,  where  all  defenders  are  assumed 
to  be  in  defilade,  a  defender's  protective  position  factor  must  be  =  1.0. 

In  open  postures,  it  is  reasonable  to  permit  factors  1.0  as  well.  The 
protective  position  function  does  not  include  countermeasures;  i.e., 
countermeasure  factors  are  all  set  to  the  default  value  1.0. 

(1)  Measure.  A  side's  measure  is  simply  the  ratio  of  its  ability  to 
construct  protective  positions  in  5  hours  to  the  required  number  of 
positions.  The  required  number  of  positions  is  usually  assumed  equal  to 
the  total  inventory  of  ground  combat  systems  supported.  However,  to  the 
extent  that  nature  or  peacetime  work  have  already  provided  some  adequate 
positions,  the  requirement  may  be  less  than  the  total  number  of  ground 
systems.  Or  to  the  extent  that  a  side  may  wish  or  be  forced  to  change 
locations  more  frequently  than  with  5  hours'  warning,  the  requirement  may 
be  larger  than  the  number  of  ground  systems.  If  V(4)  is  the  Blue 
protective  position  measure, 

M 

V(4)  =  (  2  (A(i)  *  B ( i ) )  *  H  /  (F  *  C) 

i 


where, 

M  =  the  number  of  types  of  Blue  systems  assigned  to  prepare  protective 
positions 

i  =  the  index  of  the  Blue  system  types;  i  =  1  to  M 
A(i)  =  the  number  of  Blue  systems  of  type  i 

B(i)  =  the  position  preparation  rate  per  hour  per  Blue  system,  adjusted 
if  the  system  must  perform  other  roles  as  well 

H  =  5  (hrs),  the  assumed  critical  time  interval,  may  be  adjusted  for 
the  number  of  productive  H-hour  productive  periods  that  can  be 
achieved  in  a  combat  day  if  moves  are  frequent 
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F  =  the  inventory  of  Blue  ground  combat  systems 

C  =  the  fraction  of  Blue  ground  systems  requiring  prepared  positions, 

C  0.0  and  may  exceed  1.0 

A  similar  expression  (for  T(4))  applies  to  the  Red  side. 

(2)  Countermeasure.  None;  i.e.,  U(4)  =  S (4)  =  1.0. 

Note:  U(5),  V(5),  S(5),  and  T(5)  are  not  employed  in  the  current  version 
of  the  AFP  system. 

e.  Conmand,  Control,  and  Electronic  Warfare  (C2EW).  The  treatment  of 
C2EW  provides  first  order  approximation  of  the  advantages  and  disadvantages 
of  being  more  or  less  able  to  overcome  an  opponent's  efforts  to  jam  one's 
own  electronic  communication  system  and  thereby  disrupt  command  and 
control.  A  side's  C2EW  measure  and  countermeasure  are  combined  within  a 
single  factor;  the  AFP  convention  is  to  regard  the  single  factor  as  a 
measure  with  the  countermeasure  always  1.0. 

(1)  Measure.  A  side's  measure  is  simply  the  ratio  of  its  unjammed 
radios  to  the  number  required  for  electronic  communication  supportive  of 
"normally  intense"  combat  command  and  control  activity.  Because  a 
division's  inventory  of  radios  includes  some  redundancy  and  because 
transmissions  need  not  be  continuous,  the  jamming  of  some  radios  need  not 
induce  any  degradation.  If  V(6)  is  the  Blue  C2EW  measure, 

V( 6)  =  1.0  -  SUM 


where. 


4 

SUM  =  2  F(i)  *  W(i)  *  T(i) 
i 


i  =  the  index  of  Blue  C-E  system  types;  i  =  1  to  4 

F(i)  =  a  factor  describing  the  change  in  combat  effectiveness  corresponding 
to  each  1  percent  of  communications  lost  by  type  of  C-E  system 
W(i)  =  the  percent  (weight)  of  combat  effectiveness  change  allocated  to  a 
particular  type  C-E  system 


N 

T(i)  =  min(M(i),  2  E(j,i)  *  Q( j , i )/R( i ) ) 

j 
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where, 

M(i)  =  maximum  possible  factor  by  which  combat  effectiveness  could  be 
degraded  for  a  particular  type  of  C-E  system 
j  =  the  index  of  the  jammer  types  ( j=l,2 . N) 

E(j,i)  .=  the  effective  number  of  Blue  systems  of  type  i  jammed  by  one  Red 
jammer  of  type  j 

Q(j,i)  =  the  quantity  of  Red  jammers  of  type  j 
R(i)  =  the  quantity  of  Blue  C-E  systems  of  type  i 

The  Red  measure  T(6)  uses  formula  similar  to  the  preceding,  but  T(6) 
focuses  on  the  effectiveness  of  Blue  jammers  by  type  against  Red  C-E 
systems.  Note  that  selected  data  elements  such  as  quantity  of  Red  C-E 
systems  jammed  (i.e.,  DNSRAD(i))  and  the  jamming  factor  describing  the 
change  in  combat  effectiveness  corresponding  to  each  1  percent  of 
communications  lost  (i.e.,  FACJAM(i))  have  been  converted  to  a  base  value 
(1.0).  If  T(6)  is  the  Red  measure, 

4  N 

T(6)  =  1.0  -  (2  (F(i)  *  W( i ) )  *  min(M( i ) ,2  E(j,i)  *  Q(j,i)/R(i))) 
i  j 


where, 

i  =  index  of  Blue  type  jammers  countering  Red  C-E  systems  (i  =  1  to  4) 
F(i)  =  1.0 

W(i)  =  percent  expressed  as  a  decimal  number  indicating  the  effective 
weight  of  the  targeted  Red  C-E  system 
M(i)  =  factor  indicating  the  maximum  possible  effectiveness  of  a  type  Blue 
jammer  against  a  type  Red  C-E  system 
E ( j , i )  =  factor  expressed  as  a  decimal  number  indicating  the  percentage 

effectiveness  of  a  particular  jammer  (by  nomenclature)  identified 
by  subscript  j 

Q(i)  =  the  quantity  of  Red  jammers  of  type  j 
R(i)  =  1.0 

(2)  Countermeasure.  None;  i.e.,  U(6)  =  S(6)  =  1.0. 

f.  Medical.  The  AFP  treatment  of  the  medical  function  provides  first 
order  approximation  to  the  advantages  and  disadvantages  of  a  side's  having 
more  or  less  divisional  medical  capability  given  fixed  treatment  and 
evacuation  policies  and  fixed  higher  echelon  medical  capability.  It  is 
assumed  that  only  relatively  small  differences  from  norms  need  be 
considered.  Blue  and  Red  medical  measures  may  differ  from  1.0;  however, 
the  AFP  representation  of  the  medical  function  does  not  include 
countermeasures  (hence  "countermeasure"  values  are  always  set  to  the 
default  value  1.0). 
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(1)  Measure.  A  side's  measure  is  based  on  the  daily  loss  of  division 
strength  directly  attributable  to  shortfall,  if  any,  in  divisional  medical 
capability.  If  V(7)  is  the  Blue  medical  measure, 

V(7)  =  1.0  -  Q  *  (A  -  C*(1.0  +  D) )  /  B  <  1.0 


where,  in  turn, 

A  =  (F*(G  +  H)  +  L*(K  +  M))  *  P  /  1000.0 
B  =  F  +  L 

and, 

A  =  daily  admissions 

B  =  total  supported  personnel  strength 

C  =  divisional  medical  capability,  returns  to  duty  per  day 

D  =  evacuees  to  higher  echelon  as  fraction  of  the  divisional  medical 
battalion  return  to  duty  rate 

F  =  division  personnel  strength 

G  =  division  normal  WIA  per  day  per  1,000  strength 

H  =  division  normal  DNBI  per  day  per  1,000  strength 

K  =  support  area  normal  WIA  per  day  per  1,000  strength 

L  =  support  area  personnel  strength 

M  =  support  area  normal  DNBI  per  day  per  1,000  strength 

P  =  surge  factor  (combat  intensity/normal  intensity) 

Q  =  number  of  days  of  concern,  usually  1.0 

The  factor  typically  has  a  very  small  range.  The  form  of  the  above  expres¬ 
sion  was  approved  by  the  Agency's  medical  P0C.  However,  note  that,  if 
there  is  no  divisional  medical  battalion  capability,  the  measure  is  V(7)  = 
1.0  -Q  *  A  /  B.  If  Q  =  1.0  and  the  casualty  rate  is  2  percent  per  day, 

V(7)  =  0.98.  No  attempt  is  made  to  reflect  the  impact  on  personnel 
attitude  when  they  know  there  is  more  or  less  medical  support  available.  A 
reduction  in  a  side's  medical  factor  reduces  that  side's  kill/loss  ratio, 
thereby  tending  to  reduce  its  combat  potentials.  As  for  other  functions, 
the  range  of  practical  interest  is  assumed  to  be  relatively  small.  The 
simple  proportionalities  in  the  above  expressions  probably  overestimate  the 
impact  of  extremely  small  shortfalls  and  certainly  underestimate  the  net 
effects  of  very  large  shortfalls. 

A  similar  set  of  expressions  (for  T(7))  applies  to  the  Red  side. 
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(2)  Countermeasure.  None;  i.e.,  U(7)  =  S(7)  =  1.0. 

g.  Maintenance.  The  AFP  treatment  of  the  maintenance  function  provides 
first  order  approximation  of  the  advantages  and  disadvantages  of  a  side's 
having  more  or  less  divisional  maintenance  capability  relative  to  planning 
or  doctrinal  requirements  levels.  Obviously  excess  maintenance  capability 
cannot  produce  benefit.  Within  a  sufficiently  narrow  range,  the 
maintenance  impact  is  assumed  proportional  to  the  capability/requirement 
ratio.  More  maintenance  improves  a  side's  kill/loss  ratio  and,  therefore, 
tends  to  increase  combat  potential.  The  maintenance  function  does  not 
include  countermeasures. 

(1)  Measure.  The  measure  is  simply  a  gross  capability-to-requirement 
average  over  several  equipment  categories.  If  V(8)  is  the  Blue  maintenance 
measure, 

M 

V ( 8 )  =  ((2  ( C ( i )/R( i ) )  <  1.0 
i 


where, 

M  =  number  of  maintenance  categories  hardwired  to  equal  7 

i  =  index  of  maintenance  categories;  i  =  1  to  M; 
typically:  automotive,  aviation,  artillery, 
engineer,  communication,  power  generation, 
small  arms 

C(i)  =  Blue  maintenance  capability  in  category  i;  personnel  on-hand  by 
fiscal  year  according  to  Readiness  Indicator  Model  (RIM)  data 

R(i)  =  Blue  maintenance  requirement  in  category  i  according  to  TOE 

NOTE:  The  maximum  value  for  r(8)  is  1.0  because  there  is  no  tradeoff  of 
capabilities  across  maintenance  categories.  For  example,  a  large  surplus 
of  communication  maintenance  capability  does  not  compensate  for  a  shortfall 
in  automotive. 

A  similar  expression  (for  T(8))  applies  to  the  Red  side. 

(2)  Countermeasure.  None;  i.e.,  11(8)  =  S(8)  =  1.0. 

h.  Supply  and  Transportation.  The  AFP  treatment  of  the  supply  and 
transportation  function  provides  first  order  approximation  of  the 
advantages  and  disadvantages  of  a  side's  having  more  or  less  divisional 
supply  and  transportation  capability  relative  to  planning  or  doctrinal 
requirements.  A  capability  to  move  more  than  there  is  available  to  be 
moved  does  not  generate  added  benefit.  Subject  to  that  obvious  limitation, 
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less  supply  and  transportation  capability  reduces  a  side's  kill/loss  ratio 
and,  therefore,  tends  to  decrease  combat  potential.  The  supply  and 
transportation  function  does  not  include  countermeasures. 

(1)  Measure.  The  measure  is  simply  a  gross  capabi 1 ity-to-requirement 
weighted  average  over  three  cargo/movement  categories:  STON,  gallons  (bulk 
POL),  and  ALOC.  Capabilities  and  requirements  may  be  expressed  in  terms  of 
"unit  of  measure-miles;"  e.g.,  STON-miles.  If  the  "miles"  is  set  to  1.0, 
capabilities  and  requirements  are  then  expressed  in  "single  lift"  terms. 

The  capabilities  are  computed  from  the  numbers  and  cargo  carrying 
capacities  of  divisional  transportation  assets.  The  requirements  are 
computed  from  planning  factors  expressed  in  terms  of  lbs/man/day  for 
different  classes  of  supply  and  for  the  division  personnel  strengths.  Bulk 
and  packaged  requirements  may  be  specified  separately;  e.g.,  for  Class  III 
by  representing  Class  III  with  subclasses.  For  each  class  (or  subclass)  of 
supply,  a  fraction  to  be  delivered  by  air  may  be  specified.  Hence,  zero 
bulk  POL  may  be  required  to  be  delivered  over  the  ALOC,  but  nonzero 
quantities  of  packaged  POL  may  be  designated  for  air  delivery.  Units  of 
measure  are  converted  as  appropriate  (e.g.,  lbs  to  gals  for  bulk  POL). 
Adjustment  is  made  for  how  much  of  total  supply  must  be  transported  by 
division  assets.  If  V(9)  is  the  Blue  measure, 

V(9)  =  Q1  *  A  /  X  +  Q2  *  E  /  P  +  Q3  *  K  /  CC 


where. 


Ql  +  Q2  +  Q3  =  1.0  and  Ql,  Q2,  and  Q3  are  nonnegative  weights  expres¬ 
sing  the  net  relative  importance  of  the  three 
ratios.  E.g.,  if  all  three  are  equally  important, 
Ql  =  Q2  =  Q3  =  1/3. 


A  =  Blue  STON  ground  transport  capability  (STON-mi les/day) 

X  =  Blue  STON  ground  transport  requirements  (STON-mi les/day) 
E  =  Blue  Class  III  transport  capability  (gal-miles/day) 

P  =  Blue  Class  III  transport  requirement  (gal-miles/day) 

K  =  Blue  ALOC  transport  capability  (STON-mi les/day) 

CC  =  Blue  ALOC  transport  requirement  (STON-mi les/day) 
Capabilities  are  computed  in  accord  with: 


NT 

A  =  2  (B(i)  *  C(l, i )  *  D ( 1 , i ) ) 


E- I -39 


CAA-D-84-14 


NT 

E  =  2  ( B ( i )  *  C(2,i)  *  D(2,i)) 


NT 

K  =  2  (B(1)  *  C(3,i )  *  D(3,1)) 

i 

where, 

NT  =  the  number  of  Blue  transporter  types 
i  =  the  index  of  the  Blue  transporter  types;  i  =  1  to  NT 
B(i)  =  the  number  of  Blue  transporters  of  type  i 

C(jji)  =  the  availability  of  Blue  transporter  type  i 
for  use  with  cargo  category  j 

D(j,i)  =  the  capacity  of  Blue  transporter  type  i 

for  use  with  cargo  category  j;  expressed  in 
terms  of  unit  of  measure  x  distance.  (Distance 
is  1.0  for  single  lift.) 

j  =  index  of  cargo  category;  j  =  1  to  3  for  STON, 
gals,  ALOC 

Requirements  are  computed  in  accord  with: 

NC 

X  =  (R/2000.0)  *  2  (Y(k)  *  AA(k)  *  DT(k)  *  (1.0  -  BB(k) ) ) 

k 


P  =  R  *  LG  *  Y(k')  *  AA(k')  *  DT(k') 


CC  =  (R/2000.0)  * 

where. 


NC 

2  (Y(k)  *  AA(k)  *  BB(k) ) 

k 


NC  =  the  number  of  classes  (subclasses)  of  supply 

k  =  index  of  the  number  of  classes  of  supply.  (One  of  these 
may  be  for  packaged  POL.) 

k1  =  index  of  bulk  POL  class 

R  =  division  personnel  strength 
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Y(k)  =  consumption  rate  ( Ibs/person/day)  or  class  of  supply  k 

AA(k)  =  fraction  of  class  k  to  be  carried  by  unit 

DT(k)  =  distance  (mi)  over  which  supply  class  k  must  be  transported. 
Set  to  1.0  for  single  lift. 

BB(k)  =  fraction  of  class  k  to  be  carried  on  ALOC 

LG  =  conversion  factor:  lbs  to  gals 

and  the  term  2000.0  is  the  conversion  factor:  lbs  to  ST0N. 

A  similar  expression  (for  T(9 ) )  applies  to  the  Red  side.  Where 
appropriate,  use  the  factor  1.102  to  convert  from  MTON  to  STON  and  the 
factor  0.265  to  convert  from  liters  to  gallons. 

(2)  Countermeasure.  None;  i.e.,  11(9)  =  S(9)  =  1.0. 

E-I-10-  After  the  values  of  U,  V,  S,  and  T  are  computed  for  each  CS/CSS 
function,  a  subroutine  (INDXCS)  is  called.  This  subroutine  normalizes  (or 
indexes)  each  measure/countermeasure  value  to  the  base  case  value. 


Section  VI.  PROGRAM  LISTINGS 

E-I-ll.  This  section  contains  source  listings  which  depict  both  the  Main 
and  the  Search  Preprocessors.  The  programs  are  written  using  FORTRAN  77 
for  the  Sperry  UNIVAC  1108  computer. 

a.  Figures  E- 1-14  and  E- I -15  are  listings  of  the  Procs  used  in  the  Main 
program,  the  Output  subroutine,  and  the  BRIDGE  subroutine  to  the  CS/CSS 
Search  program. 

b.  Figure  E-I-16  is  a  listing  of  the  main  CS/CSS  Search  program. 

c.  Figure  E-I-17  is  a  listing  of  the  Output  subroutine  to  the  CS/CSS 

Search  program. 

d.  Figure  E-I-18  is  a  listing  of  a  FORTRAN  Proc  identifying  certain 
COMMON  blocks  in  the  BRIDGE  subroutine  to  the  CS/CSS  Search  program. 

e.  Figure  E-I-19  is  a  listing  of  the  BRIDGE  subroutine,  with  13 
external  subroutines. 

f.  Figure  E- I -20  is  a  listing  of  the  CS/CSS  Main  Preprocessor. 

g.  Figure  E-I-21  is  a  listing  of  the  AFP  CS/CSS  Main  Preprocessor. 

h.  Figure  E- I -22  is  a  source  listing  of  the  external  subroutine  INDXCS 

to  the  CS/CSS  Main  Preprocessor. 
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1  BDGROU  PROC 

2  COPMON/BRGROU/ IPTA FP (60) , 

3  *  V  T  C  L  A  S <dC) ,  ITAFP(dG)  , 

A  *  E  6  L  0  0  P  f 

5  *E  C  AP , 

6  *IsTNUw(32) 

7  INTEGER  5G100P,IBFL4& 

8  END 


Figure  E-I-14.  Listing  of  FORTRAN  Procs  Identifying  COMMON 
Blocks,  Variables,  Arrays,  and  Parameters  of  the 
Main  Program,  the  Output  Subroutine,  and  the  BRIDGE 
Subroutine  for  the  CS/CSS  Search  Preprocessor 
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ItdPDAT  proc 

parameter  (  ma  xg  ap  -i  n ,  maxveh=bg 


6 

7 

6 

9 

1C 

11 

12: 

13: 

14: 

15: 

16: 

17: 

18: 

19: 


33 

34 
*?  c 

36 
37 : 
7  c  - 

7  9 : 
4  C : 
41: 
42: 
4  3 : 
44 : 
45: 
46: 
47: 

4P  . 


:C 

•  r 

:C 
:  C 


8  IS iG=lGOCrQQC3C3;  B I G=  1  .HE  1 6 > 


M  A  XB  R  G - 20  *  MAX  CP =2  0* 


ii A  X GAP  -  THE  MAX  NUMBER  OF  GAP  TYPES 

MAXVEH  r  THE  MAX  NUMBER  OF  VEHICLE  TYPES 

MAxSRG  ^  THE  MAX  NUMBER  OF  BRTDG2/R  AFT  TYPES 

MAX  CP  -  THE  MAXIMUM  NUMBER  OF  CROSSING  POINTS 

IE IG  -  A  REALLY  EIG  INTEGER 

BIG  =  A  REALLY  BIG  REAL  NUMBER 

INPUT  DATA; 

INTEGER 

>  BNUMtMAXBRG *  *  NBRIDG, 

+  NG  APS  *  NVEH, 

REAL 

♦  B  A  SEF 1  ,  BASEF2, 

♦  6CL5S(MAX BRG, MAXCP), 0SETS IMA XBRG), 


NCPD, 

V  NU  M  ( C : MAXVEH) 


♦  NGP (MAXGAP)  * 

♦  TOFACT, 

♦  WGAP(MAXGAP) 
CHA^AC  TER 

♦  BO  ESC (HAXBRG)*1C| 


NV  (MAXVEH ) , 
VCLAS(MAXVEH) , 


VO  ESC (MAXVEH>*13 


BASEF  3, 

CPSET (MAXBRG,MAXCP) , 
SETUP(MAxBRG,MAXCP)f 
VCRATE (MAXBRG»MAXCP ) * 


fl/iNi 

O 

END  OF  INPUT  DATA 
INTEGER 

+  IET(MAXCP)* 

IS  TATE (MAXCP)  , 

25: 

♦  NCBCHAXBRG) , 

NC PC (MAXGAP ) 

26: 

R  7 : 

REAL 

+  eLMAX, 

CSCORFIMAXBRG) , 

2P  : 

♦  FRyEHC (MAXGAP ) , 

GA  PC TM  CMAXC AP )  * 

29  : 

♦  LEFT (MAXVEH ) , 

PO  SSBL (MAXGAP) , 

3  G : 

♦  TNOW, 

TOTVEH 

j  1  *  C 

POSSIBLE  VALUES  OF 

IS T A TE  : 

IVT (MAXCP)* 


ECR (MAXVEH) * 
GAPWT (MAXGAP) , 
T NEXT  (MAXCP  )  * 


END 


PARAME  TER 
KSETUP: 
KCROSS; 
h TDOWN : 
h F IN  I : 

COMMON  /8P0  AT  / 

♦  BAsEFlt 

♦  BD  ESC  v 

♦  CP  SrT  * 

♦  G A  PCTM  * 

♦  IV  T  * 

♦  NCPCt 

♦  NV  , 

♦  TOFACT* 

♦  VCLAS* 

♦  WG  AP 


( K  S  cT  UP  - 1  ,  K  CROS  S-2  *  KTCOWN-3*  KFIM-4) 
BRIDGE  BEING  SET  UP 
BEING  CPOSSED  BY  VEHICLES 
3 R I PG  E  BEING  TAKEN  DOWN 
FINISHED  (NO  ACTIVITY) 


BASEF2, 
8LMAX  , 
CSC  OR  E  » 
GAPWT, 
LEFT* 
NCPD, 
NVEH* 
TNEXT  * 
VCRATE  , 


B  A  SEF  3  * 
BNUM  f 
ECR, 

IB T  , 
NBRIDG, 
NGAPS  * 
P0SS8L, 
TNOW  , 
VOESC  * 


BCLAS, 
BSETS, 
FRVEHC  , 
ISTATE  * 
NCB  , 

NGP  * 
SETUP , 
TO  TVr H  , 
VNUM  , 


Figure  E-I-15.  Listing  of  FORTRAN  Procs  Identifying  COMMON 
Blocks,  Variables,  Arrays,  and  Parameters  of  the  Main 
Program,  the  Output  Subroutine,  and  the  BRIDGE 
Subroutine  for  the  CS/CSS  Search  Preprocessor 
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6 

7 

8 
9 

13 

11 

12 

13 

14 

15 

16 
17 
IP 
1° 
2C 
21 
22 

23 

24 

25 

26 
27 
2P 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 
4C 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

55 

66 

57 

68 

69 

70 
7! 

72 

73 

74 

75 

76 

77 

78 


12° 

121 

12c 

130 

13c 


INTEGER  STP,  KT,  ITP 
INCLUDE  SP0AT,LIST 
INCLUOE  aDGPCU,LI5T 

INTEGE®  FILLIN.DI6IN.PO0SCP ,BCBSCL 
INTEGER  PLACE ,CLE AR,TCCUNT 
INTEGER  ICLTOT ,  IP  L  T  OT 
CHA  RA  CTER* 1 2  NAMES16Q),  SNA  ME *601 
CHA  RA  C  T^R  *  1 2  NAME?(15>,  BNAM£(32) 

CHARACTER* 12  HA  ME *  I  15 >  * MN AM E *  72 1 
CHARACTER*! 2  NAv£T(60),TNAM£(6Q ) 

CHARACTER* 12  NA^EC (  ICC)  ,CN  A  ME { 1 0G  1 
CHARACTER**,  STR(6C) 

CHA  DA  CTER*6  BSTRI ?Z  ) 

CHARACTER*©  MSTPI  32  > 

CHARACTERS  TSTP(6u) 

CHARACTERS  CSTP(luO) 

CHARACTERS  PSTR(2u) 

CHARACTER  LINS 
CHAPACTFR*12  0ESCPP 
DIMENSION  I  SC  A  P (6n)  , I SQ  TY (60) 

DIMENSION  I?CAP(32),IBCTY(32) 

DIMENSION  I MCAP f 3?)  ,I*CTY 1 32) 

DIMENSION  ITC4Pl6ni ,ITCTY(6C) 

DIMENSION  IfCAPC ICO  I.TCQTYC  1QF) 

D IMENSICN  IPC AP (2P ) ,IPCTY (20) ,IELCA  P(2C  1  * IDGCAP  *20 1  tPOSCAP( 20 ) 
DIMENSION  I  YE  ARUM) 

D IMENSION  IREADUt IQ) 

COMMON  JTPSNA ( 15 1 

COMMON/S/I TYPE( 6C ) ,  HAUL (6 0 ) , I TE MP ( 6 o ) , H TEMP <6>Q ) 

COHMON/A/  STRf ISC «PtISOTY ,ISVAR  (60)  , NAMES 
COMMON/P/  BSTP, IBCAD,IBCTY,  IBVARt  15  >, NAMES 
COM-ON/M/  MSTR , IMCAP, IMOTY , IMVAP (15  ) ,  N  A  ME M 
COMMON/ T/  TSTPtITrAP,IT0TYfITVAR(6D),NAMET 
COMMON/ T2/ I  SPED (6P  »  ,1 TE SP0 ( 6G  ) 

COMMON/C/  CSTR, ICC AP.ICQTY, ICVAR( 130) *N AMEC 

COMMON /P/  PSTP  ,'IPCAP,  IPQT  Y,  IP  V A R ( 2D  )  *  I E Li 0 T ( 2 Q )  , I DG TO T ( 20 ) , 
*POSTOTC?a) 

C0MMON/M2/IPLACEI 2G)tICLEAR (20)  ,IMPLAT ( 2C)  ,  ICLRTI20) 

OPEN  (UNIT-16) 

WRITE(6 . 12QI 


145 


151 

155 


157 


FORMAT* *X, ,rNTER  NUMBER  OF  YEARS  YOU  ARE  CONSIDERING*) 

WRITE (6, 121) 

FORMAT!  IX,* PRECEDE  SINGLE  DIGIT  VALUES  WITH  A  DM 
READ* 5,  125 INUMYRS 
FORMA  T( 12) 

ICOUN  T z 1 

DO  14C  TS-  1  »NUM  YR  5 
WPITE (6 ,  1  30) I S 

FORMA T(  lx  ,  ’ENTER  YEAR  ’,12,*  USING  2  DIGITS’) 
fi  FA  0  (  5,  1  3  5 ) I YrA  P (IS) 

FORMA  Tt I  2  ) 

IREADUt IS  I  PETEDHINES  .HICH  INVENTORY  FILE  TO  REA  T  •  THESE 
FILrS  are  ARRANGED  p Y  YEARS.  THE  IREAOU  STANDS  FOR  REAP 
UNIT.  THE  UNITS  THAT  THESE  FILES  ARE  STOPED  IN  BEGIN  *  I T  H 
UNIT  IQ,  THE  RUNSTPEAM  OBVIOUSLY  CAN  BE  MODIFIED  AS  RECUIRFD 
FOR  NEW  INVENTORIES. 

I PE  AD U* IS  1  =  1 YEA Pi IS )-7C 

C ON  T I NU r 
WRITE  <6 ,145  > 

FORMAT* 1X,*ENTED  THF  NUMBER  OF  TPSNS  YOU  AWE  INTERESTED  IN’) 
WRITE  I  6, 121) 

READ( 5 ,  150 ) NUMTIP 
F  OR  M A  T  <  12) 

I F  t  NU  m  T  TP  ,E0.  DG0T0153 
DO  160  JS=1,NL'MTIP 
WRITE ( 6 , 15S) US 

F  PRMA  T(  lx ,  ’FNTFD  tp^n  NUMBEP  ’,12,’  USING  5  OIGITSM 
P  EA  0 ( c , 1^7) JTPSHA (JS ) 

FORMA  T( 15 ) 

IFCNUMTIP  .EC  .1 ) THEN 
Jjrl 

GOTO  161 
E  HO  IF 
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79 

30 

31 
02 
83 
0a 
05 
86 
07 
08 
39 

90 

91 

92 

93 

94 
9C 

96 

97 

98 

99 
100 
101 
102 
103 
:  oa 
105 
1  06 
107 
1  08 
1  n9 

lie 
:  u 
1  12 
113 
1  14 
1  15 
1  16 
117 
1  18 
1  19 
1  20 
121 
1  22 

123 

124 

125 

126 

127 

128 
129 
1  30 
1  31 
1  32 
1  33 

134  : 

135 
1  36 
1  37 
13° 

1  39 

140 

141  ' 
14? 
143 
1  44 

145  : 

146 

1  47  : 

148  : 

149  : 
15n  : 

151 

152 

153 

154 

155 

156 

157 

150 
1  59 
160 


16" 
16  1 


200 

210 


C 

C  215 


220 
2  TQ 
23  c 


24  0 
2  r  Q 
2C  2 


255 

2  c  7 
25° 


260 

262 


264 

265 
26  7 

C 

C  268 


C 

C  269 


3  r  0 
1C 


CON  TI  SIUr 

DO  720  JJ=1,NUMTIP 
IF* JTPSNAI JJI .£0.r >GOTO  700 
OO  620  TI=i,NUMYR5 
IFtICOUNT  .CT.  1IG0T0  30C 
1  =  0 

RCAO  ( 21 f2 ln,£N0=22")  L  IN rD ESCR P , K , IT Y P , C A R RY 
FORMAT* Abf2Xf A12f 2X,I2f 2X,I1,?X  tF3. 2) 

M  IS  A  COUNTER  THAT  TIES  THE  LIMA  U ITH  THE  CAPBLTY 


CODE (I5C API 


M  -  M  ♦  1 

STR  *M)=LIN 
SNAME ( M >  =  DE  SC9P 
ISCAP | M >  =  K 
ITEMP*M  J  =  ITYP 
HTEMP(M)=CAPRY 
JRITE  *  6  ,2 15  ) SNA ME  *  M ) 
FORMA  T|  IX  ,  A  12  > 

GOTO  2C0 


MB=0 

READ*  ->Z%  235,EN0  =  24n  )  L TN  ,D ES CRP , K, I A FP 
FORMAT! A6t2XfA12,?X,I?,2X ,13) 

*B=M0+ 1 

3STRIM9)  =  LIN 
3  N  A  M  i  (  Mg  )  r  n£  SC°P 
I B  CA  p  I  MB  )  =  K 

IBTAFPI -B ) =IAFP 
GOTO  230 


MM=0 

READ (2  T,2b?tEN 0  =  255  ) 
FORMAT ( A6 , ZX , A  12 , 2X, I 
MM  =  M  M*  1 

MSTR(MM)  -  LIN 

MN AME  *  MM )  =  CE  SC  9  P 

IMCAP(mm)  z  K 
IMPLAT IMM ) =PLACE 
ICLRT*  mm ) =CLFAR 
GOTO  2^0 


LIN.CESCPP.K  .PLACE  .CLEAR 
*2  X  f  14  ,2  XT  13  ) 


M  T  r  o 


24 ,2*8  fEN0  =  260  )  L  I  N  ,DES  CR  P  ,  K ,  I S  PEE  0  ,  CL  A  SS  ,  I  a  F  P 
F0RHAT«»b,2X,iir,2X,I?,2X,:!,2X,F<i:  lJzx.IZ) 


TS^RIMT)  z  LIN 
TNAmE*mT)  r  OESCPP 
itcap<mt)  =  x 
ITESPOI MT 1 =TSPE5D 
VTCLAS1MT|=CLASS 
ITAFP*MT)zIAFP 
GOTO  257 


MC  =  0 

REAOI  25t21C,£N0=264  )  LIN.OFSCRP.K 

M  C  =  m  C  ♦  ! 

CSTRtMC)  =  LIN 
CN  AME ( UC J  r  PE  SCRP 

ICCAp|mC|  -  * 

GOTO  2*2 
MP  =  0 


_  .  l  ;rn,Kryr'  iNfuibHS.rlLL  1 N  •  r 
»  2  X  ,  1 3 ,2X, I3.2X.J2  ) 


FORMA  TI Ab,2X,F5< 

4  R  I  TE  *6  . 2 6 o  )  K 
M  P  =  MP ♦  1 

FORMAT!  IX, *Kr  *  tj?) 

PSTRI-P)  =  LIN 
POSCAP(Mp)  =  PNPOSN 
IDGCAP*  MP ) =CICIN 
IFLCAP*  MP )=FILLIN 
IPCAP(HP)  =  K 

FSR;*T«!xtAi:ij:^:i:?nis^!:tx?:ii^rp,’:FLcAp'f,p’’ipc‘p',,p 

GOTO  265 

THE  3EL0W  READS  THE  DATA  FILE 


REAOC  IRFADUf  II  )  ,31u,ENDrSCC  )  TTPSNA  .LIN.JOTY.ITP 
FORMAT* T5,b7X,A6,4bX,T7 ,1X, I3> 

IF  * KTHIec  .  1  !)  S  TP  =  I TP 


)  ) 
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161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 
1  73 

174 

1  75 
176 
1  77 
179 
179 
1  9  r 
181 
1  82 
183 
194 

185 

186 
137 
188 
1  9° 
1  90 
I'M 
1  92 
1  93 
1«4 
1  95 
1  96 
1  97 
1  98 

1  OQ 
200 

2  01 
202 

203 

204 

205 
2  06 
207 
200 
2  09 
2  10 
2  11 
212 
213 
2  14 
215 
2  16 
2  17 
2  18 
2  19 
220 
221 
222 

223 

224 

225 
2  26 
227 
229 
2  29 
2  30 
231 
2  32 
2  23 
2  34 
2  15 
236 
2  37 

238 

239 

2  4  r 

241 

242 


C 

5  00 


51 r 
5  1 c 


520 


52c 
5  3  r 


525 

54r 


600 

7CC 


55 


C 

C  9 r 
"  ICO 


THE  FOLLOWING  C  PM  D  APE  S  TPSN*  OF  INT  .  W/TPSNa  IN  CAT*  FILE. 

IF  THEY  ARE  NOT  THE  SAME,  THE  NEXT  LINE  IN  FILE  IS  COMPARED. 

IF  < ITPSNA .no. JTPSNA (JJ)  )G0  TO  t3  0 
CALL  35IDG?( JOTY tM9tPNAMP ,LIN1 
CALL  MI NE S ( JCTY , MM , MNAME,LIN ) 

CALL  TACMOB 1 JCTY, «T  ,TNAME ,L  IN  ) 

CALL  COMHC ( JCTY ,MC,  CNSME,LIN ) 

CALL  SA NO T i JOTY ,M , SNA«E ,L IN  ) 

CALL  PPPPOS  < JOT Y,MP,POS CAP , IDEC AP , I FLC A P , L I N > 

GO  T  0  3 _n 

CALL  0UTPT1(STP,jj,TC0UNT) 

CALL  0UTPT2(ICLTCT,IPLT0T I 
CALL  0UTPT3 
CALL  OU TP  T 4 
CALL  0UTPT5 

CALL  OUTPTo  (B03SCP,  B08SCL  ,IPBCNT) 

CALL  OUTPUT CSTP f jj, I CL  TOT ,IPLT0T,B3 °SCR ,30BSCL,  IOBCNT, 

^T  COUN  T) 

00  510  *KZ 1  .NU.MYBS 
PE-INC  I R  EADU ( K  K  ) 

CONTINUE 

DO  515  LL  =  21, 30, 1 
REWIND  LL 
CONTINUE 

DO  f4]  TNITLZ-I  ,10u 

IF( INTTL2 .GT.6CIG0TO  535 
IF( INTTLZ  .Gt. 7  2  )  G 3 TO  525 
IF! INTTLZ  .G T. ?o  )&OTn  530 
IF( IN T7LZ  .G T.  15  )GOTO  520 
IBV AR (INITLZ1 rC 
IMV4P  UNITLZI  -C 
IPVAR (INITLZ) =C 
BSETS (INITLZ) =C 
IPQTY (INITLZ) =C 
ITVAR (INITLZ) -C 
ISVAP (INITLZ) re 
ICVAR (INITLZ) =0 
CONTINUE 
ICOUNTr rCCUNT+1 
XT-H 

NVE  HZO 
NBRIDG-'"' 

ISFLAG=9 
I  AVL8-0 
CONTINUE 
CONTINUE 
CLOSE  ( UN  I T - 1 6 ) 

STOP 

END 

SUBROUTINE  OUTPUT  COMPARES  LINfS  IN  DATA  PILE  WITH  LINAS 
IN  INPUT  FILES.  IF  THE  ARE  THE  SAME  THE  OTYS  ARE  ADDED. 


CHA  P4CTER* 12  NAME  S  (  60  )  ,  Sh  AM  E  (  *C  ) 


CH A  P A  C  TrR  L  IN *6 
CHAPACTrR»o  S  TR ( 6  H  ) 

DIMENSION  ISCAP(6P) rI^CTY (60) 

COMMON/.*/  STR  ,  ISC  5P  ,ZSQ  TY  ,ISVAR  (60)  rN  A  M  E  S 

COMMON/S/ITYpr  (  )  .HAUL  (60)  ,ITEMP(6C>  ,HTEMP  (60) 

K  -  C 

DO  c'’  j  —  1  ^ 

IF (L  IN  IeO.  S  TR ( U  ) ) K  =  ISCAP(J) 

IF  (L  I*'  .EC.  STR(J))  ISQTY(J)=  I  S3  TY  (  J  )  ♦  JQ  TY 
IF (LIN  .£3 . STP( J) IGOTOS 5 
CON  TINUE 

IF ( K  .EQ  .G JGOTO  ICO 
ISVAR<K)=ISVAR<K)*J0TY 
4 A  ME  S ( K  )  =  SNAME( J) 

ITYPE (K 1  - 1  TEMP ( J I 
HAUL  1 K ) rHTEMP ( j) 

4RITr(6,90)ISVAPmfNAKES(K  , 

FORMA  H  ,*  ISVAPZ  •,I^13X,,NA*»E=  ,,ai2) 

END 
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243 

244 

245 

246 

247 

248 

249 

250 

251 
2  52 

253 

254 

255 

256 

257 

258 

259 

260 
2  61 
262 
263 
2  64 

265 

266 

267 

268 
269 
2  70 
271 
27? 
2  73 
2  74 

275 

276 
2  77 
2  78 
2  79 
2  90 
281 

292  : 
283 
294 
235 
286 
237 
2B8 
239 
2  90 
291 
2  92 

293 

2  94 
2  9* 
296 
2  97 
299 

2  99 

3  :n 
311 
3  02 
303 
3  04 
3  05 
3  26 
307 
3  08 
3  09 

310 

311 

312 
3  13 
3  14 
3  15 
3  16 
3  17 
3  19 

319 

320 

321 

322  : 

323 

324  : 


5  r 
55 


90 

100 


50 

55 


10C 

C 

C 

C 

c 

c 


5  r 
55 


SUBROUTINE  wINE5(JUTYtOMt^^AHffLlNI 

CHARACTER* 12  N A  HE H  I  15 > , MN AM E I  32 1 
C  H A  P A  CT ER  * b  HSTR(32) 

C  H  A  PA  C  TrR  L IN  *6 

DIMENSION  IMCAP(32)fIu0TY<32) 

COMMON/-/  MSTR, IMCAP, IMQTY, IM VAR t 15  I »  N  A  MEM 
C0MM0N/M2/IPL4CEI ?U>, T CLEAR I2r>  , I MP LA T I 2C  I ♦ ICL R T I  20 ) 

DO  50  J  - 1  *  M  M 

I F  (  L I  N  .EC.  MSTP ( J) IK riMC AP f J ) 

IF(LIN  .EO.  M STP 4 Jl ) IMQTY < J )= IMQT Y( J) +JOT Y 
IFfLIN.EQ  .MSTRIJ) I60T055 
CONTINUE 

IF  l  K.EC  .GIGOTO  ICO 
IMVARIK IZlMVARfK l+JOTY 
N  A  M  EM  (  K  UMNAMEl  J) 

IPLACE(K)=IHPLAT( J) 

ICLEAO ( k>  r ICLPT < J ) 

If-VAR(K  >  »N6MEM  IK  I  ,  IP  LACE  fK  >  f  ICL  EAR  (K  ) 
••CL^*SiNlH»hV*P=  ,n,JX’  ’N4Mr:’*‘1  2.3X.*PI-AC=»,Ii*,rx, 
RETURN 
END 


INCLUDE  BPOAT.LIST 
INCLUDE  B0G90U,LI5T 
CHAR4CTEP*  12  NAMfb(15),  BN  AMf ( 32  ) 
CHARACtER*6  B  S  TR  (  3  2  I 
CHARACTER  Li N*6 
QI-ENSION  IBCAP| T2)*TBQTY(32) 

C0MH0N/3/  nSTR#IBCAPtIBQTYfI?VAR{l*) ?NAMEB 

KZO 

DO  50  J=l,ne 

IF! LIN  .EC.  BSTP  I JMK  =IECAP  f  J  ) 

IF(LIN  *cC •  3 STP ( J) I IBQTY < J ) z IBQT Yt J | 4JCT Y 
IF(LIN,EQ.3STP(J))3  0T05  5 
CONTINUO 

I F  t  K • EC  .0  I G  CTO  ICC 

13 V  A  R  <  K )-I6VAP<Kl  *JCTY 

NAMEB ( K  )  =  3N  AMT  1 J) 

I  3  TNUM( K|:I°TAFP(J) 

RETURN 

ENC 


INCLUDE  BPDAT.LIST 
INCLUDE  30GP0U.LIST 
CHAPACTFR*i2  NAMET{60>,  TNAME(60) 
CHAPACTrR*6  T  S  T  R  ( 6  G  ) 

CHARACTER  L I N  *  6 

DIMENSION  ITCAP(6<"  l,ITCTYI6ri 

COMMON/ T/  TfTPt  ITCAP, ITQTYt ITVARI6D  ItNAMET 

COMMON/  2 /I$PED  <60  »  ♦ITESPOt  6G ) 

K=0 

DO  53  J ~ 1 1  M  T 

IF(LIN  .EC.  TSTP(J))THEN 
KrT’CAP  t j) 

ITCTY I J l-TTCTY (JI^JQTY 

5OT055 
END  IF 
CONTINUE 

IFIK.EO.GIGCTO  lCn 

I  T  V  A  R  (  K  )-ITVA°(K  )■»  jCTY 

NAMETtKI-TNAMEtJJ 

I  SP  ED  <  K  I  =  I T  f  S°D <J  I 

I  F I  ITESPD ( J > .G T . I IGOTO  IOC 

N  VEH-NVEH*  i. 

VNUM( NVrH l-ITAFP(J) 


Figure  E 
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3  25 
3  26 

327 

328 

329 

330 

331 

332 

333 

334 

335 
2  3  6 

2  37 

3  3a 
3  39 

34r 

341 

342 
243 

2  44 

345 

346 

347 

3  48 
349 
3  52 

351 

352 
3  53 

354 

355 

356 
257 
3  S  9 
3  5° 
3  60 
361 
3  62 
263 

364 

365 

366 

367 

368 
369 
37H 

371 

372 

373 

374 

2  75 

376 

377 

378 

3  79 
380 
391 
382 

393 
384 
3  35 
3  96 
337 
3  99 
339 

2  90 

391 

392 
293 

394 

3  95 
396 
3  97 
3  9fl 

3  99 

4  CO 
4G1 
4  02 
403 
4  24 
4  05 
4  06 


C 

C  9  r 
IOC 

C 

c 

c 

c 


V  CL  A  S INVEH) =VTCLAS ( J) 

VOESC I NVEM) =TNAME I j > 
NV(nvEH)::FLCAT(JCTY) 

JRIT£(6?90) TT VARIK )*NAMET(K > 
FORMAT!  1X#  •  TTVA  R-  * 1 1 7 # 3X , • NA *E T= 
RETURN 
END 


t  A  1  2  ) 


5  n 
55 
C 

c  9  ** 

ICC 

c 

c 

c 

c 


5  r 
55 


5  or 

5  01 
503 
505 
C 

C  507 


CHAR  ACT£P*12  NAMeCllnCJ,  C  NAM£  ( 1  QQ  ) 

CHAPACTER*6  C$Tr{10C> 

CHARACTER  LIN*6 

DIMENSION  ICCAPI 1CP1 tICCTY I1C0 l 
COMMON /C/  CSTR  ,ICCAPrICtiTY  fICVAR«l  TO)  f  NAMEC 

K  -  0 

DO  50  jritMC 

IFCLIN  .EG.  CSTPlJ))K~XCCAP(J) 

IFILIN  .EC.  CSTP C J) )I CCTY  IJ JZICOT Yf J) ♦JOT Y 
I r I  LIM.ECi  .CSTRt  J)  IG0T055 
CONTINUE 

IF(K.EC .J>GOTO  ICC 
ICVARtK  »ZIC  VAP!  K  >«-JOTY 
NAMEC ( K )-Cf<AMr!JJ 
KPITE  t  6,90  ICVARf  K  )  ,  NAM  EC  IK  ) 

FORMAT!  IX,  MCVAP:  •  , 1 7 f 3X , * NAME c=  *,A12> 

'  END 

SUBROUTINE  PPOPOc(JOTY,MP,PO<rCAPfI  PGCAP.IFLCAP  f  L I N  ) 

CHARACTEP*6  PSTR  f  2n) 

CHARACTER  LIN*6 

SKaSSlS1!}  2C,*I?aTY<  20  IFLCAPf20)  tIPGCAPI23»,POSCAP  (20 

#pCOHMON/P/  pSTR,lPCAPTlPQTY  ,IPVAR(2  0)  ,IFLT0T(2C)lIDGT0T(2O  , 

K  -C 

00  53  J=1,MF 

I F ( L I N  .EC.  PSTR ( J) JK =IPC &P I J ) 

I  F  (  L I  N  ,£C.  P$TR(  JJ  )IPuTY  tJ)=IPQT  Yl  JMJOTY 
IFUIN.EQ  .PSTRt  JMGOT055 
CON  T I N U r 

IF ( K  •  £0  ,0 ) GOTO  ICO 
IPVARIK )-IPVAR(K)*jGTY 
P0STOT(K ) ” P  nSC  A  P ( J) 

IDGTOT! K1 r ICGCAP!  J> 

IFLTOT! KjzIFLCAP!  Ji 

WRITE  C  6 ,9  G l T  P  V  A  p  (  K  )  .PCS  TO  T IK) .ID6T0  T!K ) ,  I F  L  TO  T !K) 

V  A  R=  *  ,  ! 7  ,  3  X  ,  *  P  0 S  TO  Tz  •  ,  F  5  .  2 , 1  X  ,  *  1 0  G  T  0  T  *  ,  1 5 , 2  X  , 

*'IFLTQT»I5) 

RETURN 

END 

SUBROUTINE  OUTpTi  SIMPLY  PROVIDES  FOR  HARP  COPY  OUTPUT. 


INTEGEP  S  TP  ,  T  CO  UN  T 
CHAPA  CTER* 1 2  NAMES  (  60  ) 

CHAPACTrR*o  STR(6pj 
DIMENSION  ISCAP!  6g  ),ISCTY(  60 
COMMON  JTP  SNA ( 15) 

COMMON /A/  STR, ISCAP, ISQTY, IS VAR! 60  1, NAMES 
ICO  UN  Tz  0 
WRI TE (6 ,5G3  ) 

WRITE (6,5C1?  <TP, JTPSNA (JJ > 

W  R  I  TE  (  6  ,  5  C  i  ) 

FORMAT  (•  1  •  ,1  X  ,  ’SUPPLY  AN0  TRANSPORTATION  DATA*) 
WRITE! 6f5ui) 

FORMAT j 2Hlj  IX ,»TI«t^PFRlOD^=  •  ,  1 1 ,2 X , • T PS N A  r 

00  60 C  K=l,tn 
WRITE(6,537  ) I S V  AR ! K ) 

FORMAT ( ix, 17) 

IF!ISVAR(K).EC.C)G0T060u 
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4  07 
4  08 
4  09 
4  IP 
4  11 
4  12 
4  13 
4  14 
4  15 
4  16 
4  17 
4  18 
4  19 

420 

421 
4  22 
423 
4  24 
425 
4  26 
4  27 
42e 

4  70 

4  30 
4  31 
4  32 
423 
4  34 
4  35 
4  36 
4  37 
4  35 
4  3° 

4  an 

441 

442 

443 

444 

445 

446 

447 

448 
4  49 
4  50 

451 

452 

453 

4  54  : 
4  55  : 
4  56  : 
4  57 : 
4  58  : 
4  59  : 
460: 
461 : 
462 : 
463  ; 
4  64  : 

465  : 

466  : 
4  67  : 

468  : 

469  : 
4  7P  : 
471  : 
4  72  : 
4  73  : 
4  74  : 
4  75  ; 
4  76  : 
4  77  : 
4  78  : 
4  79  : 
430: 
4  81  : 
4  32  : 
483  : 
4  84  : 
435  : 
486  : 
437  : 
488  : 


513 

600 


C 

5  no 

501 

5  02 

5P3 

C 


:  C 
:  C 

:  5  04 
:  C 

:  6  00 
:  C 

:  6  20 
:6  3Q 


700 

710 


C 

SCO 

5^2 

c 


TCOUNT=TCQUNT* 1 

WKTTEt6f5inj  I  SV  A  R  (K 1 .NAMESIK) 
FOPMATllX, T7.1X,  Ai2> 

CONTINUE 

RETURN 

END 

PR  0  V  TOES  OUTPUT  FCR  MINE /COUNTER  NINE  DATA 


DIMENSION  IMCAPI32),  IMQTY<32) 
CHARACTERS?  N  A  ME  M  (  1 5  ) 
CHARACTER  MSTP(  32 )*f 


COMMON/”/  MSTP.  IMCAP.TMQTY,  IMVAR*  15  I.NAMEM 
C0MMQN/M2/IPLACE( 2C),ICL£AR  <2”)  , IMP  LAT 1 20) 
IPLTQTr^ 

ICLTOT-T 


ICLR  T ( 20  I 


WRITE! 6  « SCO ) 

FOP  MAH  *1*,  IX,  *  MINE /COUNTERMINE  DAT  A*  ) 
WRITE (6 ,501 ) 

FOR VA  T I  IX, •« 

W  R I TE ( 6  •  502  ) 

F  OR  MA  T  (  *  *  ,  IX,  *«INEPLACEMEN  TM 
WRITE (6,5G3) 

FORMAT!  •  •  ,  IX,*—  LIN#-»  ,  3  X  ,  * - 1  TE  M-  - 

DO  600  K  -  1,15 

IF(IHVARIH)  .EC.  0)  GO  TO  6EQ 
I F  (  IP  LACE  (  K  )  .EG.  C)  GO  TO  *00 
IPLT0T;IplT0T*<THVAO(K>*IPLACE(K)) 


-*  ,2X,  *QTY * 


?X ,  'MINES/MR  *  ) 


WRITE  (6, 5  r4)  MSTRCK  )  ,‘UMEMIK  )  tIMQ  TY«K  ),  IP  LACE  (K  ) 

FORMA  T(  *  *,1X,A6,2X,A12,2X,T5,2X,  14) 

continue 

WRITE(6,620)  IPLTOT 

F2??rT<*  *  »  1*  *  *  EQ  UI PMEN  T  MINELAYING  CAP  PER  HOUR  =  *,17) 
JRITE(6,63Q) 

FORMAT!*  *  ,  IX, * mineclearing  DATA*) 
write (6 ,sai ) 

) 0  700  K  -  1,15 

IF(IMVAR(K)  .EC.  0)  GO  TO  700 
IF(irLEAc(H)  .Eg.  P)  GO  TO  700 
ICLTOT=!CLTPT+<lMVA°(K)*ICLEAP(KM 

6*  55*  1  MSTRtK)  ,NAMEM(K  ),IMCTY(K)  ,1  CLEAR  (K) 

CONTINUE 

WRITE  (6 ,71W)ICLT0T 

RETURN* 1X’ *FCUIPHENT  M™eCLFAPlNG  CAPACITY  PER  HOURr  *,I7) 
END 

PROVIDES  OUTPUT  FOR  BRIDGING  DATA 


SUE  ROUT  INF  OU  T  p  T  3 


INCLUDE  B06P0U ,  LI ST 
INCLUDE  UPDAT.LIST 
CHACACTrR»12  N A  M£  9(15) 

CHARACTrR*6  B STR( T2 ) 

DIMENSION  IPCAP ( 32  )  ,I°Q TY ( 3 2) 

COMMON/0/  BSTP, IBCAP, IBCTY, TeVAP( IS  >,NAMEB 

WRITEC6  ,500) 

FORMA TC  *1* , 1X,*SRT0GING  DATA*) 

W  R I TE ( 6 , 5  C2 > 

FORMA T(  *  * ,  IX, *  — LIN'S-* ?X , * - ITEM - *,2X  ,  *QTY*  I 

DO  f  1 J  *  z  1,15 

IF(irVARCK)  .£0.  D  GC  TO  600 
N8R  IDG  - N'3  R  I DG  +  1 
IFieSTR(K). EC. *897376*) THEN 

9  SETS  (N8R:0G)ZFL0AT(I3CTY(K  )  )/30. 

ELSE 
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489  : 

490 : 

4  91 : 

4  92: 

493  : 

4  94  :  5  10 
4  95  :6TJ 
4  96  : 

497  : 

4  98  :  C 

4  99  :C 
SCO: 

E  01 :  C 

5  02  :C 
503: 

5  04 : 

505  : 

5  06  : 

507  :C 
5  08  : 

509 : 5 00 
5  10: 
511:505 
5  12 :  C 
513  : 

5  14  : 

5  1 5 : 
516:510 
5 17:600 
5  18  : 

5  19: 

5  20:  C 
5  21 :  C 
522:c 
523  :C 
5  24  :C 

525  :C 

526  :C 
5  27  :  C 
5  28  :C 
5  2Q  :  C 
£  3C:C 
5  31  :C 
5  32  :C 
5  33  : 

5  34  :C 
5  35  :C 
5  36  : 

5  37  : 

538  : 

5  39  : 

540 : 

5  41  :c 
542  : 
543:500 
544  : 

5  45  : 5  05 
£46  :C 
547  : 

548: 

5  49  : 

5  50 :  C 
551: 

552: 

553  : 

554  : 

555  : 

556  : 

557  : 
558:510 
559:600 
5  6r :  C 
561 : 

562  : 

563  : 

564  :  53 n 

565  : 

566  : 

5  67  :C 
£68  : C 
569  : 

C  7H  ;  r 
571  :  C 
572: 

573: 

5  74  : 

£75  : 

576  :C 
5  77  : 

5  78  :  5  00 
5  79  : 
c  n£ • £  n5 

581  :C 
5  8  2  : 

5  83  : 

5  84  : 
585:510 
se6  :fcon 

587; 

£  98  : 


3 SETS INSR  IDG  I -FL0AT!I8GTY  (K >) 

END  IF 

3NU«I  NB°I0G  )  - 1 3  TNtfM  IK  ) 

30ESC  (NRRIDG)-NAMFblK  ) 

W9 ITr ( 6 • 51C )  ESTPfK I fNAMFe IK  IflBCTYIKI 
F0RMATlIx,Ao,3X(Al2,2Xfl3) 

CONTINUE 
RETURN 
END 


CHARACTER *12  N A  HE  T 1601 
CHAPACTER*6  TSTRI60)  „  Twlcf_% 

DIMENSION  I TCAP I  60 ) tIT0 TT ( 6C ) 

COHMON/T/  TSTP , ITCAP,I7  OTY  « IT  V  A  P  C60  >,NAMET 

a»TTC|fe.500) 

FORMAT!  ;1%  IX,  'TACTCAU  MOBILITY  DATA*,/) 

“oR5*T(55°,ix,*speeo  «kph»-,2x, -quantity-) 
DO  600  KZ 1 , 60 

IF  (ITVAR1K)  .EQ.  0 )G0  TO  6C0 
JR  ITE  I  6. 5  ION  a  MET  |K)  ,ITVAR  (K  ) 

FOFMAT I  IX , A12*4X ,17) 

CONTINUE 

RETURN 

END 


A  LIST  OF  DIVISIONAL  EQUIPMENT  CAPABLE  CF  OPSTACLE/ 
PROTECTIVE  POSITION  CREATION  AND  ITS  DIG  IN  RATE  *N 
TERMS  OF  PROTECTIVE  POSITIONS  p  .* 

SUBROUTINE  CUTPT6 ( BOB  SCR f BOB SCL  ,  108  CNT ) 

*4* 4***4 *«***44 * 

INTEGER  30BSCR,P0PSCL 

CHA  RACTER*6  PSTR(2u>  _  _ 

COMMON /P/  PSTR^IPCAP,IPUTY  » I P  V  AR  (  2  C ) tIFLTOT(20),IDrTOT (2°)  , 
oPOSTOT l 20) 

FORMAT! *1’?1X, ’PROTECTIVE  POSITION  DATA*,/) 

FORMAT?  IX,  ’POSITION  S/HR  •f«X,'OU»NTITY’l 

I  OB  CN  Tz n 
9  0  9  SC  R- 0 

BOB  SCL-  0  ‘ 

DO  603  K=l,2n 

IF  I  IP VARIK)  • EO •  0 ) GO  T0  6  F£  4 

30BSCR  =  8  OB  SC  P  ♦  I  TCGTOT(K)  *  IPVARIK)  ) 

IF  (IDG  TO  TIK)  .NE.CMIOPCNT-IOBCN  T*  1 

BOB  SCL  =  B^PSCL  ♦  (  I FL  TO  T  ( K  )  *  IPVARIK)  ) 

IF  (POS  T0T  I  K  )  .EO  .  P  .  )G0  To  b  vG 
WRITE! 6,51P)P0ST0T IK ) p IP  V AP  IK  ) 

FORMAT (3X,F5  »2 ,4  y  f 15) 

CON  TINUF 


5  2r 


MT) 


FORMAT!  lX^’"LUESCBSTArLE  CREATION  RATE  = 

FORMAT!  Ixt’*Lul  OBSTACLE  CLEARANCE  RATE  =  *tI7) 
RETURN 
ENO 

*********4***** 

SUBROUTINE  CU  T  P  T  5 

CHAPACTFR*12  NA  ME  C  l  100 ) 

CHARACTERS  CSTPliaO) 

DIMENSION  ICCAPI1?0>»TCOTY!  icn) 

COMMON /r/  CSTP,ICFAPf TCQTY, ICVARiluO) ,NAMFC 

formIt? *?5°1x. •communications  oat»-  ,/i 
F0RmSt?’,5’?!x,'EMMITEP  type  *  .  2X  .-QUANTITY  m 
DO  6 DC  K-  1  ,  2C 

IF  IICVAP(K)  .FC.  ~  )  CO  TO  6rC 

WRITr!6,5i:)NAMEC(K)TICVARIK) 

FOPMAT  C IX , A12, «X , I  7) 
continue 
return 
END 
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c 

c 

c 

c 

c 

c 

c 


SUB  ROUT TNE  OUTPUT (STP.JJ,ICLT0T  »IPL TOT  tE0BSCR ,B OB  SC L , IOBCNT , 

*T  CC  UN  T ) 

INCLUDE  BDGFOU»LIST 
INCLUDE  BPDiT.LlST 

INTEGER  GNOCNT,  AI«?CNT*BOBSCR,BOBSCL  tTC0UNT 

INTEGER  IPLTOT, ICLTOT,STP 

INTEGER  NUMENG » NUMPER 

REAL  BMAINF 

CH A  PA  CTrR  *6  P0STUP(4) 

CHAPACT^R^b  TSTR(6u) 

charactc;r«6  cstr(igg) 

CHARACTERS  PSTP( 20 ) 

CHA  RACTER*6  STR(feP) 

CHARACTER*}  IDE NT  » ION  AM  E 
DIMENSION  ISCAP(6P) flSCTY(6C> 

QIMENSION  ICCAP(lDGJtTCQTY(lCP) 

DIMENSION  IPCAPI20  ,IPQTY  (20  ,IFLCAP<2CI,  IDGC4P<2C)  ,P0SCAP(  20 
DIMENSION  I TCAP (60 i ,ITQTY (6D> 

CHAPACTPR*12  NA  ME  S  (  60  )  »  SNAME(60> 

CHARACTER*  12  NAME  T  |  60  »  TN  AMEi  6C  > 

CHARACTER* 12  NAMECi  ICC )  fCN  AME ( 1  GO ) 

DIMENSION  RMA IN  T<  4  )  f RAMMO (4 ) ,PPQL (4  ),B SURGE  (4  )  ,  RSURGEI 4  I 
DIMENSION  REDBRG(U) 

COMMON  JTP  SNA ( 1 S ) 

COM  MON/ S/ 1  TYPE ( SC J  ,  H A Ul  ( 6 G )  ,  I TE MP ( 6 0 )  , H TE MP  (6 0 ) 

COMMON/fi/  STR.ISC  AP.I'CTY  .ISV^R  (60  ?N  A  M  ES 
COMMON/0/  3STR,IECAPf iaQTYtIBVAR( 15  >, NAMES 
COM  MON/ M/  MSTD,IMCAPfTM0TY,IHVAP(15  ) • N  A  Mr  M 
COMMON/t/  T^TP*ITCAPf ITQTY, ITVARC6Q  >  *  N  AMET 
COMMON/ T2/ I  SPED ( 6  p  J  . I TE  SP  0 (6u) 

COMMON/C/  C  STP  f ICC  APf ICQTY, ICVAP( 130) t  N  AMEC 
^COMMON/P/ ^PSTP, IPCAP, rPCTY,IPVAR(2D  > » I FLT  OT  (20)  »IQGT0T(2C)V 

C0MM0N/M2/I°LACE( ?G)*ICL£AR (20)  flMPLATC2C!f ICLRT(2u  ) 

POSTUR(  !)-*PAPD* 

POSTUR( ?)-• STATIC  * 

P  OS  TUP  (  "Hz* PACE* 

POSTUR( 4>z*°AP0  * 

R  M  A  TN  T  (  1 )  z  -  3 G ^ 2 
RMA  INT( 2 ) Z  *  87? 1 
RM  A  IN  T (  7)z.u3Q8 
RMA  IN  T (  4 ) z  .  58  57 
R  A  M  MO ( 1 JZ2223.53 
RAMMO ( 2 )zia^6 .92 
RAMMO  (  3  ?zlt>66*92 
RAM^0(9  >-2223. S3 
RPCll  1) ziC5 #7 
RPOK  2)  “42.2? 

R PO L (  3 ) r 1 4  7  .98 
RP0L(4J  Z63.42 


*  1984  CURGE  FACTORS  p0R  “ICAFII  STUDY  ARF  FOLLOWING 


B  SURGE (  ! ) z 2  .65 
B  SURGE ( 2) z 1  .2 
3SUP3E(“)z  9.65 
B  SURGE ( 4) z l .47 
RSURGE (  1) zj  .52 
RSUPGEt  2 J  z l  .0 
R  SURGE ( 7 ) zG  •  1 6 
RSUPGE( 4jr l .17 
R  EDB  R  5  <  !  ) z  «  8 8 
REDERSC  Oz.85 
R ED 6P G ( O z  .  °5 
REDBRGC4)=.85 
IBFLAGZ" 

CALL  PP  rR  0*3  (B  MA  I  NF  f  NUME  NG  ,  N  I’M  P  E  R  ,  S  T  °  ,  J  J  ) 

00  900  °GLO  CP-1 .4 

AIRCNTz? 

GNDCNTz^ 

IFtPGLOOP.NE.  1  )  GO  T0  4 
?  REAC( 28,3tE\0Z4 )k TPSN,ICNAME 
3  F0PM47<I5T5X,A5) 

IF  ( KTpSN.t.C . JTFSNA< JJ ) ) THEN 
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79: 
3D : 
31  : 
32: 
33: 

34  ; 
35: 

36  : 

37  : 

38  : 

39  : 
90 : 
91  : 
92: 
93: 

94  : 

95  : 

96  : 

97  : 

98  : 

99  : 
10C: 
111  : 
102: 
103  : 
1  04  : 

105  : 

106  : 
107: 
103  : 
1C°  : 
IIP: 
111: 
112: 
1  13: 

1  14  ; 

1  15  : 
116  : 
1  17: 
1  18: 
119: 
120: 
121  : 
122: 
123: 

124  : 

125  : 

126  : 
127: 
128: 
129 : 
1  30: 
131  : 
1  32  : 
1  33  : 
1  34  ; 
1  35  : 
1  36  : 
137: 
1  38  : 
1  39  : 
14G: 
141  : 
142: 
143  : 
1  44  : 

145  : 

146  : 

147  : 
1  48  : 
1  49  : 

150  : 

151  : 
152: 
153: 

154  : 

155  : 

156  : 
157: 
159  : 
159  : 
160: 


IDENTZIONAKE 
GOTO  4 
ENDIF 
GOTO  2 

4  WRITEI2G*5)PGLQ0PfP0STURtBGL00P )fIDENT,lNT(STP/XGI 

5  F0RMATt9x,J2,SX,A6,5X,A5,I2> 

WRITER,  10) 

IQ  F0R^AT(9XftF,t9Xf*l*C*»7X»*  1.0*  ) 

WRITEt2~,20) 

?C  FORMAT ( 9X , *  77 .in* ,5X, *2  27.60* ,4X,  *3  .02  *  1 

*  NOTE*  GNQCNT  IS  THE  NUHBEP  OF  GROUPS  OF  TACTICAL  VEHICLES, 

*  WHICH  ARE  GROUPED  5Y  COMMON  TACTICAL  SPFE CS .G NO CN 7  REPRESENTS 
♦GROUND  VEHICLE  COUNT 

DO  25  1-1,02 
IF ( I  SPED  C I  ).EG.U)GOTO  25 
IFCI SP ED (I). GT. 130  IG0T02 3 
GNDCNTrGNQCNT*  1 
GOTO  2 5 

23  AIRCNTr  AIRCN'T  +  1 
25  CONTINUE 

WRITE (2n,3U)GNDCNT 
7 G  F  OR  MA  T  (  PX  ,  I  2 ) 

DO  50  1=1,60 

IF( ISPED ( I) .EC.E JGO  TO  50 
IF l IS  PE 0 ( I)  #6T*lin)G0  TO  50 
WRITEf20,4C)ITVAR(I),ISPECCT) 

4G  FORMA  T(8X,I4,6X,I3) 

CC  CONTINUE 

WRITE ( 2%55  JATRCNT 
c5  FORMATt 9X, 12) 

DO  7*3  I -1 ,  6C 

IF  ( I  SPED  I  1 1 • EQ  •  0  )  GO  TO  70 
IF  i  I SPrD ( 1  )  .LE  •  13H)GOTO  7C 
WPITE( '’Q  ,  5  r ) I T  V  A  °  II)  tlSPED  ( I ) 

6  C  F0FMAT(3X,  I4,6X, 13) 

7 D  CONTINUE 

♦  THE  FOLLOWING  IS  THE  RED  OBSTACLE  CLEARING  RATE,  AND  MAY 

♦  VARY  DEPENDING  ON  THE  TYPE  OF  OPPOSING  F3PCE. 


WRITE  (  2 r*,  8 0  J 
9r  FORMATt  9X,  *  3426  # ) 

♦  THE  FOLLOWING,  PQBSCR  ,  REPRESENTS  THE  BLUE  OBSTACLE 

♦  CREATTON  PATE  (CUBIC  ME TE P$ /HOUR ) . 


♦  IKtA  I  T0N  KAIL  (C 

WRITE ( 2~,9Q  JBOBSCP 
4Q  FORMATt  OX, 15) 
WRITE! 2*\ IJ) 


lor 


♦  THE  FOLLOWING  APE  FIGURES  THAT  OE AL  WITH  RED  TACTICAL  MOB  - 

♦  I  LI TY  .  THE  FIRST  FIGURE  IS  THE  WEIGHTED  AVG  GROUND  VEHICLE 

♦  SPEED,  THE  SECOND  rIGUFE  IS  THE  WEIGHTED  AVG  HELTCOPTEP 

♦  SPEED.  THE  THIRD  FIGURE  IS  THE  S rCONO  r I  BURE  DIVIDED  BY 

♦  FIRST,  THESE  NUMBERS  WILL  VAPY  WITH  THE  OPPOSING  FORCE. 

WRITE  <  27, 1 J : ) 

FORMA  T<  9X , *  77  .lc* ,  5 X, *227.60* ,4  X, *3  .94  •  ) 

♦  the  fallowing  is  the  number  of  groups  of  red  ground  tac 

♦  VEHICLES,  GROUPED  8Y  TACTICAL  VEHICLE  SPEED,  FOLLOWED  BY 

♦  the  number  of  vehicles  and  7heir  speeds  in  kph. 


WRITE  (2'’,  11C) 

110  FORMATt  9X  ,  •  P’  /9*,  *  37'  ,ax,  '8  5V9X,  *3  3C  *  ,  7X  ,  *  SO/PX  ,  *  148  *  ,  7X 


7X , • 6G * / 9X  ,  *  170  f 


♦  ,75,/9X,*98,,8X,*7u,/0X,*S,,9X,,62.c',/9X,,362*, 

*7X , *53* /9X , *36* ,6X, *44* ) 

♦  THE  FOLLOWING  IS  THE  N  UM  8  E  D  GROUPS  OF  RED  HELICOPTERS* 

O  THEIR  QUANTITIES  ILHS)  AND  THEIR  SPEEDS  IN  KPH. 

JRITE(2n, 12n) 

rQ  F0RHAT(ox,>2,/9X,’b,,9X,,215V9X,,6’t9X,,3I5’) 

*  THE  FOLLOWING  IS  THE  BLUE  OBSTACLE  CLEARANCE  RATE  TN  TERMS 

*  OF  CU3IC  METERS  CF  SOIL  PEF  HOUR.  IT  IS  COMPUTED  VIA  SUB¬ 
’S  ROUTINES  PPOPSN  AND  0UTPT6. 
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161 
1  5c 
163 
16* 

165 

166 

167 

168 
169 
17* 

171 

172 

173 
17* 

175 

176 

177 
17** 

179 

180 

!S2 

1  83 
1  84 
195 

136 

137 
188 
1  39 

190 

191 

192 

193 
1  94 
195 
1  96 
1  97 
198 

1  9Q 

2  00 
2  01 
Z  02 
2  p3 
2  34 
2C5 
206 
2  07 
208 
239 
2  1C 
2  11 
212 

213 

214 
2  1 c 
2  16 
2  17 
219 
2  19 
2  2° 
221 
222 

223 

224 

225 
2  26 
2  27 
2  2P 

229 

230 
2  71 
2  32 

233 

234 

235 

236 

237 

238 

239 
Z4C 

241 

242 


14  C 


15  p 


1 6  p 


13  r 


19  r 


2ir 


•RITE ( 20, 13CJP0BSCL 
FORMAT! 8X, 15) 


*  THE  FALLOWING  IS  TH E  RED  OBSTACLE  CREATION  RATE  AMD 

*  VARIES  WITH  THE  OPPOSING  FORCE. 


WRITE <2P, 140) 

FORMAT*  °X  t  *  P482  f ) 

*  THE  FOLLOWING 

*  3RD  COLUMN  VA 

*  HAND  n  R  IQ  G  I  fc'G 

*  VEHICLE.  Tkl 

*  ROUTINE  p  Ol/TP 

* 

3  C A P=3 

IF ( N8RIPG •  NE •  D  )  C  A  L  L  BPGPRE 

REWIND  33 

W  R I TE ( 20 ,  1  5  p  )  5  C  AP 

FORMAT! 9X»  *  T* ,9  X, •  1  , 7X ,F8 • 3) 

*  the  FOLLOWING  IS  AS  ABOVE,  FXCEPT  FOR  RED  FORCES,  AND  WAS 

*  0  ETEP  UI NE  D  VIA  rHr  *9£aN  COUNT*  METHOD.  IT  VARIEC  AS  THE 

*  RED  FORCES  VARY. 


DEALS  WITH  PLUS  HPtWIt!CJ  FACTOR.  THE  VALUE 
ISIE^-E2C?  PIVl^lON  TO  DIVISION.  DEPENDING  ON 
ASSETS  AN  5  DIVISIONAL  ASSETS  t  DIVISIONAL 
S  V ALUr  IS  DETERMINE!?  -?y  BRIDGE  5UB- 

T  ANO  A  9PIDGE  CAPAB  lLTTY  FACTOR  ROUTINE. 


IN 


WRITE (2  0, 16CJ  PEDBPG  CBGL00P1 

FORMAT! °X, ' T* ,9X, *  l.n»  7X,F4.?) 
WRITE(20,10) 


4  THE  FOLLOWING  CONCERNS  M I NE PL ACEM FN T  CAPABILITY •  THE  1ST 

*  COLUMN  FIGURES  P E  °R  rS  EN  T  BLUE  EQUIPMENT  MINELAYING  CAPA- 

*  E I L I T v  (  I  PL  TO  T )  •  THE  2ND  FIGURE  REPRESENTS  THE  NUMBER  OF 

*  DIVISIONAL  PERSONNEL  (E-7  ANC  BELOW)  THAT  HVt  BEEN  TRAIN- 

*  ED  TO  EMPLACE  MINEFIELDS  (BASED  ON  MOS).  THIS  FIGURE 

*  CURRENTLY  MUST  RE  PLACED  IN  THE  OUTPUT  FILE  SEPARATELY 

*  BUT  c  A  N*  BE  AUTOMATED*  TH£  3dD  FIGURE  (29)  RrPRESE*’TS  THr 
4  N  UM9  E  p  OF  LANES  REQUIRED  IN  A  RED  QIVISION  FRONT.  THIS 

*  WILL  PROBABLY  REMAIN  CONSTANT  FOR  ALL  RED  DIVISIONS,  BUT 
«  SHOUULD  P°O0APLY  BE  VALIDATED  WITH  CHANGES  IN  RED  FGRCE 

*  STRUCTURE. 

*  THE  4TH  FIGURE  PEEPPESENTS  LANE  WIDTH.  THE  5  T  H  FIGURE 

*  REPRECENTC  TH E  WIDTH  OF  A  RED  DIVISION  FRONT  IN  METERS. 

*  IT  SHCULQ  ALSO  BE  VALIDATED  WITH  THE  TYPE  OF  RED  PlviSION 

*  AND  THE  TYpr  OF  TERPAIN  THE  BATTLE  IS  FOUGHT  IN. 


WRITE  (2",  18  p)  IPLTCT  ,NIJMENG 

FORMAT! 7X,I5,7X,I3,^X,*2o*,PX,*  3.73  6* , 5 X , *  1 25  DC  ’  ) 


* T HE  FOLLOWING  F I G URr  REPRFSENTS  RED  EQUIPMENT  MINRCLEAP- 
*ING  CAPABILITY,  AND  WILL  VARY  WITH  CHANGES  IN  RED  FORCES 


WRITE  (2*,  190 
FORMAT! 9X,  *573. 14*  ) 
WRITE120,  1J> 


*  IH§  FOLLOWING  FIGURES  ARE  SIMILAR  TO  THE  ABOVE,  BUT  FOR 

*  I?£.£5P*£CRC£:s*  1ST  FIOURF  IS  RED  H.F.  EQUIPMENT  LAYING 

*  CAPABILITY.  2ND  FIGURE  IS  »  0 c  PEpSONNEL  CAPABLE  OF  M .F . 

*  INSTALLATION.  7HE  7RD  FIGURE  REPRESENT?  »  OF  LANFS  RE- 

*  QUIPEP  Pt :p  n u  UE  DIVISION  r  R  0  N  T  •  ThE  5TH  FIGURE  REPRE- 

*  STMTS  THE  WIDTH  OF  an  U.S.  DIVISION  FRONT. 


-RITEt2p, 2DD) 

FORMAT <9X,  *48DC*,6X,*p*  ,9X,*12*  ,8X,  *6  * , 9X , * 3CUu C *  ) 

*  THE  FALLOWING  REPRESENTS  TOTAL  BLUE  MINECLEARING  EQUIP 
^  C  hP  4B  ^ L  a  T  Y  • 


WRITE(2r,21C)ICLT0T 
FORMAT ( pX , JR ) 
wRITE(2Pf id) 


4 

$ 


THE  FOLLOWING  RrP PE  SENTE  TH  G 
PPOTEGTIVE  POSITION  CREATION 


NUMBER  OF  TYPES  OF  BLUE 
EQUIPMENT. 
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24? 
2aq 
2  45 

246 

247 
2  48 
249 
25p 
251 

.  252 

253 

254 
2  55 

256 

257 

258 
2  59 
26C 
261 
2  62 
261 

264 

265 
2  66 

267 

268 

269 

270 

271 
2  72 
2  73 

274 

275 

276 
2  77 

278 

279 

280 

231 

232 

233 

284 

285 
236 
287 

238 

239 

290 

291 

292 

203 
2  94 
2  95 
2  96 
2  97 
298 
2  99 
2  00 
2  01 


23  r 


23^ 

24  P 


250 


260 

262 

264 

266 


WRI TO (20,230) IOBCNT 
FORMAK  PX,  12) 

4  THE  LEFT  HAND  COLUMN  OF  THE  FOLLOWING  RFPRESENTS  THE 

*  QUANTITY  PF  EQUIPMENT,  ANC  THE  RIGHT  COLUMN  REPRESENTS 

*  THE  NUMBER  OF  PROTECTIVE  POSITIONS  PER  HCUP  IT  CAN 
>5*  C  RE  A  Tr  • 

DO  240  K- 1 , 2C 

IF( { PPSTQT( K )  .EC  .r. ) .OR . (  IP VAR(K)  .EQ .0)>G0  TO  240 
WRITE (20 , 235) IPVAR(K ) tPOSTOT | K) 

FCRMAT(9X,I2f 7XtF5.2) 

continue 

WRITE (2°, 10) 

**THE*NEX T* VA LUE^PEPRFS EN TS^T HE *4*0  **  GR  OUPS*OF*  RE  D*  ENG  I 

*  NEER  EQUIPMENT  CAPABLE  OF  CREATING  PROTECTIVE  PCSTTIGNS, 

*  FOLLOWING  THAT  V  ALUr  ARE  TWO  COLUMNS  REPRESENTING  THE 
^  QUANTITY  OF  THE  EQUIPMENT  IN  EACH  GROUP  AND  THE  8  CF 

*  PCS  ITTONS  THAT  CAN  D  E  CONSTRUCTED  PER  HOUR  PER  PIrCE 

*  OF  EQUIPMENT.  thf  n  OF  GROUPS  OF  EQUIPMENT,  THEI °  GUAN- 

*  T IT  IE  S  AND  CREATION  RATES  CAN  BE  EXPECTED  TO  CHANCE  IF 

WRITE(20f25O 

FORMA  T( OX,  *  6» /9X, #  d*.9X  ,*7.47*/ 9X .•  12  * . 8X , *  3.83  f/9X  ,  *  12  f  , 
*SX  ,  *1.9  1*/9X,  •2,,0X.*?.33*/9X ,  *  12*, 8X , *2.95  */9x  ,’2f  ,9Xf 
*#  1 • 4Q»  ) 

WRITE(29? 10) 

*  THE  FOLLOWING  DPALS  W  ITH%0MM  UN  IC  AT  IONS  *  A  NO*  J  AMMI  NGt*** 

4  THE  INTEGER  VALUES  ON  THE  LEFT  REPRESENT  RADIO  QU  ANTI  - 

*  TIES. THE  INTEGER  VALUES  ON  THE  RIGHT  REPRESENT  THr  * 

*  OF  RED  JAMMERS.  THE  REAL  NUMBERS  IN  BETWEEN  ARE  MAJIC 
♦^NUMBERS. 

WRITE  (2n,  260  ICVAP  (  1) 

FORMAT( 9X, I5,6X ,*C  .68  5*  ,5X, *1 .3  7685  * f 3X  f • D  .  83  Id  % 4X  ,  •  I  •  ) 

WRITE ( 2", 262) 

F  OR  MA  T ( °X , • 91 .5*,6X,*5« ) 

WRITE (2n, 264) ICVAR(C) 

FORMAT( 3X, 13, 6X, *0.0 2*, 6X, *0.92394*  ,3X,*C.GCC4#  ,  4  X  ,  *  1  *  ) 

W  R I TE ( 2°, 266 ) 

FORMAT* oXt • 7 . 1 1  ,  7  X  ,  *6’ ) 


3  12 

C 

303 

3  P4 

C 

3  25 

3  0* 

26° 

3  07 

270 

308 

3  n9 

C 

3  10 

272 

311 

3  12 

C 

3  13 

27  T 

3  14 

C 

3  15 
316 

c 

3  17 

c 

318 

c 

3  19 

c 

320 

c 

321 

322 

c 

323 

324 

274 

WRITE ( 20 268) IC VAP ( 4) 

FQR^ATfOx, 14, 6X , *  C  •  C2  *  6  X , *0.02337*, 3X , *  3  •  P  D  C4 • ,4X , *  ?*) 
WRITE  (  2r,  270  ?  * 

FORMAT(°X, *  1.714* ,6X, *3t/9X,M* 714*  ,6X  ,  •  1 • J 

WRI^E ( 20,272) ICVAP l 3) 

F3RMAT(qX,I2,9X,,l."C*,6Xf*P.19t,6X  »,3.1674*,4X,*1*  ) 

WRITE (20,273) 

F0RMAT(9X,  *  1.25*, 6x,* 4*  ) 


WRITE (2r,274)ICVAP(12) 

t?>r*t0.fc6O6X,O.CO  ?X,*0.l316*,4X,*l  */9X, 
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225 
326 
32? 
328 
3  2<5 
3  3D 

331 

332 

2  33 

334 

335 

336 

337 
3-39 

3  39 
34P 

341 

342 

343 
3  44 

345 

346 

347 

348 

349 

350 

351 
35? 

353 

354 
35* 
3  56 

357 

358 

359 

360 

361 
3  6? 

363 

364 

365 

366 

367 

368 

369 
37? 

371 

372 

373 
3  74 

375 

376 

2  77 

3  79 
3  79 
3  80 
3  81 
332 
383 
3  34 
335 

386 

387 

388 

389 
39C 
3  °1 
392 
3  93 
3  94 

395 

396 

3  97 

398 

399 

400 

401 

402 

403 

4  04 
405 
4  06 


WRITE (2rr27c) 

-2?C  FORMAT!  9Xf  M.«M  ,?Y  f  *0*6S5*,5X  ,•  l.Q*  ,7X,  T.4  566*  f4X,  *5*  | 

I  ^t****:*^!**  =***3*$j*j*i**t*r*;±  *1*3******  at 

\  $  Iu/MLCL33W^D  AN/GLO-3™  6“/TLQ  3"’  AN/TLQ  17  »  PI°ANA’ 


^ICyaRli?>276>TCVA°<,:?€>>y:rCVAP<ri7  )»ICvAPtcs  >*ICVAR|;39>» 

,276 


WRITE(2r,,278)ICVAR|IQ),ICVAR!13) 

.2”  .!;35S5!:js:}5«jI5:^j5:j5:j5!-o’>7«’,c-!'m--«-^-'«. 


WRITE(2r,2aO)ICVAP!14) 

280^0^411  OX  j-I.rj.TX.’O.UQ-^X.’i.G*,  7X  ,  •  .2  7 1  7  •  ,  5  X  ,  •  1  V?  X  , 

W  R I TE ! 2nf 1J ) 

i5n?t?S»29",  NUMpE8»N,mPER»pSMRGt  IBGLOOP) 
c9V  *• 1^7*1 }  X’I5»4X»I5»4X’FS*2.7X,' 5.93  *,6X, 

WRITE(2'\  292) 

292  j°xTE(2"ac>*65’’6X,’1*2’,7)r,’lfcC*3  *,5X  ’’  •5M 

:32l2sS2S£g*sIS3l2l!5I2E2*””^*s*^MGTS/M!?icAL* 

a* aaaaa# a« aaaaaa 

WRITE (2rt29«)PSURGt I8GL0GP  > 

FORMAT!  "X,  *  11922*  ,  <*X,  •  1  1920  *,ax  ,F5.  2,7X  ,Mfi  .C»,6X  ,  •  r.l*  ) 

WRITER, 296) 

29G  FORMAT! 9X , •  ft.C0*,6X,* 1.7% 7X, *5 “0.0  ’,5X  .371* ) 


WRITE  12'*, 3un)PMAINF 
3.3C  FORMAT!  RXf  •  T 1  ,  9  X  ,  *  1.0*  ,  7X  »  F  F  .  A  ) 

*THrFStLOM:NG*CEALrwITrTHr?ErMtlNTENANCrFACTOp!::'”,<‘ 

*  AND  VARIES  WITH  POSTURE  L,°  * 


aaaaaaaaaaaaa 

„  JRITE  i7~f  3ir>PMAIMT!8GL00P  ) 

3  1C  FORMAT! 9X  * • T* f9X»  *  1*0*  »7X*F6«4) 


31? 


32C 
33  r 


*  3*1*  3*3*  $1* 


WRITE!  20,  10) 

:*iSI:2SsS2s!iuSin!sII3sniliUIIi22l£2S???s 

WRITE (2?t  315)TCOUMT 
forma  T ( °X  t I  2) 

DO  33  j  TSTCNT  =  l,6n 

ISVARtlSTCNT)  .  EC  .  u  )  GO  T  C3  ?C 

nr 1  • ,Tm  ,isicnti 


WRITE! 2nf 34~) 

74  f  FORMA  T ( 9X ,  *  8  *  ) 

do  410  TNDivor:,a 

IF  (8  FLOOR *£Q  .2 )  GOTO  355 
IF  (  B  rL  0  0  P  #£  C ,3 )  G0?0  365 
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4  07 
409 
4  39 
4  ID 
4  11 
4  12 
4  13 
4  14 
4  15 
4  16 
4  17 
4  19 
4  19 
4  2  P 

421 

422 

423 
4  24 
4  25 
4  26 

427 

428 
4  29 
4  3P 
431 
4  32 
4  33 
4  34 
435 
4  36 
4  37 

438 

439 
4  4  r 

441 

442 

443 
4  44 

445 

446 

447 
449 
4  49 
4  52 

451 

452 
4  53 
4  54 
455 
4  56 
457 
4  59 

459 

460 

461 

462 

463 

464 
4  65 

466 

467 


35  r 

355 

36P 

365 

37p 

37c 
387 
39  n 

394 

4CP 
4  Q5 
4  ir 


42P 
43T 
%4  3  5 

44  C 
45r 
9QC 


ir 


3  r 


IF  (B7L00P.FQ  .4 )  GO^o  375 
REAO(?7,35C>CCNSuM 
F0P”AT<F5  .2) 

GOTO  T9D 

RF40C  77, 360CCNSUM 
F0RMAT*9X,F5.2) 

GOTO  79C 

READ*  27. 3 7C  )  C  ON  S  UM 
FOPMATl  18  X  t  F  5  .2  ) 

GOTO  790 

REACM  27  »  3  8  3 ) C  ON  $U  M 
F0R«4T(27X ,F5 .2) 

IF  (I  NO  I  VH.FQ  .8  )  GOTO  <*CQ 

WRITE  f 20 »  29  4 ) CO N  SUM 

FORMA  T(9X ,F5. 2, cXf tp.G*  #7Xf  *1  .DM 

GOTO  “in 

WPITF(20,4nc)C0NSUH 

F  OR  M  A  t(  9X*F5.2*  5X**°.3*  1 7  X  »  *0  .7*) 
CONTINUE 
WRITE  *  2D, ID) 


*  THE  FOLLOWING  IS  RED  01 VI  SION  STRENGTH 
***  ******  **************************  ********  ****  ****  ****** 


WRI  TE (2^,42p) 

FORMAT ( ox  t  *  1 1927f  ) 
WRITE  (  2% 43f ) 
FORMATC  9X  f • 2* /9X,  * i 
WRITE (2n,43c) 
FORmaK  oXt  *  ?27Q  *  f  6X 


*  ,  9  X 


l.C* 

»7Xf 


♦  7 X  t *4  382.5* * 4  X 
*17449  ,f5Xf,2M 


1  *> 


WRI TE ( 27f  44C)PAMM0 (8GL00P ) 

FORMAT* 9Xf  *2* /9XtF7  .2 .3X. *G 

WRITE(2n,45C)FP0LC5GLp0Pl 

FORMAT* °X,F6. 2, 4Xf*o.c*  f7X- 

REWIND  27 

CONTINUE 

IBFLAG=P 

RETURN 

END 


•  G  *  »  7X 
•l.C*) 


l.C*  > 


SUBROUTINE  PR  PROG  * 6*A TN F tNUM£NG  ,NUM PE P  f  STP  ,  J J ) 

* ** ******** ************  ************  ************ 


INTEGER  NUHFNC, NUM PER  » I UYE A P. STP 
REAL  GMAINF 
COMMON  JTP S NA  *  1 5 ) 

READ*  29  ?10tEND-?C )KKT°SN,IUYEAR  f8MA INF,NUMENGtNUMPER 
FORMA  T(  IX, IS, rx  rI2tZXtF5.4, 2X .1 3.2X  .15 ) 

IF (  * JTP5NA ( JJ)  .EC  .KKTPSN) .AND  . *  INT*  STP/ 1C )  .EO .IUYEA  p) HHEN 

GOTO  3C 
END  IF 


GOTO  5 
RETURN 
END 
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1  EDRDAT  PROC 

COMMON  /EPRPAT/  NERRS,  N  E  D  R  S  L 

END 


Figure  E-I-18.  Listing  of  FORTRAN  Proc  Identifying  Certain 
COMMON  Blocks  in  the  BRIDGE  Subroutine  to 
the  Search  Program 


E- I -57 


CAA-D-84-14 


is 
2:C 
3:C 
4 :  C 
5:C 
6  :C 
7:  C 
8: 

9: 

IQ: 

1 1  :C 
12: 

1 3  :C 
14: 

15  :C 
16: 
17:C 
18: 

19  :C 
20: 

21: 

22  :C 
22: 

24  :c 

25: 

26: 
27:C 
28 : 

29: 

30: 

21: 

32: 

23: 

34: 

35:1 CD 

i$jc 
28 : 

39: 


SUBROUTINE  BRGPRE 

**#44*******  *###*##**##  **####***#***  ******  ******  ****  ********  ** 
A 

*  BRGPRE:  AFP  BRIDGE  PRE -P ROCESSOR 

* 

*** ***  *** ** ** **  ******************** ************  ****** *********** 

INCLUDE  BPOAT.LIST 
INCLUDE  £RROATf  LIST 
INCLUOE  8DGRQUt  LIST 

NERRS  =  0 
GET  INPUT  DATA 
CALL  SPIN 

ANY  ERRORS  PREVENT  FURTHER  PROCESSING 
IF  (NERRS  .GT.  0)  STOP 
PPOCESS  EACH  TYPE  OF  GAP  IN  TURN 
DO  100  IG  -  i,NGAPS 

SEE  WHAT  VEHICLES  CAN  CROSS*  WHAT  BRIDGES  CAN  BE  USED 
CAUL  8PGAPIIG) 

IF  (POSSEL(IG)  .6T.  Q.Q )  THEN 

NUMBER  OF  CROSSING  POINTS  TO  BE  USED: 

NCP  =  HINfNCPD*  NCPCIIGU 
COMPUTE  CPOSSING  TIME 
CALL  BPCRCS  I IG *  NCP*  CT1) 

IF  (NCP  .LT.  NCPCIIGl)  THEN 

TP Y  AGAIN  WITH  ONE  ADDITIONAL  CPOSSING  POINT 
CALL  BPCRGS  I IG ,  NCP+1,  C T 2 ) 

CT1  z  MIN ( CT1 *  CT2) 

EN  OIF 

GAPCTM ( IG I  =  CT1 
ELSc: 

GAPCTM(IG)  -  0.0 
ENDIF 
CONTINUE 

COMPUTE  BRIDGING  CAPABILITY 

CALL  8  PC AP 

RETURN 

END 
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1 

2 

7 

4 

5 

6 

7 

8 

9 

io 

n 

12 

13 

14 

15 

15 

17 

1  o 

19 

“*r 

21 

22 

23 

24 

2C 

25 

27 

■?  Q 

29 

?r 

31 

32 

33 

34 

35 

36 

37 

38 

7? 


CAA-D-84-14 


SUBROUTINE  5PHEXT  (f.'CP,  TNEU,  I  CP  ) 


*  BPNcXT:  TIME  OF  NEX  T  EVENT  * 

*  * 


INCLUDE  BP04T ,  L  I S  T 
C 

ICP  =  1 

TNEU  r  TNEXT( 1 ) 

DO  102  JCP  =  1  *  NC  P 

IF  (TNEXT(JCP)  .LT.  TNEU)  then 
ICP  -  JCP 
TNEW  r  TNEXT(JCP) 

END  IF 

ICO  CONTINUE 

IF  (TNEU  .bT,  TNOU)  THEN 

WRITE  ( 6  *  f  G )  TNOU,  (VNUM( TVT( JCP)  ),  JCPr!,NCP) 

6  C  FORMAT  (IX,  Fe.2,  (T1Q,  3214)) 

ENOIF 

CCCCCCC  0E3UG  START 
C  IF  (TNEU  .GT.  TNOU)  THEN 

C  U R I T r  (6,61)  TNOU 

C61  E09MST  pg.2) 

C  WRITE  (6,62)  *  CROSS  PT • T  (JCP*  JCP  =  1.NCP) 

C  62  FORMAT  (IX,  A,  T  15 ,  2LI5) 

C  UR  ITT  (b,e>2)  *  S  T  ATr ’  .  (  I  ST  A  T  E  (  JC  P  )  ,  JCP-1,NCP> 

C  WRITE  (6,62)  ’ P  RIDGE  ,  (lET(JCP)f  JCP=ltNCP> 

C  WRIT*-  (6,62)  ’VEHICLE1,  (IVT(JCP),  JCPri.NCP) 

C  WRITE  (6,63)  ’NEXT  TIME’,  (TNEXT(JCP),  JCPzl,NCP) 

C  6  3  FORMAT  (IX,  A,  T 15 1  2DF5.1) 

C  WRITE  ( b  ,  6  4 )  ’VEHICLES’,  (LEFTIIV),  IVri.NVEH) 

C  64  FORMAT  (IX,  A ,  TIO,  l^FlO.l) 

C  WRITE  (6,64)  *  E  F  F  PATE’,  (ECR(IV),  IV=1,NVEH) 

C  ENCIF 

CCCCCCC  DEBUG  END 
RETURN 


END 
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4 

5 

6 

7 

8 
9 

ID 

11 

12 

13 

14 

15 

16 

17 

18 
19 


4 

5 

6 

7 

8 


6  1 


6  3 


SUBROUTINE  GNFRR  (ITEM,  MSG) 

**  ****  ***  **  ******  ***** ****  *********************  ** **  ************** 

#  GNEPR:  ISSUE  AN  ERROR  MESSAGE 
$ 

******  *****  ****  ***********  *****************  ***«  ***************** 

INCLUOE  ERPDAT.L1ST 
CHARACTER#! *|  ITEM,  MSG 

INCREMENT  ERROR  COUNT 
NEPRS  r  NERRS  +  1 
NERRSL  =  NERRSL+1 
PRINT  THE  MESSAGE 
IF  (ITEM  .EQ.  *  M  THEN 
WRITE  (6.61)  MSG 
FORMAT  <*  ERROR:  *,  A) 

else 

WRITE  (6,62)  ITEM,  MSG 

FORMAT  (•  EcROR:  •,  A,  *;  •,  A) 

E  v  0 1 F 

IF  (NERFS  .GT.  30  THEN 
WRITE  (6,63) 

FORMAT  C  ERROR  LIMIT  EX  CEE D ED  .  . . PROC E S S I NG  STOPPED.*) 

STOP 

EN&IF 

RETURN 

END 
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c 

c 

C 

C 

c 


c 


c 

fa  6 


21 
:  2 

23 


FUNCTION  RANG!:  (ITEM,  XLO,  X,  XHI) 

**«*$*  *******  $#**$*  **$*#*****#*$**,*,*,**,*,**  *$*$*****,5,****^$  ****** 

* 

*  RANGE:  CHECK  A  REAL  NUMBER  FOR  BEING  IN  RANGE 

* 

s**  ****  a*W<n>i>  *  **  ***********  j***********************  ************  **  ** 

CHARACTER***)  ITEM 
CH  A  R AC  TER  *  7  C  MSG 

IF  UXLO  #LE  •  X)  •  A  NO  •  IX  .LE.  XHI))  THEN 
CONT  INUE 
ELSE 

BUILD  error  message 

WRITE  ( M  3G , 66 )  X,  XLO,  XHI 
FORMAL  I1PG11. 4, 

C  CALL^GNERRtT^EM^MSG)  ^  '*  1PGU•‘,’  ’  T°  *’  1PCil-4‘ 

ENOIF 
RANGE  z  X 

IF  (RANGE  .LT.  XLO)  RANGE  =  XLO 
IF  (RANGE  .GT.  XHI)  RANGE  =  XHI 
RETURN 
END 


Figure 
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is 
2:C 
5  :C 
u:C 

5  :C 

6  ;C 
7:C 
8 : 

9  :C 
1 G: 
11:61 
12: 
12:62 
ms 

1 5  :  fa  3 

16  ;C 
17: 

13: 

19: 

2C: 

2  1: 

22: 

22: 

2^: 

25 : 1 rQ 
26 :  L 
2 "  : 

28  : 

29: 
3C:b  4 
31: 

32: 

33: 

34  :  ^  pq 
t  c;  •  c. 

36 : 

37:3  CD 
38 : 

79  : 

4  r :  c 
4  1 ; 

42 : 

43: 

44:4  ro 

45 : C 
46 : 

47: 

4? : 

49 : 

c  2:C 


53: 
54  :C 


56 : 
57; 
5  8: 


59 : 

6  2: 

6  1 : 

62:5  CD 

6  3: 

64  :C 

65: 

66 : 

67: 

68 : 

69: 

7  r : 

71: 

72: 

73: 

7  4: 

75: 

76: 

77: 

78  :C 


SUBROUTINE  BPCRCS  CIG,  NCP,  C~IME) 


* 


*  EPCROS:  COMPUTE  TIME  REQUIRED  TO  CROSS  A  GAP 

**  #**:<**  «$*$<(  ***$******1*$*  *$***$  ************$*  ** 


INCLUDE  BPD  A  T  ,L  IS  T 


-RITE  16,61)  WGAPIIG) 

FORMAT  C’GCROGSlNG  TIME  CALCULATIONS  FOP 
WRITE  16,62)  Cl,  I=1,NCP> 

FORMAT  C’OTIME’,  (Tic,  3014)) 

-RITE  <6,63)  I*  - *,  1=1, NCP) 

FORMAT  f*  - *,  I T 10, 30A4 ) ) 

INITIALIZE  VARIABLES 

TNCW  r  C.3 

GO  100  IV  r  1  ,N  V c H 

IF  IVOLAStlV)  •  LE  •  BLMAX  )  THEN 
LEFT( IV )  =  NV  f IV) 

ELSE 

LEFTCIV)  r  u.C 
END  IF 

ECRCIV)  =  C.O 


Ffc  *  0,  *  METER  GAP*) 


continue 

ASSIGN  BRIDGES  TO  CROSSING  POINTS 
CALL  BPtSG  ( IG  ,  NCP) 

00  2C3  ICP  -  ! , NCP 

WRITE  (6,64)  TNOW,  ’SETTING  UP*,  BDr SC l IB T ( I C P > >  ,  ICP 
FORMAT  <1X,  F  8  •  2  ,  T ID ,  A2r,  IX,  Alu,  *  AT  POINT  *,  13) 
ISTATEIICP)  -  KSETUP 
I  V T  f  ICP  )  = 

TNEXTCICP)  =  TNOW  ♦  SETU P C IP T < I CP ) , I G )  /  60. 0  3  SETUP  IN  HOUPS 

CONTINUE 

GET  THl  TIME  OF  THE  NEXT  EVENT 
CALL  BPN'EXT  (NCP,  T  NEW  ,  ICP) 

IF  (TNEW  .6E.  BIG)  GOTO  399 
DELTA  =  TNEW-TNCU 
TNQU  =  TNEW 

COMPUTE  NUMBERS  OF  VEHICLES  LEFT 
DO  4UQ  IV  =  1 , N VEH 

LEFT l IV )  =  LEFTCIV)  -  ECP(IV)  *  DELTA 
IF  (LEFTIIV)  .LT.  0 •  * 3  Q  1 )  LEFTCIV)  =  C.O 
CONT  INUE 

MOGIFY  THE  STATE  OF  THE  CROSSING  POINT 
IF  (ISTATE(ICP)  •  EG  •  KSETUP)  THEN 

WR  ITE  <6,64)  TNOU,  ’STARTING  CROSSING*,  B DE SC  ( I B T C I  CP  )  )  ,  ICP 
ISTATECICP)  =  KCROSS 
ELSE  IF  (ISTATECICP)  .EG.  KCROSS)  THEN 
REALLOCATION  WILL  TAKE  CARE  OF  IT 
ELSE  IF  (ISTATECICP)  .EC.  KTDOWN)  THEN 
REPLACE  THE  BRIDGE,  IF  FEASIBLE 

CALL  ePSCOR  CIG?  U  RE -CCMPUT  E  CROSSING  SCORES 
FIND  THE  BRIDGE  WITH  THE  BIGGEST  SCORE 
IB  -  u 
SB  I G  =  C.C 

CO  5CC  Jb  -  1,N8RI0G 

IF  ((CSC0RE1J8)  .GT*  SBIG)  .AND.  (NCB<JP>  .GT.  D))  THEN 
IB  7  JB 

SBIG  =  C  SCO  RE  1 JB ) 

END  IF 


CONTINUE 

IF  f IE  .G".  C)  THEN 

ASSIGN  FRIDGE  TO  THIS  CROSSING  POINT 
IB  T  C  ICP  1  =  IB 
NCBCIB)  -  NCBCIB)-: 

WRITE  (6,64)  TNOW,  ’SETTING  UP’,  P D E SC  (  I B T ( I C P  )  ) , 
I  Op 

ISTATEl ICP)  =  KSETUP 

TNEXTCICP)  -  TNOW  ♦  SETUP < IB , IG )  /  6Q.0 


ISTATECICP)  -  KF INI 
TNEXTCICP )  =  BIG 
ENOIF 
ELSE 

STOP  13  ?  ERRONEOUS  S  T  A  T r 

ENDIF 

REALLOCATE  VEHICLES  TO  CROSSING  POINTS 


TO; 

FO:C 

81: 

82 : 

83:399 

84: 

85: 

86: 

57: 


CALL  PPREAL CIG, NCP) 

GET  THE  NEXT  EVENT 
CALL  BPNFXT  CNCP,  TNEW, 
GOTO  3vjf" 

continue 

CTIME  =  TNOW 
RETURN 

DEBUG  SUBCHK 
END 


ICP  ) 
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1  'OCn-jcMn-Pnro»-*'i>ocD^4cr  ui^  umk- 


CAA-D-84-14 


:C 
:C 
:C 
:C 
:  C 


:C 

Ue 


*2I*m«£J!NCTI0N  ?AfJGEI  (ITEM,  IXLO,  IXt  IXH1( 

**  u  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  «  *  *  *  *  *  *  *  *  *  <i  *  *  *  *  *  *  *  *  *  *  4  «  *  *  *  *  «  *  *  *  *  *  a  «  *  *  *»  *  *  a  *  *  *  * 

*  RANGEI:  CHECK  AN  INTEGER  FOR  BEING  IN  RANGE  * 

CHAR AC  TER *7P  msc^ 

IFriiJ?tSr  *L£*  IX)  *AND*  (  Ix  *LG.  IXHIM  THEN 
E  O  N  T  Ip.UL 

ELSE 

BUILD  ERROR  MESSAGE 

WRITE  (MSG.F6)  IX,  IXL  0 ,  IXHI 

CAL^GN^^he^KEHV0  BE  IN  rH£  RANG£  ’’  I1G-  •  T0  ••  I’*c> 

END  IF 

RANGEI  =  IX 

IF  I RANGEI  #L  T,  IXLO)  RANGEI  -  IXLO 
IF^GEI  .Gt.  IXHI)  RANGEI  r  IXHI 

END 


Figure 
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b 

7 

e 

9 

10 

11 

12 

13 

14 

*  c 

16 

17 

18 
19 

n  r, 

h 

L.  4- 

23 

24 

2  5 
26 

2  8 
29 
3" 
71 

7  7 


C  7 
54 

F  5 

56 

57 
56 
=;  q 
6  0 
6  1 
62 
67 

64 

65 
6  6 
67 
6  6 
69 
7r 

71 

72 

73 

74 


1  ~ 


2C 

C 


SUBROUTINE  CKSRTI  (A,  INDEX,  N) 

SORT  AIN)  IN  ASCENDING  ORDER  VIA  THE  ARRAY  •JNOEX * 

I • E • v  AT  THE  CONCLUSION  OF  THE  SUBROUTINE,  INDEX  IS  TO 
CONTAIN  A  PERMUTATION  OF  THE  INTEGERS  1...N  SUCH  THAT 
A(lNOcXCin  <=  A ( INDEX ( J ) )  WHENEVER  I<zj.  THR  ARRAY  A 
IS  UNCHANGED, 

ADOPTED  FROM  ’QUICKSORT*,  PROGRAM  2.11  IN  ’ALGORITHMS  ♦  DATA 
STRUCTURES  r  PROGRAMS’  BY  N.  WIPTH 

REAL  A (*J ,  X 

INTEGER  INDEX (*  )  v  I  TEMP 

INTEGER  N 

PARAMETER  MAXSTK  z  36 

THIS  STACK  SIZE  IS  ADEQUATE  TO  SORT  2**36  ITEMS 
INTEGER  STACKL  CMAXSTk),  STACKR  CMAXSTK),  St  If  jf  (_,  R 
INITIALIZE  INDEX  TO  1...N 
DO  5  I  r  1 ,  N 
INDEXII)  z  I 
CONTINUE 

STACK  REQUEST  TO  SORT  ACl.,N3 
S  -  1 

STACKL  Cl)  z  I 
STACKR  Cl)  z  N 
k  r  N 
CONTINUE 

TAKE  TOP  RECUEST  FROM  STACK 
L  z  STACKL  (S) 

R  r  STACKR  CS > 

S  z  S  -  i 
CONTINUE 

SPLIT  A<L)...A(P) 


73 

I  -  L 

34 

J  Z  R 

7  C 

X  z  A  (  INDEX  C  C  L ♦R i/2) ) 

36 

3 

CONTINUE 

77 

4  r 

IF  CAClNOEXmi  ,GE  •  X) 

GOTO 

5  C 

36 

I  -  I  ♦  1 

7  9 

GOTO  4C 

4  C 

sc 

CONTINUE 

41 

sc 

IF  (X  ,  CE .  ACINOEXCJ))) 

GOTO 

70 

42 

a  z  j  -  i 

4  7 

GOTO  60 

44 

7C 

CONTINUE 

45 

IF  Cl  . LE .  J)  THEN 

46 

ITEMP  z  INCEX(I) 

47 

INDEX (I)  z  INDEX CJ) 

4G 

INDEX  C  J  )  z  HEMP 

I  z  I  ♦  1 
J  "•  J  *  1 
ENOIF 

IF  (I  . Lc  •  J  )  GOTO  3C 
IF  CJ-L  . L  T .  R-I)  THEN 
IF  (I  ,  L  T  •  R>  THEN 

STACK  REQUEST  FOR  SORTING  RIGHT  PARTITION 
3  z  S  ♦  1 

STACKL  CS)  =  I 
S  TACKP  IS)  z  P 
END  I  F 

CCNTINUF  SORTING  LEFT  PARTITION 
K  z  J 
EL  3r 

IF  CL  ,LT •  J>  THEN 

STACK  RECUEST  FOR  SORTING  L  EF PARTITION 
S  =  S  ♦  1 
STACKL  <S>  z  L 
ST ACKP  (S )  z  j 
ENOIF 

CONTINUE  SORTING  RIGHT  PARTITION 


L  - 
ENOIF 

IF  -CL  .LT. 
IF  (S  •  NE  •  ** 
END 


R  )  GOTO  2C 
)  GOTO  1C 
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3 

4 

5 

6 
7 
3 
9 

in 

tl 

12 

13 

14 

15 

16 
17 
lb 
*  9 


5 :  C 


2  30 


SUBROUTINE  3PGAPCIG) 

**  « **********  *  *******  *  *  *  *****  *  *  *  *  **  *  *  *  *  *  *  *  *  *  *  *  *  *  «  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * 
*  BPGAP:  COMPUTE  CAPABILITY  TO  CROSS  A  GAP  * 

***********************************  ^^^^^^^^^^^^^^^ 


INCLUDE  3PDAT  fLIST 

DETERMINE  THE  MAXIMUM  load  CLASS  SUPPORTED  BY  B  R I  D  G  F  9  A\n  TWF 
BLMiX  r°C.CP0SSING  P0INTS  ™E  BRIDGE  I^ENTORr  CANSUP^RT  - 
NCFC(IGlCz"a 
00  ICQ  IB  - 1 ,NBR  IDG 

CROSSING  POINTS  FOR  THIS  BRIDGE  TYPE: 

NC  =  FSETSiTB)  *  CPSET(IS,IG>  ♦  C.00Q1 
NCPC(IG>  r  MCPCIIGJ  ♦  >4C 
IF  (NC  .GT.  QJ  THEN 

ELMAX  r  M AX <BLMAX ,BCLA SC  IB, IG)  > 

E  N  D  I  F 
CONTINUE 

IF  (BLMAX  • EQ •  C.OI  THEN 
CAN’T  CROSS  IT 
P0SS3LIIG)  Z  C.O 
FRVEHCCIG)  r  q.o 
ELSE 

CAN  C^OSS  IT 
POSSbLKGj  r  1.C1 

JE  FRACTION  OF  VFHICLES  that  can  CROSS 

i  U  I  U  H  j  —  \J  •  i 

DO  2u0  IV  -  1 t  N  V  E  H 

IF  ( VCL AS ( I  V  I  • LE •  BLMAX)  THEN 
£NTOTCRS  -  TOTCRS  ♦  NV  (IV  ) 

CONTINUE 
FRVEHCIIG)  z  TOTCRS  /  TO  TVER 
END  IF 

CCCCCC  DEBUG  START 

,,  (el61)  IG,  POSSBL(IG),  FFVEHC(IG) 

ttccccTrtil  ^CGAP  S  I2'  ’  ?0SS6L  :  ’’  F'-‘-  ’  F,.a, 

kETURN 

OEEUG  SUBCHK 
END 
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is 


'  3 

4  : 
c 

6 

7 

6 

9 

ID 

11 

12 

1; 

15 

16 
17 

ie 

19 

2C 

21 

22 

2  3 

25 

?fc 

27 

28 
29 

3  Z 

31 

32 

33 

3  4 
35 
3b 

37 

38 

39 
4C 

41 

42 

4  3 

44 

45 

46 

47 

48 

49 

50 

51 


c  4  ; 

55  : 
56: 
57: 
58  : 
c  9  : 
6 ' 


:C 
SI 
:  S  2 
■  S  3 

:  fa  4 
:  fa  5 
6  6 
fa  7 

’  6  c 

:  fa  9 

:7C 

1  I 
72 
;  7  3 
7  4 

7  5 

7  6 
77 
C 


*  AFP 


4X, 

4Xf 


zc  cc 


: 


*  EPIN  :  DATA  INPUT  ROUTINE!  FOP  BRIDGE  P  FE -P  ROCE  SS  OR 

* 

INCLUDE  BPD  AT  ,L 1ST 
INCLUDE  E9RDATLIST 
INCLUDE  BDGROU .LIST 

DI PEN SION  CPSETT ( 12,4) ,VCR ATT(12,4)t3CLAST(l2,4),S£TUPT(12,4), 
*IP AFP(  12) 

INTEGER  RANGE! 

FORMATS: 

FORMATUX,  ’NUMBER  OF  CROSSING  POINTS  DESIRED*,  5X,  15) 
FORMATUX,  -TAKE-DOWN  FACTOR*,  20X.  FS.3) 

:  - ix*  2x’ ,f2  =•• ix’ 

FORMATUX,  *NUH  8ER  OF  GAP  TYPES  =  *,  IX,  15) 

FORMAT (IX,  *a  GAPS*,  4X,  •WIDTH  (METERS  )  *  > 

FORMAT  (  IX  f  * - •  ,  4X  ,  * - •  ) 

FORMAT ( IX ,  Fb.O,  4  X ,  F14.C) 

FORMAT (  IX,  -NUMBER  OF  VEHICLE  TYPES  IX,  IS) 

FORMATI1X,  -a  VEHICLES-,  4X,  -LOAD  CLASS*,  4X,  *  * 

L  -DESCRIPTION*) 

FORM  at  l  TX  ,  * - *  ,  4  X  ,  * - *  f  4  X  , 

£  * - *  ) 

FORMATUX,  F 1 r  *  0  ,  4X,  FiQ.l,  4X,  15,  4X,  AlO) 

FORMAT  (IX,  -NUMBER  OF  Bf?IDGE/RAFT  TYPES  =  *,  IX,  15) 

FORMAT (72X»  -CAP  WIDTH  CROSS  PTS  SETUP  CROSS  RATE’) 
FORMAT  MX,  -a  SETS  AFP  a  DESCRIPTION  (METERS)-,  4X, 

L  *  DE  R  SET*,  EX,  MMIN)  (PE 17  HR)-,  3X,  ’LOAD  CLASS*) 

FORMATUX,  * -  -  -  •  2  X , 

FORMATUX,  Fo.l,  3X,  15,  3X,  AlC) 

FORMAT U2X*  F°* Q,  3 X ,  F9.3,  3Xf  F5.G,  3X,  FID. 3,  tx ,  F1C.1) 
WRITE ( 6  ,  2 GO G  )  E 6  LOOP 

FORMAT(  IX  -BGLOOP  IS  EQUAL  TO  *,H) 

IF  (BGLOOP  .EQ  .  4  )  THEN 
NCPO=7 
GOTO  78 
ENDIF 
NCPDr2 
TCF AC  T-2 

WRITE  (6,61)  NCPO 

NC  PD  z  ^ANGEI  (-a  CROSS  PTS*,  1,  NCPO,  MAXCP-1) 

WRITE  (6,62)  ~DFACT 

TCF  ACT  =  RANGE  (-TAKE-DOWN  FACT*,  O.C,  TCF  AC  T ,  BIG) 

B ASEF  1  =  1.0 
PASEF^r.OCSBlS 

IF ( 3GL  JCP .EG. 4) BASEF2=.011C14 
6 ASEF  3 -  1  •  C 

-RITE  (6,63)  PASEF1,  B ASEF  2,  PASEF3 
BASEF1  =  RANGE  (’BASE  FI*,  I.r/PIG,  3ASEF1,  BIG) 

&ASEF2  -  RANGE  (  -BASE  F2*,  J.G/SIG,  &  A  SEF  ? ,  oTG) 

6ASEF3  =  o  a  NG  E  ( * P A SE  F3*,  f.C/BIG,  BA  SEF  3  ,  BIG) 

GAP  DATA 


6  1: 

CALL  PRT30X  ( 

6  2: 

NG APS :4 

6  3: 

-PITE  (6,64) 

6  4: 

NGAPS  =  RANGE 

6  5 : 

-RITE  (6,65) 

6  6; 

WRITE  (6,66) 

67: 

W  GAP  <  1  >  z  1  5 

6  8: 

WC AP  C  2  >  =  60 

69 : 

WGAP(3)=2C2 

7C: 

WGAP ( 4  )  Z  4  G  0 

71: 

NGP ( 1 >r3Q 

72: 

NCP (2 )=7 

73: 

NGP ( 3 ) =3 

74  : 

NGP (4 ) rl 

75: 

DO  ICO  IG  z  1 

76: 

WRITE  (6,67 

77 : 

NGP  f  IG )  =  k 

78 : 

WGAP(IG)  = 
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79 
fi*j 
3  I 
82 
33 

64 

85 

86 
£7 
£6 
89 
92 
9  1 

92 

93 

94 

95 

96 

97 
c6 
99 

1  CC 
1C1 
l  72 
i"3 
1  '4 

105 
10  6 
I  C  7 
178 
1  09 
1  10 
1  11 
1  12 
113 
1  14 

1  15 
1  16 
117 
1  IS 
1  19 
123 

m 

123 

124 
175 
126 
127 
1  2  o 
129 
1  3f 
1  31 
1  32 
1  33 
1  34 
135 
1  36 
1  37 
1  3c 
1  39 
1  4  C 

141 

142 

143 
1  44 
14? 

146 

147 

148 

149 
1  5  ' 
151 


ro 


2  CO 
C 

c 


CONTINUE 

VEHICLE  DATA 

CALL  PP^BCX  lr,  ’VEHICLE  DATA*) 
wRITE  (6,66)  MV  EH 

NV EH  -  ®ANGEI  <  *#  V  EH  TYPES*,  1,  NVEH,  MAXVEH) 

-RITE  (6,69) 

WPITE  I  6 , 7  C  ) 

TOTVEH  =  0.3 
VNL’MCO)  -  o 
DO  2CD  IV  =  1,NVEH 

WRITE  (6,71)  NV(IV),  VCLAS(IV),  VNUM(IV),  VOESC(IV) 

N  V ( I V  )  r  RANGE  (*«  VEHICLES*,  g.G,  NVCIV),  BIG) 

VCl  AS(IV)  -  RANGE  (’CLASS*,  Ci.d,  VCLASllV),  BIG) 

TOTVEH  -  TGTVEH  ♦  NV(IV) 

CONTINUE 

IF  (TOTVEH  .£0.  0.0)  CALL  GNEPR  <*  *,  *N0  VEHICLES  IN  FORCE’) 
BRIDGE  DATA 

CALL  PRTDOX  ’EPID6E/RAFT  DATA*) 

-RITE  (6,72)  MB  R ICG 

NB  R ICG  =  PANGFI  (’#  6RI0GE  TYPES*,  i,  NBRIDG,  H  A  X  8  R  G  ) 

WRITE  (6,73) 

WRITE  (6,7M 
WRITE  (6,75) 

the  following  is  a  temporary  storage  area  FOR  VARIABLES 

SOME  OF  WHICH  WILL  LATER  BE  TP  AN  SFER  ED  INTO  THE  VARIABLES 
CPSETt  ),SETUP(  )  , V  CR  A  TE (  ),  AND  PCLASI  ), 


,256,ENDx26Q| IBAFP INN) . 

NN,1)  ,SETUPT(NN,  1)  ,VCRATT(NN,  1  )  ,6CLA$T|NN, 1), 
NN  ,2) ,SETUPT(NN, 2)  ,VCPATT(NN,2)  ,BCLAST(NN,2), 
NN  ,3)  ,SETUPTINN,3 )  .VCFATT INN, 3) ,BCLAST| NN , 3 ) , 

MN.Ul.^FTIlPTINk.Ul  .Uf  3  A  TT  (MW  .  m  -KTI  KTf  Wlu.u  I 


24 
256 


"6  C 


:sc 


270 
29  C 


4  *'3 
3  ~C 


DO  24C  NN -1,12 

°  £  AD  I  3n, 256, FND»26G) IBAFP  INN), 

*  CPSET  T  (  NH  ,  ’  1  "  -  *  ‘  - 

*  CPSETT CNN, 

*  CPS8TT(NN,JI,iclUKIINN,il  ,  VtK  A  I  5  I  N  N  f  31  ,  b  t  L  A  S  I  <  NN  ,  A  )  , 

*  CPSETT  CNN  ,4 )  ,ScTUPT(NN,4)  ,  VCR  A  T T ( NN , 4 )  ,BCLAST(NN,4  ) 

CONTINUE 

FORMA  II3*1X,F2  .  1  ,  F  4.u,F4*0,F3.0,F3.1*1X,f4.ij»F4.0,F3.u,1X  , 

*F2.C,F4.C,F3. 1,  IX ,F3.G,F2#U,F4*D,F2.C,F  3,r» 

GO  ICC  IB  -  1, NBRIDG 

WRITE  C  fe , 76 )  BSETS(IB),  &NUM (  IB ) ,  BCESCCIB) 

ESETSCI8)  -  RANGE  (*«  SETS’,  0.2,  BSE  T$  I  IB )  ,  BIG) 

DO  2  7  ~  N N “ 1 , 1 2 

IFIPNUHCI?)  .EC  .  IBAFP (NN) ) THEN 
DO  260  N'M  -  1,4 

CPSET  CIB,NM)rCPSETT(NN,NM ) 

SETUP  (IB ,NM  )  =  SETUP  7 CNN,NH ) 

VCRATr(  IB  ,NM)zVCRA  TT(P»N  ,NH  ) 

BCLAS (IB,NH )=BCLAS  TINN, NM I 
CONTINUE 
GOTO  290 
ENOTF 
CONT INUE 

DO  4CC  IG  :  1  .NGAPS 

WRITE  (6, **7)  WGAP(IF).  CPS  E  T  I  IE  ,  IG  >  ,  SE  TUP  C  IB  ,  IG  )  , 

C  VCR ATEC IB.IG),  BCLASCIB.IG) 

CPScT(IB,IG)  =  PaNGf  (  'V  CROSS  PTS’,  3.C,  CPSE T  (  19  ,  IG  )  ,  BIG) 

IF  (CPSET (IB,IG)  . C  T  *  2.0)  THEN 

SETUP ( IP , IG >  =  RANGE  (’^ETUP*,  SE TUP ( IE , IG ) ,  BIG) 

vrRATEC  TB  ,IG)  -  RANGE  ( ’CROSS  R A T E *  , 0  . uT 1 t V C R A T f { I b , I G )  , B I & ) 
3CL  A  S ( I ° , IG )  =  RANGE  (’CLASS’,  C.O,  BCLAS CIB , IG > ,  BIG) 

EN  0 1  F 
CONTINUE 
CONTINUE 
RETURN 

OEGUC  SUB  C HK 
c.  N  D 
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4 

5 

6 

7 

8 
9 

ir 

i  .i. 

12 

13 

14 

15 

1 6 

17 

18 
19 


:  SUBROUTINE  6PCC0R  f IG ) 

:C  *  tPSCOK:  COMPUTE  CROSSING  POINT  SCORES  OF  BRIDGES 

:  c  * 

;  ^  $**:>******:*****i*i***<t*****i)t  *4******#*$**** ************ ******  ****** 


24 

2E 

26 

27 

26 

29 


■'C: 

31 

32 


INCLUDE  BFDAT  fL  IS  T 
DO  1CD  IB  z  1  f NBR  IDG 

IF  ( NCB  < IB  )  .LE.  2)  THEN 
:  CS CORE ( 16  J  z  O.Q 

:  ELSE 

:C  COMPUTE  NUMBER  OF  VEHICLES  CAPABLE  OF  CROSSING  THIS  BRIDGE 

:  VC  “  2.0 

:  DO  2GJ  IV  -  1  * N VEH 

:  IF  (VCLASCIV)  .LE •  BCLAS(lB*IG> )  THEN 

:  VC  z  VC  ♦  LEFT(IV) 

:  EN'C  IF 

: 2 "0  CONTINUE 

:  TEMP  z  UI  ♦  SETUP ( 18 ,  IG  )  ♦  SETUP  ( IB  t  IG  )  *TQFACT 

:  CS  COR  E ( IB )  -  CPSET(IB,IG)  *  VCRATE  (IBtIG)  *  VC  /  TEMP 

:  ENDIF 

: 1 nC  CONTINUE 
: CCCCCCC  DEBUG  START 
:  C  WRITE  (6. 61J 

:C6I  format  r 

:C  WRITE  <6,62J  (NCB(IB>,  IB=WNBRIDG> 

:C  62  F  CRM  A  T  C  NCP#,  (  T  IQ  t  IQI8M 
:  C  CCCCCC  DEBUG  END 
nfETURN 

DEBUG  SUBCHK 
END 


_  G  ,  i  CSC  ORE  <  IP  >  ,  18-1  fNBR ICG) 

GAP  *,  12,  /,  *  SCORES  %  (TlCf  ICF3.2J) 
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b 

7 

8 
9 

3  0 
1 1 
12 

13 

14 

15 

16 

17 

18 
19 
?r. 

?1 

22 

23 

24 
2  * 
26 

27 

28 
29 
3C 
71 


34 

35 

■’’6 
^  T 

38 
79 
4  {J 

4  1 
42 

4  3 

44 

45 

46 

47 
46 
u  c 
c  p 

SI 
3  2 
c  3 

54 

55 

56 

57 

5  S 
59 

6  C 
6  1 
62 

63 

64 

65 

66 

67 

68 
69 

7  C 
71 


C 

b  1 
62 

b  3 

64 


b  6 


1  "3 


3  “0 
C 


4  r0 


5  CC 
C 

c 

c 

c 


bra 


SUBROUTINE  BPr  A  p 


*  BPCAP:  COMPUTE  TOTAL  BRI CGE -CROSSING  CAPABILITY  * 

*  * 


INCLUDE  BPDAT,LIST 
INCLUDE  BDGROU, LIST 
FORMATS: 

FORMAT  (43X*  'CROSSING*,  4X  ,  'FRACTION*) 
FORMAT  MX,  *  G  AP  WIDTH  (M>  «  GAPS 

L  ’POSSIBLE  TIME  (HR)  VEHICLE^') 
FORHATCX,  * -  -  - 

FORMAT  (IX,  13,  3X  ,  F9 • 0 ,  3X,  F6.1,  3X  , 

C  F  9 .2  ,  3X,  F  8 , 2 ) 

FORMAT  l!X,  'FI  z*,  IX,  F9.5,  7X,  *F2  =• 
0  *  F  3  IX,  F9.5) 

FORMAT  11X,  '3PIDGXNG  CAPABILITY  =  ',  IX, 


WEIGHT',  3  X , 

- ',  3*, 

F6.2,  3X ,  F3.1, 
,  IX,  F1C.6,  3X 
Ffi.3) 


8  X  , 


COMPUTE  GAP  WEIGHTS 
sum  z  a. a 

UO  ICO  76  =  1 ,N  G A  PS 

GAPWT(IG)  -  NGP(IG)  *  WGAP(IG) 
SUM  ^  SUM  ♦  GAFWT(IG) 

CONTINUE 

DO  2 HD  IG  r  1  ,N  G A  PS 

GAPWTflG)  =  GAPVT(IG)  /  SUM 
CONTINUE 

COMPUTE  FIRST  FACTOR 
FI  r  G.C 

DO  300  TG  =  1 , N 6 A  PS 

FI  -  FI  ♦  GAPWTCIG)  *  POSSBLtIG) 
CONTINUE 

COMPUTE  SECOND  FACTOR 
SUM  -  o.D 

00  400  IG  -  1 , N G A  P$ 

SUM  -  SUM  ♦  NGPIIG1  *  GAPCTM(IG) 
CONTINUE 


IF  (SUM  .GT,  -,.C)  THEN 
F 2  -  l.M  /  SUM 

ELSE 


END  IF 

COMPUTE  THIRD  FACTOR 

sum  =  u.a 

DO  SCO  IG  -  1  ,NG APS 

SLM  z  SUM  ♦  FRVEHC(IG) 
CONTINUE 

F  3  r  SLjH  /  FLOATINGAPSI 
TOTAL  CAPABILITY: 

6  C  A  P  :  fj.  *  f  2  *  F  3  /  (  B  A  S  EF  1 


*  BASEF2  *  BASEF3) 


PRINT  RESULTS 


CALL  PRTBOX  (?,  ’RESULTS') 

WRITE  (6,61) 

-RITE  (6,62) 

-RITE  (6,63) 

UO  6C0  IG  =  I  ,N  G A  P S 

t  U?IT"  GS&CTHtlGJ.M?R*e5lil6»SPfIS**  64PWT,IG''  POSSPL.IG), 

CONTINUE 
WRITE  (6,*)  *  * 

WRITE  (6,65)  FI,  F2  ,  F3 

cPITE  (6,*)  *  * 

WRITE  (6,66)  ECAP 
RETURN 

DEBUG  SUBCHK 
END 
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zi 

Z2 


n 

3  Z 

7  7 


2n  0 


34 


SUBROUTINE  BP  AS  G  <IG,  NCPI 

*<!$)*  <1#*  <t*  **  *J**J*$f  **  «ttl*  *«  *?«*«***  4***  «*«*&«  ft  *49  444ft 44  ftftftft  4ft 

*  V 

ft  EPASG:  INITIAL  ASSIGNMENT  OF  BRIDGES  TO  CROSSING  POINTS  * 

ft  * 

444444 *44444* ft* 4*444444*  444444444444444444444444*44444444*4**4444 

INCLUDE  &PDAT.LIST 
INTEGER  INDEX (M AXBRG) 

COMPUTE  NU  M8£  D  OF  CROSSING  POINTS  EACH  TYPE  BRIDGE  CAN  SUPPORT 
DO  ICO  IB  -  1 *NBR  IC  G 

NCB(IE)  -  BSETS(IB)  *  CP  SET  I  IB  » IG )  ♦  0.0001 
CONTINUE 

COMPUTE  CROSSING  POINT  SCORES  OF  BRIDGES 
CALL  3  P  SCOP  l TG  ) 

SORT  BRIDGES  DY  CROSSING  POINT  SCORE 
CALL  CKSRTI  (CSCORE,  INDEX,  N’BRIOO 
ID  R  =  NB  R I QG  i  START  WITH  HIGHEST-SCORING  BRIDGE 
16  =  INOEXII&P) 

DO  2CD  TCP  =  ! ,  N  C  P  a  CROSSING  POINT  LOOP 
IF  (NCBU8)  *  LE  •  3)  THEN 

US  l  THE  N*"X  I  TYPE  OF  BRIDGE,  IN  DESCENDING  CPSCOR  ORDER 
iBft  =  IGR-1  «  6PICGE  RANH 

13  -  INDEX  t  IB  R  )  a  BRIDGE  TYPE 
ENCIF 

ASSIGN  THE  BRIDGE  TO  THE  CROSSING  POINT 
IFT ( ICP )  -  TB 

OEC°cwE*T  THE  NUMBER  OF  CROSSING  POINTS  LEFT  FGP  THIS  TYPE 
NC6 (  xR )  "  NCB <  X&  >  -  1 
CONTINUE 
RETURN 

DEBUG  SUB  CH  K 
END 
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*  P^TBOX:  PRINT  A  CHARACTER  STRING  FRAMEO  IN  A  BOX 


1C 

UR  1TE 

16,61) 

<11, 

tcntrl  , 

<*«•,  I  =  1 , L ♦ 4 ) 

11 

6  1 

FORMAT 

1  72  A  1  ) 

12 

WRITE 

( 6  •  b  2  ) 

,  1  * 

* ,  1=  1 ,  L  ♦£ ) , 

12 

6  2 

FORMAT 

*, 

13  2  A  1  ) 

1** 

WRITE 

(6,63) 

’♦  • ,  *  * 

t  s,  •  • ,  **• 

15 

b  3 

format 

<• 

r  A  ) 

16 

WRITE 

(6,62) 

**  *  ,  1  * 

I=1VL*2)V 

17 

.PITE 

(6,64) 

<**•*.  1  = 

1  f  L+4  ) 

IS 

b  6 

FORMAT 

13  2  A  1  > 

19 

WRITE 

16,65  ) 

S  ~ 

b  5 

FORMAT 

(  *  *) 

21 

RETURN 

ENG 
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niji!/n/i  c  p  -c  p  p-  p  p  p  p  i  sj -ir  jf\>  fsj  txjiiMf  r  j»-*  *-•  ►—  ***»-•»-• 

,it  it-*'  1  sO'v,  -g(r  inPwwMH'Oai-JO'  tn  pt^tfN)*—  n  ^ nn  -4Cr<n  p  ( -U\j»- *q  a>  -JC7'  lh  p  t^rvj 


CAA-D-84-14 


Is 
2 :  C 
3  s  C 
4 :  C 

5  :C 

6  :C 
7 :  C 
8: 

9  :C 
10:64 

1 1 :  C 


1  GO 


C 


3  CO 


C 


2  CG 
C 


4  CG 


SUBROUTINE  BP  RE  AL  CIG,  NCP) 

4  4  $:***  ?* *$***#**«  ******  #£$****  **#*$***$  **$****  ********  ****** 

*  * 

*  BPREAL:  REALLOCATE  VEHICLES  TO  CROSSING  POINTS  * 

*  * 
******  *******  **  **  «**  ******  *************************************** 


INCLUDE  3PD  AT  ,L IS  T 
FORMATS: 

FORMAT  (IX,  F  8  •  2  ,  T IQ ,  A20t  lXf  AIO,  *  AT  POINT  *,  1 3  J 


DO  ICO  IV  =  1  ,N  V  E  H 
ECR( IV )  =0.0 
CONTINUE 

00  2G0  ICP  =  l.NCP 

IF  fISTATECICP)  .EG.  KCROSS)  THEN 
IB  =  IBTilCPI 
BCL  =  ECLAS ( IB  ,IG) 

FIND  THE  HEAVIEST  VEHICLE  LEFT  THAT  THE  BRIDGE  CAN  SUPPORT 
IV  =  n 


v: l  =  -1.0 

DO  3CG  JV  =  l.NVEH 

IF  I ILErT ( J V )  • GT .  0.01  .AND.  (VCLAS(JV)  .LE •  BCL)  .ANu. 
L  (VCLASIJV)  .GT  .  VCD)  THEN 

IV  =  JV 

V  CL  =  VCLAS(JV) 

ENDIF 

CONTINUE 

IF  (IV  .GT.  C)  THEN 

ASSIGN  VEHICLE  TO  THIS  CROSSING  POINT 
IVT(ICP)  =  IV 

BCFMIV)  =  ECR(IV)  ♦  VCR  A  T E I  IB  * IG  > 

ELSE 

TAKE  IT  DOWN 

WRITE  (6,64)  TNOW,  *  TAKING  DOWN*,  8 DE S C ( I B T (I  CP ) )  , 

L  ICP 

ISTATEt  TCP)  =  KTDOUN 
IVT ( TCP )  =  C 

TNEXTIICP)  -  TNOW  ♦  SETUP ( I B , I G )  *  TOFACT  /  oQ.O 
ENDIF 
EMOIF 
CONTINUE 

COMPUTE  TIME  OF  NEXT  EVENT  FOR  CROSSING  POINTS  WITH  VEHICLES 
DO  4C0  TCP  =  1 , NCP 

IF  ( 1ST  ATE ( ICP )  .EG.  KCRCSS)  THEN 
IV  =  IVT(ICP) 

DELTA  r  LEFT(IV)  /  ECRtIV) 

TN  EXT (  ICP )  =  TNOW  ♦  DELTA 

ENDIF 
CONTINUE 
RETURN 

DEBUG  3U6CHK 
END 
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l: Imap. e 

2: 1  V 

*  :>  3 

3:  IN 

*P3 

4:  IN 

*P3 

5:  IN 

*P3 

b:  I  N 

^3 

7:1  N 

*P  3 

8 : 1  N 

*P3 

V :  I  N 

#P3 

13: 1  N 

»P  3 

11 : 1  N 

*P  3 

12: 1  N 

❖  p  3 

1  3 : 1 N 

*P  3 

1 4 : 1  N 

*?  3 

1  5  :  I  N 

3 

1  b:  IN 

❖  P3 

17:14 

«=>  3 

f$P3C3U\lTER«97  3CDJNF4 


>  B  P I  N 1 
,  6  P  6  A  P 
. B P  S  GO  R 
-3NEBR 
i  R A  SEE 
-RANGE  I 
-QK  S  PT  I 
-PRT  F3X 
.BPREal 


COUNTER 

COUNTER 

COUNTER 


'  0  J  N  T  E  R 
OJNTER 


-bPCPOS 
iBPCAP 
3C  ASS 
C  D  J  K  T  4 
D JTPJT  5 
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4 

5 

6 
7 
S 
9 

in 

u 

12 

13 

14 

15 

16 

17 

18 
19 
2  C 
2  I 

23 

24 

25 

26 

27 

28 
29 

t  ri 

H 


34 

35 

36 

37 


C  234  567 

2  PROGRAM  TO  CALCULATE  CS/CSS  FACTOPS  AMO  OUTPUT  UfVfS»T  VALUES 
C  U.  R.  MILLION  3j  AUG  83 

C  MODIFIED  G.F.  COOPER  —  30  mar  e4f  3  MAY  84 
C  MODIFIED  BY  JOHN  WARREN  —  21  MAY  84 
C  MOO  I F I  ED  BY  TOM  LINGAN--15  AUG  84 
C  FTn  COMPILEP  USED 
Q I  MENS  ION 
♦  FACTI9,4) 

CHARACTER  NFUN(  9)<tllfNAMP0  S*6  ,F0RCE*5 
logical  JUMP , JMPT  !  2 >  ,  JMP8M 

REAL  E  QMN (21*  PRSMN(2J,  LANMN(2>,  AWLHN  !  2  )  ,  A0FRTI2),  CAPMN<2), 

C  EC  ClM ! 2 ) ,  CLRMNC2),  T0ENS<2t2),  TSPEE0C2),  SPDW  T ( 2 ) ,  SPDX(2> 

DATA  NFUN/ 

•* ’BRIDGING 

*,  ’PROT.POSN.  *, 

* • *C2£W  *, 

*,  •MAINTENANCE*  f 
*/ 

to  no 


1  •mobility 

2  ’MINE 

3  *  N  /  A 

4  •MEDICAL 

5  •SUPPCTRANS 


50 


SET  ALL  ARRAY  FACT  VALUES 
00  200 D  JJ-1, 176 
DC  2  1-1*9 
DO  1  J- 1*4 

FACT! I ,J>H •COO 
CONTINUE 
CONTINUE 
JMPEMr  .FALSE. 

JMPT! 1  iz. FALSE. 

JMP  T  (2  )  =  .  false. 

INPUT  CORRESPONDING  ENVIRONMENT  AND  PqSTURE  NAME 
READ12J.32)  I EN  V .NAMPOS, FORCE 
WRITE C  ir*5  0)FORCE,IENV 
FCRMATCiED*!  *H7CSCSS  •  *  t  A  5»  J2  > 


32  FORMAT  (8X*I3,8X  *A6*7X*a5) 
FACTOR  Is  MOBILITY 


38 

39 
4  C 

41 

42 

43 

44 

45 

46 

47 


49 


c  2 
E  T 

54 

55 

5  6 

57 

58 

59 

6  ~ 
6  1 
62 

63 

64 

65 

66 

67 

68 
69 
73 

71 

72 

73 

74 

75 

76 

77 

78 


120 

A  1J 
C 


1  30 


i  :c 
c 


2  CO 


DC  ICO  TSICE  r  lf2 
L  -  2*ISIDE-1 

R  E AO  (2G,*)  JUMP,  (FACT!  1,J>,  jrL,L*l> 

IF  (  , NO T  .  JUMP )  THEN 
JM  PT(ISIDE)  -  .TRUE. 

READ  (20, *>  SPDX(l),  SPDXf2>,  SPOWT  ( 2  J 
Sp  DU  T ( I )  -  l.C 
SUMD  r  c.C 

CO  HE  K  r  12  d  1- GR  OUNO  *  2rAIR 
TOENSdSIDE  *H  )  =  0.0 
T^PEED(Ki  =  C.O 
READ  <2nf«)  NVEH 
00  120  IVEH  z  1  -NVEH 

READ  (2C**J  OLNSTY,  SPEED 

TCENS (ISIDE ,K )  =  TDENSl ISIDE.K )  ♦  DENSTY 

T  SPEED! K )  r  T  S  PEED  ( K  )  ♦  SPEED  *  DENSTY 
CONTINUE 

SUMD  =  SUMD  ♦  TDENS!  ISIDE, Kl 
CONTINUE 

COMPUTE  MOBILITY  MEASURE: 

FACT!  i  ,  L  ♦  1 )  -  C  .0 

DO  13-  K  =  1,2 

FACT  C  1  *  L ♦  1 )  =  F ACr (  1  ,LM)  ♦ 

TSPrED!KJ  v  SPDW  T { K  )  /  (SPDX!H)  *  SUMD) 

CONTINUE 

PE  AO  (20,*)  RECEHO 
READ  (20, *1  CAPEHO 
MOBILITY  rQUNTER-ME ASURF : 

F  A  uT ( 1 , L )  -  CAPEHO  /  RECEHO 
END  I  F 
CONTINUE 

3RIDGTN6  FUNCTION  2 
READ! 2 J,^)  JUMP ,(FACT!2,J> ,Jzl,2) 

IF(JUMP)  GOTO  2  5  D 

READ  NUMBER  OF  BLUE  AND  RED  BRIDGE  TYPES 
READ  SNBRG 

READ  FLUE  D ENSI T Y/ LEND TH  OF  SP A N ! ML TE R S  ) 
DO  3  I=l,bNBRG 

READ  !  2  , ,  * )  B6DEN  ,BSPAN 
IB  SP AN= BbDEN*BSP AN 
SB  SP ANrSB SPAN ♦ TBS PAN 


Figure  E-I-21. 
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79 
3  C 

31 

32 

33 

34 
85 
3  6 
37 
83 
89 

9G 

91 

92 

93 

o4 

95 

96 

97 
96 
99 

1  Vj  u* 

121 
1  ~2 
1^3 
i  04 
105 
1  °6 
1C7 


8  CONTINUE 

:  COMPUTE  v  VALUE  FOR  BLUE  FUNCTION  2 — BRIDGING 

FACT«2,2)=SBSPAN/262. 

C  R  £  A  D  DED  CENSITY/LENG7H  QF  SP  aN  f METERS 1 

25 C  REA0(2u,*>  JUMP f ( FACT ( 2 » J )  » J-3 , 4 J 
IF(JUMP)  GOTO  3  GG 
READ(2J,*>  PNDRG 
00  9  I ~1 ,RNBRG 

READ  (2  RBDtN.RSPAN 

TRSP  AN; REDE N*R SPAN 
SRSPANzSRSPAN^TRSPAN 

9  CONTINUE 

C  COMPUTE  T  VALUE  FOR  RED  FUNCTION  2 — BRIDGING 

FACTl2,4)rSRSPAN/36G. 

C  FACTOR  3:  MINES 

323  CONTINUE 

00  351  I  SIDE  -  1,2 
JSIDE  =  3-1 51 DE 
L  r  2*1 S  IDE  -  1 

READ  (2G,*>  JUMP,  ( F  AC  T  C  3, J  > ,  J=L*L*1) 

IF  (•NOT.  JUMP)  THEN 

RE  AD ( 2  U  ,*  )  EQMN(ISIDE),  PP SMN ( I  SIDE  )  ,  LANMN (JSIDE), 
C  A  UL  MN (JSIDE  )  ,  AOFPT(JSICE) 

IF  (JSIDE  #EQ.  1>  THEN 
READ  (2%*)  ECCLMtl) 

CLRMNU)  =  EC  CL  M  (  1  )  ♦  PRSMN(l)  *  2.6  /  33. C 

ELSE 


i«i 

HS 
1  12 
1  13 
1  14 
1  15 
1  16 
117 
1  18 
i  19 
12C 
121 
122 
123 

1  24 
125 
1  26 

127 

128 
1  39 
1  3C 
131 
1  22 
1  7  3 
134 

1  35 
136 
1  37 
1  38 
1  39 
1  u  r 
1*1 

142 

143 


3  50 
C 

c 
c 


4CC 


98 

401 


1C 


450 


97 

451 


READ  (2D,*>  CLRMM2) 

END  IF 

C A  PMN 1 1 SIrE )  -  (EOMN ( I SIDr  J  ♦  PRSMN(ISIDE)  *  500.”  /  13.3)  * 
LA.nMN  (JSIDE)  *  AWLMNIJ3IDL)  /  (C.5  *  AD  F  R  T  <  J  S  I D  E  >  ) 

FAC"M  3,2*ISICE)  =  CAPMNIISIDE)  /  CLcHN(JSIQG> 

ENDIF 

CONTINUE 

FUNCTION  4  PROTECTIVE  POSITIONS 

READ  NUMBERS  OF  BLUE  AND  RED  PROTECTIVE  POSITION  EQUIP 
TYPES 

R  E  A  0 ( 2  J , * )  JUMP  ,  (FacT(4,J)  ,J=1,2) 

IF(JUMP)  GOTO  4  5  G 
IFtJMPTd))  GOTO  4  C  1 
UPITE  (15,98) 

FORM AT  (  •  ***  MEED  TDENSf 1*1)  —  SKIP*) 

GOTO  45n 

READ  (21,*)  6  TfP  P 

READ  DENSITY  AND  R ATE ( PO SI T IONS /HR )  BLUE 

SB  DENP -C 
DO  1G  I=1,BNPP 

READ  (23,*)  QDENPP.3RATEP 
TBCENP-6DE\PP  *6RA  TEP 
5BCE  NP-SBOENP ♦TSDENP 
CONTINUE 

COMPUTE  BLUE  V  VALUE  FOR  FUNCTION  4  PROTECTIVE  POSITIONS"' 
IF  (  .NO T.  JMPT (  ! )  )  GOTO  45? 

FACTl4,?)-l$60ENP*lJ#)/TDENSI!tl) 

READ  DENSITY  AND  R ATE  I PO S I T IONS /HP )  REO 
RE  AO ( 2  ^ ,  *  )  JUUP  ,  I  FACT (4, J)  ,Jr3,4) 

IF (JUMP)  GOTO  buC 
I F ( JMP  T ( 2 )  )  GOTO  451 
«PITE  (15,97) 

FORMAT ( *  ***  NEED  TDENS (2,1)  —  SKIP*) 

GOTO  6^1 

R E  AD  (  2  u  , *  )  RN  PP 

SRLENP 


144 

145 

146 

147 
14£ 

149 
1  CC 

151 

152 

153 
1  54 
1  c  5 

156 

157 

158 

1  rq 

167 


11 


C 

c 

o  ?U 


GO  11  I - 1 , fi  NP  P 

READ  (22,*)  RDENPP.RRATEP 
TRDENP=RDENPP*RPaTEP 
SRDENP=SROENp RCcNP 
CONTINUE 

COMPUTE  RED  T  VALUE  FOR  FUNCTION  4  PROTPCTIVE  POSITIONS 
IF ( -NOT. JMPt( 21 )  GOTO  603 
FACT(4,4);( SR  PE NP*iu.)/TDENS 17,1) 

FUNCTION  5:  C3EW 

CONTINU” 

UC  61?  ISICE  r  1,2 
L  ^  2*1  SIDE-1 

R  r  A  C  (2D,*)  JUMP,  (  F  ACT  (  6  ,  J  )  ,  J  -L  ,  L  ♦  I  ) 

IF  (.NOT.  JUMP)  THEN 
SUM  :  Q.C 


Figure  E-I-21. 
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if  he 

1 6  2  :C 
164: 

1  65: 

16  6: 

1  67:C 
1  66 : 
169: 

1  70:6  3C 
171: 

1  72: 
173: 

1  74: 
175: 
176: 
177:S "C 
178: 
17*: 
18C:b 10 
131:C 
1?2: 

18  3: 
134: 

1  8  5 :  C 
1  36  :C 
1  :7:C 
1  r  8  :  C 


7P0 


DO  62L  ItANr  =  1 » 4 

read  »  Radios,  top  effects* 

JAMMING  FACTOR  *  JAMMER  WEIGHT*  tt  JAMMER  TYPES: 

READ  (2%*>  DNSRAD,  TGPJAM*  F  A  C  J  AM  *  WTJAM,  N  J  AM 
TOTJAM  =  0*3 
uO  630  I  -  1  *  N J  A H 

READ  EFFECTIVENESS  ,  tt  OF  JAMMERS  OF  THIS  TYPE: 

READ  f  2  u  *  *  >  EFFJAM  *  DNS JAM 
TOTJAM  -  TOTJAH  ♦  EFFJAM  *  DNS J  Ah 
CONTINUE 

IF  (DNSRAD  »E0 «  C.2)  THEN 
T  -  TOP  JAM 
ELSE 

T  =  MIN  (TOPJAM*  TOTJAM  /  DNSRAC) 

END  IF 

SUM  r  SUM  ♦  T  *  FACJAM  *  U'TJAM 
CONTINUE 

F  A  C  T ( 6  *  L+ 1 )  =  1.0  -  SUM 
E  N  D I  F 
CONTINUE 

FUNCTION  7  MEDICAL 
READ <2 J*#)  JuMP,(FACT(?*J)  » J  -  1 , 2  ) 

IF(JUMP)  GOTO  7  SL 
uMPSM-  .TRUE  . 

READ  FLUE  DIV/APEA  SUPPORTED  STRENGTH*  SURGE  FACTOR* 
UlA/DNBIt 

(PEP  1Guo)*MED  9 N  CAPAbILITY( ADMINS/DAY)tFRACTICN 
EVACUATED 


189: 
19f  : 
191: 
1*2: 

1  9  3:  C 
1  ca  : 
i°S: 

1  C6:C 
1  °  7 :  C 
1  96 : C 

1  c  9 :  C 

2  rc:c 
2~1: 
2E  2: 

Z  G2:C 
2C4:C 

2  ns :  c 

1  C  6  :  C 

2  n7 : 
zre : 

2  E  9 : 

2  10: 

1  UsC 

2  12: 

2  13: 

2  14  :c 
2  15  :C 
2  16  :C 
2  17  :C 
2  16  :C 
2  19  :C 
2  2C : 
221: 

2  22: 

2  2  2  :  C 
2  24: 

2  25  : 

2  76: 

.2  2  7: 

2  25: 

2  29  : 

2  7E : 

2  31:2 
2  32  : 

2  33 : C 

2  34: 

2  35: 

2  36  : 

2  37: 

2  3  S  :  C 
2  39  : 

2  4 c: 
241: 

2  42: 


READ  <  2r  *  *  )  BDIVS*eAREAS*BSFACT*6rwiA,6AuiIA*BDDNBl,8ADN9IfBMbrAP, 
♦bF  E  VAC 

TBGIV$  =  C(( (BOTVS*EDWIA )*(B  DTV$*B0CN6I >  > ♦< (BAREAS*BAWI A ) +(e ARE4$*bA 
♦CNB  I  )  >  >*6 SFACT J / 1C2G. 

COMPUTE  6  LUE  V  VALUE  FOR  FUNCTION  4 — MEDICAL 
TS  S -SD IVS+EARFAS 

FACT(7  *2)-l-(  ((  TEDIVS-6MBCAP)^(PMBCAP*bF£VAC))/TSS) 

1EDDNBI *B ACNBI ,B^B  CAP*BFEVAC fTBDXVS  *TSS 
2 3 C  FORMAT  r  I1F9 • 1 ) 

****  NEED  TO  WORK  GN  FOR  RED  MEDICAL  MlLLIRON  4 
SEPT^***#***** 

75C  RE A0(?  Jf v |  JUMP  f (FACT (7, J)  ,jrlf 4) 

IF (JUMP)  GOTO  3  1C 

READ  DED  DIV/AREA  SUPPORTED  STRENGTH,  SURGE  FACTOR* 
WIA/D^BI, 

(PER  !3C0  > , HED  BN  CAPABILITY (AGHI NS /DAY), FRACTION 
EVACUATED 

READ  ( 2^, *>  RDIVS*RAREAS,RSFACT,R0WIA,RAWIA*RDDNBI*RADN8I*PMBCAP. 

♦ kF  l  V  AC 

TRCIVS-f  *  *  (RDTVS^RCWIA) ♦ ( R  01 V  S*RODNB I )>  ♦  <  (RAREASfcRAUIA ) ♦(RAPEAS^RA 
♦  DNt  I )  )  )*RSFACT)/1C20. 

COMPUTE  RED  T  VALUE  FOR  FUNCTION  4--MEDIC4L 
TSS -RD IVS+R AREA  S 

FACT(7*4)zl-(  f(  TPDIVS-RMBC  AP)  +  ( RMBCAP*kFEVAC  )  )/TSS) 

^E  T  TO  OLD  VALUE 

Xf.  j?  £  j*  jjrpi 

FUNCTION  8  MAINTENANCE 

RlAD  NUMBER  OF  MATERIEL  CATEGORIES  BLUE, RED 
6CC  R£AC<2^**>  JUMP. (FACT (8*J)  f  J  -  1  *  2 ) 

IF(JIMR)  GOTO  BSD 
READ  b  NM  CAT 

READ  FLUE  MAJOR  MA  TERIAL (CAPABILITY  *RECUI RE ME NT ) 

GO  15  I -1 , b NhCA  T 

READ  5MCAP  ,3MREC 

T8M9 ECrTDMK^Q ♦gnpre 

TFMCAc-TBMCAP-*BMCAP 

15  CONTINUE 
TBMCAP;TBMCAP/365. 

FACT (8 ,2)=TBMCAP/TBMREC 

SET  blue  V  VALUE  To  l.C  IF  GREATER  than  l.G 
IF  (FACT ( 6 t 2 J  .6 T.  1 .0)  F A CT  (  8 » 2 ) - 1  .0 

COMPUTE  RED  T  VALUE — MAINTENANCE 
550  REA0(21,*)  JUMP , ( F A CT ( 6 , J )  , J=3 . 4 ) 

IF ( JU"P )  GOTO  9  GD 
RE  AO (2  Jf* )  RNMC AT 
CC  16  Irl,RNMCAT 

READ  ^cq  major  MATERIAL (CAPABILITY, REQUIREMENT ) 

READ  (2.,*)  RMCAP.RMRrc 
TPMREC -TRMR  rC ♦  «  MR  EC 
TRMC APzTRMCAP ♦RMCAP 

16  CONTINUE 


Figure  E-I-21. 
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243 
2  44 

245 

246 
2  47 
2  4g 
249 
2  SC 
251 
2  52 
2  53 
2  54 

255 

256 

257 
2  58 
259 
26G 

m 

26  3 

264 

265 

266 

267 

268 
269 
2  73 

271 

272 
Z^2 
2  74 
2  75 
276 
2  77 
2  78 
Z  79 
280 
281 
2  7  2 

2  63  : 
2  84  : 
2  S  5 : 
286: 
2  67  : 
2  8b: 
2  89: 
29C: 
2  9  1- 
292: 
2  93  : 

2  94  - 

295  : 
2^6: 
297: 
2  98  : 

2  °9 : 

3  r  C : 
3  “1: 
3  Z2 : 
3  C  3  : 
3  74: 
3  r  5 : 
3  36 : 
3  .**7: 
3.78: 
3  99: 
3  I C : 
3  11: 
3  12: 
3  13: 
3  14: 
3  15: 
3  16: 
3  17: 
3  18: 
3  19: 
3  2C : 
321: 
3  22  : 
3  73: 
3  24: 


FACTC8 .4)rTPMCAP/TRMREC 

IF  F£D  T  VALUE  GREATER  THAN  1.0- 
IF  <FACT<8,4| •6T#1*G1  F ACT  ( 6 t 4 ) r 1  .c 


set  TO  l.C 


*****  SET  RED  VALUE  TO  OLD  VALUE.  I  DON1 T  LIKE  THE***** 
*****  THIS  WAS  DONE—  NEEDS  MuPE  WORK  1  *J*J* 

*****  <-  -  - - - 

FACT (8 f4)r .74 

FACTOR  9  SUPPLY  AND  TRANSPORTATION 
S/T  CAPABILITY 

BROKEN  DOWN  INTO  THREE  COMPONENTS 
S TONS  »G  AL LONS ( BULK  POL), ALOC 
„  _  READ  NUM6ER  OF  BLUE  S/T  ASSETS 

9QQ  RcAD<20f*)  JUMP , (Fact (9, J) f jr 1 ,2) 

IFtJUMP)  GOTO  95C 
IF(JMPBM)  GOTO  9  C I 
--Rite  <i5,96i 

96  FORM-aTI*  ***  NEED  BOIVS  —  SKIP*) 

GOTO  9  Sn 

9  C 1  READ  12%*)  BNSTA 

COMPUTE  BLUE  CAPABILITY 

DO  20  -A.BhV-V1'  2  =  GALL0NS’  3  =  Al-CC  - 

READ  £2n,*l  8DST,RAVaIL, BEFFf TCOMP 
IF  ( IFIX (TCOMP) *GT. 1 )  GO  TO  18 
compute  STON  CAPABILITY 
G8CAPGzB0ST*BaVaIL*6EFF 
TB C  A  PG-  T  6  CA  DG +GBCAPG 
GO  TO  2C 

IS  IF  (  IFIX ( TCOMP) .EC* 3 )  GO  TO  19 

GEC,Ppi^IIA^i:®UL*  P0L*  CAP*BIUITY  COMPONENT 
BCAPQP^ECAPBP+GBCAPP 
GO  TO  2C 
19  CONTINUE 

COMPUTE  BLUE  ALOC  CAPABILITY  COMPONENT 
GBC A  P ArBDST*B  AV A IL*BEFF 
TBCAPAzTeCAPA+GBCAPA 
2 C  CONTINUE 

COMPUTE  BLUE  S/T  RECUIREMENT 

cbNVElsiO^LBSSTOEGAUH  T4  IN  ^  LINE  1Qn<BDIVS> 

-  r ,  n  ,,,R£i°.!8?!5R  0F  eLUE  CLAESES  OF  SUPPLY  TO  St  CONSIDEPED 
«LAU  (ZD**)  B  MC  L A  S 

COMPUTE  BLUE  REQUIREMENT 
CO  23  1-1  tSNCLAS 

READ  ( 2  E i *  I  8 CONR  ,8 ALOC , BBASIC 
IF  (  I  .EC  .2  )  5  0  TO  22 

bB  RE  QG - ( (BC0NR*bDIVS*PBAStC)/2u2C.J*( 1-BALOC) 

GERgGA=HBC0NR*eCIVS*BBASfCI/2J0C.)*6AL0C 

TEREcG  —  TBREOG  ♦ 6B R  EC  G 
TRREQA-TBPECA^GBRECA 

GO  TO  23 

2  2  EPEQBPz  IBCONR*BDIVS«BBAS  IC )*.  IS 2 

23  CONTINUE 

COHPUTE  COMPONENT  FACTORS 
COMPUTE  STON  GROUND  FACTOR 
dFSTG=TBCAPG/TBRECG 

rrnn)  COMPUTE  CLASS  III  BULK  POL  FACTOR  (G ALLONS ) 
bFBPOL -PCAPBP/B PECO P 

COMPUTE  ELUE  ALOC  FACTOR 
BF  ALCC-SCAPA/TBPEQA 

35  FORMAT (If  li!i  ,TBCAPG» TBPECG,BCAPBP,5RFC8P  rT8CAPA  t TB°ECA 

IF  (BFSTG.GT . i.O)  B  FSTG-  1 . £ 

IF  (EFBPOL  .GT .1  .C 1  BFBPCL'l.D 
IF  (EF ALOC.GT .1 .0 )  BFALOC^i.C  • 

L  COMPUTE  BLUE  V  VALUE  FOR  FUNCTION  9 —  S/T 

IF  (  .NO T  .  JMPBM )  GOTO  95Q 
FACT(9,;)z( 6FST  G+BFBPCL  +  EF ALOC) /3. 

IF  (  F  A  C  T  (  9 , 2  )  .GT.l.C)  F A C T  ( 9 , 2 > r 1  . c 
C  COMPUTE  RED  CAPABILITY 

C  PEAD  °E  D  DIVISION  STREN  G  TH 

C  READ  dl  D  NUMBER  OF  S  M  ASSETS 

«EA0(2J,*>  JUMP  .  ( FACT ( 9 . J)  .J- 7 , u ) 

IF(JUMP)  GOTO  1 uQ  2  * 

READ  RDIVS 

READ  (2Ft*)  RNSTA 

READ  DED  DENSITY  S/T  ASSETS  ,XEFF£CT  I VNE  SS  I M.  TON/LITERS  > 


:  C 


C  C 
CC 


95. 


Figure  E-I-21. 
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3  2  5 
3  26 
3  2  7 

328 

329 
3  3H 
3  3  X 
3  32 

333 

334 
325 
336 
3  37 
3  3® 
339 
3  4C 
341 
3  42 
3  43 

3  44 
3  45 
3  46 
347 
3  48 
3  49 
3  50 
3  r  1 
3  52 
3  53 
3  r  4 
355 
3  56 
357 
3  58 
3  54 
3  6  0 
361 
3  62 
363 

3  64 

365 

366 

367 

366 
369 
3  7  C 
371 
3  72 
373 

3^4 
3  75 
3  76 
3  77 
3  78 
3  79 
3  or 

3  81 
3  82 
5  .?  3 
3  84 
3  8  5 
3  86 

367 
IPS 
3  89 
3  or 


TCOMP (POINTER  TO  COMPONENT  DEFINED  A T  LTNE  144 
1  =  SIGN,  2  =  GALLONS,  3  =  ALOC  (MTONS)" 

□0  27  I-1,RNSTA 

R5A0  ( 2G , * )  RDSTfPAVAlL,REFF,TCOHP 
IF  t IFIX (TCOMP) ,GT.l)  GO  TO  25 

COMPUTE  STON  CAPABILITY  REQUIREMENT 
CONVERSION  METRIC  TONS  TO  STON  1.102 
GPCAPC  =  ( POST«R AVA IL^REFF  >*1.1C2 
TRCAPGzTRCAPG+GFCAPG 
GO  TO  27 

25  IF  (  IFIX ( TCOMP )  ,EQ. 3 1  GO  TO  26 

COMPU  TE  G  A  LLONS ( BU  LH  POL)  CAPABILITY  COMPONENT 
CONVERSION  LITERS  TO  GALLONS 
GPCAPPz<RDST*RAVAIL*REFF  >*.264 
RCAPBP-PCAPBp+GRCAPP 
GO  TO  27 

26  CONTINUE 

COMPUTE  REG  ALOC  CAPABILITY  COMPONENT 
GRCAPAri SOS  7* R A VAIL*«EFF  >*1,102 
TRCAPA-TRCAPA+GRCAPA 

27  CONTINUE 

COMPUTE  RED  REQUIREMENT 

READ  NUMBER  OF  RED  CLASSES  OF  SUPPLY  TO  BE  CONSIDERED 
READ  (2°,*»  RNCLAS 
DO  29  1-1, RNCLAS 

READ  ( 25  ,*  >  RCCNR  ,RALOC , RB  ASIC 
IF  (  I. EL  .2)  60  TO  28 

bRREUG-(  CPCCNR*RDIVS*RBASIC)/2CCC. >*(  l -R ALOC  > 

GPREQ  A-( CRCONR*RDlVS*R3ASlC)/2uCO.)*R ALOC 
TPREwG-TRRtOG+GRREQG 
TRREOA-TRPECm^GPREOA 
GO  TO  29 

28  RREC&P: (RCQNR*RDIVS*RB AS IC>*. 152 

29  CONTINUE 

COHPU  TE  COMPONENT  factors 
COMPUTE  STON  GROUND  FACTOR 
RFSTG-TRCAPG/TRRECG 

COMPUTE  CLASS  III  BULK  POL  F AC  TOR  (G ALL0NS > 
RFBPOL-PCAPBP/RREQBP 

COMPUTE  RED  ALOC  FACTOR 
RFALOC  _  TRCAPA/TR REQ A 

RFALOC  SET  TO  1.2--N0  RED  ALOC  SO  DIVIDE  FAULT  IF  LEFT  AT 
RF  ALOC -1 .C 

IF  (RFSTG.GT.1.3)  RFSTGrl.d 
IF  f RFbPOL.GT .1 .C >  RF3P0L-1.C 
IF  (RF ALOC ,GT .1 .C )  PFAL0C=1.C 
FACT  (9  t  4  )=(RFSTG+RF3P0L*RF  ALOO/3. 

LOCO  CONTINUE 

CALL  I  NO  X  C  S  (FACT) 

-RITE  (6,31) 

31  FORMAT ( 

2  ^FUNCTION  C/M  PCSTMEAFOPCF*/M  R  *CA$’,6X, 

«3  - ' 

l"l*lE9)6,3D*  CI *IENV»  ACT  (I, J> , jrl f4  >  f  NFUN ( I )  ,NAMPOS  ,  FORCE  , 


3C  FORmIt  ( 12 , 13  ,4 F£  ,2  ,5X , a  1 1  f 2X  ,  A6, 2X  ,  A 5> 

, -RITE  (15,35)  (  I,IENV,(FACT(I,J)tJ-lf4) , 


1-1,9 ) 

*(RITE(  15,51) 

51  FORMAT  (  ,5E0F’  ) 
'LCD  CONTINUE 
STOP 
END 


NFUMI)  , NAM  POS,  FORCE, 


Figure  E- 1-21 . 
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3 

4 

5 

6 
7 
6 
9 

10 
1  1 
12 

13 

14 

15 

16 
17 
IS 
19 

2: 
-5  1 
w  k 

22 

23 

24 


5  1 


L  u 

1  "C 


2  6 


c  9 : 

7L: 

71: 

72: 

33: 

74: 

35: 

3  5: 
37: 

7  3 : 
39: 
4C  : 

4  1 :  C 
42: 
42: 


44 

45 

46 

47 

48 

49 
5  r 
^  r 


4  2J 
3  03 
9  99 


SUBROUTINE  INPXCS  (FACT) 


REAL  F  ACT( 9 ,4 ) 

REAL  lND£X(9,4)f  REF(9,4) 

READ  REFERENCE  FACTORS 

“MS.IMsliiSiSr1  "'EFII-J'’ 

’•RITE  (6,61) 

FORMAT  COCS/oss  REFERENCE  FACTORS:’) 

JRITE  (6,62)  MREF(I,J),  J=l,4),  1=1,9) 

FORMAT  (  5  X  ,  4FS.2)  , 

1-FILL  INDEX  MATRIX 
DO  ICC  J  =  1,4 
DO  2  CC  I  =  ! , 9 

INDEX!!, J)  =  1,0 

CONTINUE 
CONTINUE 
SET  UP  INDEXES 
INDEX (1,1)  =  R£F (  1  ,  1 ) 

INDEX (  1,2 )  =  REF)  1,2) 

INDEX)  1,3)  =  REF)  1, 1) 

INDEX (  1 ,4)  =  PE F )  1,21 

1NCEX ) 2,2 )  =  RE  F ( 2 , 2 ) 

INDEX (2, 4)  =  REF ) 2,2) 

INDEX) 3,2)  =  REF) 3,2) 

INDEX)  3,-4  )  ;  REF  (  3,2) 

INOEX (6,2)  =  rE  F ( 6 , 2 ) 

INDEX lo,4)  =  PE  F 16,2) 

INDEX)  7,2)  =  rE  F (7,2) 

INDEX ( 7,4  )  =  REF  t  7, 2) 

INDEX ( o  ,  2  )  =  R£F(9,2) 

I N  D  E  X  )  3  ,  4  )  =  P  E  F  )  ?  ,  i*  I 
INDEX) 9,2)  =  DE  F (9,2) 

INDEX)9,4)  =  R£F)R,2) 

ADJUST  FACTORS  BY  INDrXES 
DO  3CC  J  =  1,4 
CO  4.3C  I  =  1,9 

FACTJI.J)  =  FACTtl.J)  /  I NDE  X ( I  ,  J ) 

CONTINUR*  =  ^  ,FACT,I'J,»  «  TOP  IT  AT  2 

CONTINUE 
CONTINUE 
REWIND  18 
RETURN 
END 


Figure  E-I-22.  Listing  of  the  External  Subroutine 
to  the  CS/CSS  Main  Preprocessor 
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ANNEX  II  TO  APPENDIX  E 

THE  AFP  COMBAT  SUPPORT/COMBAT  SERVICE  SUPPORT  (CS/CSS)  MODULE  PROPER 


Section  I.  OVERVIEW 

E-II-1.  To  a  large  extent,  the  hard  work  of  CS/CSS  analysis  must  precede 
use  of  the  CS/CSS  Module  proper.  The  development  of  Blue  and  Red  measures 
and  countermeasures  by  CS/CSS  function  (described  in  Annex  E-l)  is 
considered  among  preprocessing  to  the  CS/CSS  Module  proper.  The  CS/CSS 
Module  itself  is  designed  to  accept  previously  derived  factors  plus  a 
battery  of  "switches"  and  then  quite  simply  turn  the  appropriate  switches 
on  and  off  in  the  computation  of  CS/CSS  moduli.  In  this  view,  the  CS/CSS 
Module  does  little  more  than  roll  up  CS/CSS  functions  subject  to  nested 
screening  for  applicability  to  each  Blue  and  Red  weapon  type  pairing  and 
output  the  results  in  a  formatted  file  for  later  input  to  the  AFP 
CBT/CS/CSS  Merge  Module. 

E-II-2.  Toward  accomplishment  of  calculation  and  output  of  CS/CSS  moduli, 
the  AFP  CS/CSS  Module  is  designed  to: 

a.  Accept  input  files  specifying  the  weapon  categories  to  which  Blue 
and  Red  weapon  types  belong. 

b.  Accept  an  input  file  specifying  whether  Blue  and  Red  weapon  types 
versus  types  are  to  be  affected  by  CS/CSS  factors  in  general. 

c.  Accept  an  input  file  specifying  for  each  Blue  and  Red  weapon  type 
and  each  CS/CSS  function  whether  the  corresponding  measures  and 
countermeasures  apply. 

d.  Accept  an  input  file  specifying  for  each  CS/CSS  function  and  each 
combat  environment  whether  the  Blue  and  Red  measures  and  countermeasures 
apply. 


e.  Accept  an  input  file  specifying  the  relative  weight  ascribed  to  each 
CS/CSS  function  in  each  combat  environment. 

f.  Accept  an  input  file  specifying  the  CS/CSS  factors  by  function  for 
both  Blue  and  Red  measures  and  countermeasures . 

g.  Accept  an  input  file  specifying  for  each  CS/CSS  function  and  each 
combination  of  a  Blue  and  Red  weapon  category  with  a  Red  weapon  category 
whether  the  Blue  and  Red  measures  and  countermeasures  apply. 

h.  Accept  a  record  specifying  several  case  identifiers. 

i.  Apply  the  above  input  Blue  weapon  type  by  Red  weapon  type  in  the 
calculation  of  Blue  and  Red  CS/CSS  moduli. 
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j.  Generate  a  file  containing  Blue  and  Red  CS/CSS  moduli  for  each  Blue 
and  Red  weapon  type  pairing. 

E-II-3.  The  CS/CSS  Module  may  be  viewed  as  applying  a  succession  of 
screens  to  determine  just  which  CS/CSS  measures  and  countermeasures  apply. 
All  CS/CSS  factors,  prior  to  screening,  are  assumed  to  have  default  values 
1.0  in  relation  to  each  Blue/Red  weapon  type  pairing.  If  all  screening 
with  respect  to  weapon  types,  weapon  categories,  side,  functions,  measures 
and  countermeasures ,  and  combat  environment  is  passed  for  a  specific 
combination,  then  a  value  from  the  nondefault  table  of  CS/CSS  factors  is 
retrieved  to  replace  the  default  1.0  in  the  computation.  There  are  at 
least  two  aspects  of  this  process  that  strike  many  newcomers  as  odd. 

First,  the  "different"  screens  are  often  partially  redundant.  This 
redundancy  sometimes  seems  to  overtest  a  combination,  and,  indeed,  it  may. 
No  harm  is  done;  the  extra  screening  just  takes  a  little  longer.  Second,  a 
retrieved  "nondefault"  CS/CSS  factor  may  be  1.0,  the  same  as  the  default 
value.  Preprocessing  may,  indeed,  yield  measure  and  countermeasure  factors 
of  1.0  for  some  functions.  Replacing  an  assumed  1.0  by  a  computed  1.0  is, 
of  course,  unneccessary  and  could  have  been  avoided  at  the  expense  of 
another  test.  No  harm  is  done  either  way. 


E-II-4.  The  relation  of  the  AFP  CS/CSS  Module  itself  to  the  AFP  System  in 
general  is  shown  in  Figure  E-II-1. 
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Figure  E-II-1.  Relation  of  the  AFP  Combat  Support/Combat  Service 
Support  (CS/CSS)  Module  to  the  AFP  System  in  General 
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E-II-5. 

The  following 

Section  II.  INPUT 

paragraphs  describe  the  input  to 

the  AFP  C: 

Module. 

a. 

Start  data  record. 

Columns 

Variables 

Data  description 

Format 

1 

_____ 

... 

IX 

4-5 

ITHTR 

Theater  code,  e.g.,  E=Europe 

A3 

6-10 

ITPD 

Time  period 

14 

11-13 

IV  IS 

Visibi 1 ity 

13 

17-19 

I  DAY 

l=clear 

2=degraded 

2=defense  light 

3=delay 

4=attack 

Day  or  night 

13 

l=day 
2=ni ght 


b.  Weapon  type  to  weapon 
array  LBCAT()  is  provided  in 

category  link.  Blue  side.  An  example 
Figure  E-II-2. 

to  fil 

Columns 

Variables 

Data  description 

Format 

(first  record) 

1-3 

— 

— 

3X 

4-6 

LBCAT(l) 

Links  weapon  #1  to  its  category 

13 

7-9 

LBCAT(2) 

Links  weapon  #2  to  its  category 

13 

10-12 

LBCAT(3) 

Links  weapon  #3  to  its  category 

13 

31-33 

LBCAT(IO) 

Links  weapon  #10  to  its  category 

13 

(Nth  record) 

1-3 

— 

— 

3X 

4-6 

LBCAT(N-l)* 

10+1) 

Links  weapon  #  (N-l)*10+l  to  its 
category 

13 

31-33 

LBCAT(N*10)  Links  weapon  #N*10  to  its  category 

(to  a  6th  record  for  a  total  of  60  Blue  weapon  types) 

13 
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Cl  A  F  M 

DATA 

,  u  ilSPU  1 

*  hi  S  L74  T  9  0 

3/Ct Vfe4 

12  : 

1  4 

:46 
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* 

1  1 

1 
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n 

c. . 

2 

Z  ?  2 

• 

3  3 

3 

3 

T 

4 

4 

4  4  5 

• 

5  5 

r; 

C 

6 

A 

6  6  6 

*4 

• 

7  7 

7 

7 

7 

8 

8 

BPS 

5 

• 

9  9 

9 

9 

1? 

12 

12 

12  12  12 

t-. 

.  I 

C  1C 

1C 

10 

in 

11 

1 1 

11  11  11 

LND  D 

ATA.  ERRORS: 

NONE 

• 

time 

z 

C  •  5 

□  5 

SEC.  I M A 

C  0  UN  T  :  f 


Figure  E-II-2. 


Listing  of  Sample  Data  Assigning  Blue  Weapon  Types  (1-60) 
to  Weapon  Categories  (1-12) 


c.  Weapon  type  to  weapon  category  link.  Red  side.  An  example  to  fill 
array  LRCAT()  is  provided  in  Figure  E-II-3. 

Columns  Variables  Data  description  Format 

(records  are  similar  to  those  for  LBCAT  above) 

LRCAT(l) 

LRCAT(60) 


A 


31  SRCAT. 


C  A  T  A  4  R 1 

A  * 
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i. 
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( 1 1 
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3  3 
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4 
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Z  • 

c: 

5 

5  c 

6 

6 

6 

7 

7 

7 

7 

7  7 

S 

0 

5 

8 

fa 

■_>  , 
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9 

9 

9  9 

12 

12 

12 

12 

12 

10 

1C 

1C 

1C  1C 

11 

11 

1 1 

1  1 

11 

E  VD  A  TA 

.  EE POKE:  NONE 

» 

T  JMC  : 

C  * 

506 

SEC 

• 

I  M  A  6E 

C  0  UN  T  :  k 


Figure  E-II-3. 


Listing  of  Sample  Data  Assigning  Red  Weapon  Types 
(1-60)  to  Weapon  Categories  (1-12) 


d.  Weapon  type  screen.  An  example  to  fill  arrays  BW()  and  RW()  is 
shown  in  Figure  E-II-4.  A  value  of  "Y"  turns  on  a  weapon;  a  value  of  "N" 
turns  off  a  weapon  type.  "Y"  subjects  a  weapon  type  to  subsequent  screens 
an  "N"  bypasses  further  screens  for  that  weapon  type.  Furthermore,  an  "N" 
suppresses  the  output  of  the  corresponding  modulus.  The  CBT/CS/CSS  Module 
regards  "missing"  moduli  to  possess  the  default  value  "1.0". 
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DAT 


TA 

,L  31  AD  ATI. 

a 

9R1  SL74T9 

03/06/84  12 

1 

YYYY YYYYYY 

2 

YYYY YYYYYY 

3 

YYYY YYYYYY 

u 

YYYY YYYYYY 

YYYY YYYYYY 

i: 

YY YYYYYY  YY 

t 

YYYY YYYYYY 

b 

YYYY YYYYYY 

Q 

YYYY  YYYYYY 

r. 

YYYYYY  YYYY 

n 

YYYY YYYYYY 

12 

YY  YY  Y  Y  YY  vy 

:  1 2  : 45  (  1J 


E'D  DATA.  ERRORS:  NONE.  T  THE  :  G.5GS  SEC.  IMAGE  COUNT:  I, 


Figure  E-II-4.  Listing  of  Sample  Data  Specifying  Whether  (Y)  or  Not  (N) 
CS/CSS  Logic  is  Applicable  to  Blue  (1-60)  and  Red  (1-60)  Weapon  Types 


Columns 

Variables 

Data  description 

Format 

(first  record) 

1-5 

5X 

6 

BW(1) 

Switch  for  Blue  type  #1 

A1 

7 

BW(2) 

Switch  for  Blue  type  #2 

A2 

15 

(five 

BW(10) 

similar  records 

for  Blue  types  #11  through 

#60) 

(seventh  record) 

1-5 

— 

— 

5X 

6 

RW(1) 

Switch  for  Red  type  #1 

A1 

15  RW(10) 

(five  similar  records  for  Red  types  #11  through  #60) 


e.  Countermeasure/measure  by  side  by  CS/CSS  function  by  weapon  type 
screen.  Figure  E-II-5  displays  sample  records  for  filling  the  arrays 
UFUN(),  VFUN(),  SFUN(),  and  TFUN().  A  value  of  "Y"  subjects  the 
combination  to  additional  screening.  A  value  of  "N"  bypasses  further 
screening,  leaving  the  corresponding  countermeasure  or  measure  set  to  the 
default  value  of  "1.0".  A  complete  file  contains  60  records  if  the  AFP 
system  is  configured  for  60  weapon  types. 
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4 
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5 

• 

YYYY 

NYNY 
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NYNY 

NYNY 
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NYNY 

NYNY 

NYNY 

15 

• 

YYYY 

NYNY 

YYYY 

NYNY 

NNNN 

YYYY 

NYNY 

NYNY 

NYNY 

16 

• 

YYYY 

NYNY 

YYYY 

NYNY 

NNNN 

YYYY 

NYNY 

NYNY 

NYNY 

17 

• 

YYYY 

NYNY 

YYYY 

NYNY 

NNNN 

YYYY 

NYNY 

NYNY 

NYNY 

1? 

• 

YYYY 

NYNY 

YYYY 

NYNY 

NNNN 

YYYY 

NYNY 

NYNY 

NYNY 

19 

• 

YYYY 

NYNY 

YYYY 

NYNY 

NNNN 

YYYY 

NYNY 

NYNY 

NYNY 

20 

• 

YYYY 

NYNY 

YYYY 

NYNY 

NNNN 

YYYY 

NYNY 

NYNY 

NYNY 
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YYYY 

NYNY 

YYYY 

NYNY 
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NNNN 

NYNY 

NNNN 

NNNN 

YYYY 

NY  NY 

NYNY 

NYNY 

41 

• 

YNYN 

NNNN 

NYNY 

NNNN 

NNNN 

YYYY 

NYNY 

NYNY 

NYNY 

42 

• 

YNYN 

NNNN 

NYNY 

NNNN 

NNNN 

YYYY 

NYNY 

NYNY 

NYNY 

43 

• 

YNYN 

NNNN 

NYNY 

NNNN 

NNNN 

YYYY 

NYNY 

NYNY 

NYNY 

44 

• 

YNYN 

NNNN 

NYNY 

NNNN 

NNNN 

YYYY 

NYNY 

NYNY 

NYNY 

4  5 

• 

YNYN 

NNNN 

NYNY 

NNNN 

NNNN 

YYYY 

NYNY 

NYNY 

NYNY 

46 

• 

YYYY 

NYNY 

YYYY 

NYNY 

NNNN 

YYYY 

NYNY 

NYNY 

NYNY 

47 

• 

NNNN 

NNNN 

NNNN 

NNNN 

NNNN 

YYYY 

NYNY 

NYNY 

NYNY 

4  8 

• 

NNNN 

NNNN 

NNNN 

NNNN 

NNNN 

YYYY 

NYNY 

NYNY 

NYNY 

4  9 

• 

YYYY 

NYNY 

YYYY 

NYNY 

NNNN 

YYYY 

NYNY 

NYNY 

NYNY 

50 

• 

YYYY 

NYNY 

YYYY 

NYNY 

NNNN 

YYYY 

NYNY 

NYNY 

NYNY 

5  1 

• 

YYYY 

NYNY 

YYYY 

NYNY 

NNNN 

YYYY 

NY  NY 

NYNY 

NYNY 

c;  ? 

* 

YYYY 

NYNY 

YYYY 

NYNY 

NNNN 

YYYY 

NYNY 

NYNY 

NYNY 

53 

• 

YYYY 

NYNY 

YYYY 

NYNY 

NNNN 

YYYY 

NYNY 

NYNY 

NYNY 

54 

* 

YYYY 

NYNY 

YYYY 

NYNY 

NNNN 

YYYY 

NYNY 

NYNY 

NYNY 

55 

• 

YYYY 

NYNY 

YYYY 

NYNY 

mm 

YYYY 

NYNY 

NYNY 

NYNY 

So 

• 

YYYY 

NYNY 

YYYY 

NYNY 

NNNN 

YYYY 

NYNY 

NYNY 

NYNY 

57 

m 

YYYY 

NYNY 

YYYY 

NYNY 

NNNN 

YYYY 

NYNY 

NYNY 

NYNY 

5  G 

a 

YYYY 

NYNY 

YYYY 

NYNY 

NNNN 

YYYY 

NYNY 

NYNY 

NYNY 

5  9 

9 

YYYY 

NYNY 

YYYY 

NYNY 

NNNN 

YYYY 

NYNY 

NYNY 

NYNY 

6C 
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YYYY 

NYNY 

YYYY 

NYNY 

NNNN 

YYYY 

NYNY 

NYNY 

NYNY 

END  D 

A  TA 

.  ERRORS:  NONE*  TIME: 

0*733 

SEC* 

II4AGE 

COUNT:  60 

Figure  E-II-5.  Listing  of  Sample  Data  Specifying  by  Countermeasure/Measure 
by  Side  by  CS/CSS  Function  by  Blue  and  Red  Weapon  Types  Whether  (Y)  or  Not 
(N)  Subsequent  CS/CSS  Logic  Is  Applicable  to  the  Combination  (an  "N"  leaves 
the  corresponding  factor  set  to  the  default  value  =  1.0) 


E-II-6 


CAA-D-84-14 


Columns 

Variables 

Data  description 

Format 

(Ith  record) 

1-5 

— 

— 

5X 

6 

UFUN (1,1) 

Blue  countermeasure,  first  CS/CSS 
function,  Ith  Blue  weapon 

A1 

7 

VFUN(1,I) 

Blue  measure,  first  CS/CSS 
function,  Ith  Blue  weapon 

Al 

8 

SFUN( 1, 1 ) 

Red  countermeasure,  first  CS/CSS 
function,  Ith  Red  weapon 

A1 

9 

TFUN(l.I) 

Red  measure,  first  CS/CSS 
function,  Ith  Red  weapon 

Al 

10 

— 

— 

IX 

46 

UFUN (9, I ) 

Blue  countermeasure,  ninth  CS/CSS 
function,  Ith  Blue  weapon 

Al 

47 

VFUN(9,I) 

Blue  measure,  ninth  CS/CSS 
function,  Ith  Blue  weapon 

Al 

48 

SFUN(9, I ) 

Red  countermeasure,  ninth  CS/CSS 
function,  Ith  Red  weapon 

Al 

49 

TFUN(9, I ) 

Red  measure,  ninth  CS/CSS 
function,  Ith  Red  weapon 

Al 

f.  Countermeasure/measure  by  side  by  CS/CSS  function  by  combat 
environment  screen.  Figure  E- 1 1-6  displays  sample  records  for  filling  the 
arrays  EUFUN(),  EVFUN(),  ESFUN(),  and  ETFUN( ) .  A  value  of  "Y"  subjects  the 
combination  to  additional  screening  for  the  current  weapon  pairing.  A 
value  of  "N"  bypasses  further  screening,  leaving  the  corresponding 
countermeasure  or  measure  set  to  the  default  value  of  "1.0".  A  complete 
file  contains  16  records,  one  for  each  combat  environment. 


E-II-7 


CAA-D-84-14 


fcPA  TA ,L  31  AD  AT  3 


DATA  9  R 1 

SL79T9  C3/C6/64  12 

:  13:2 

7  f  I 

J 

1  . 

YYNY 

NYNY 

NY  YN 

NYNN 

MN  NN 

Y  YY  Y 

NYNY 

NY  NY 

MY  NY 

. 

YYNY 

NYNY 

NY  YN 

N  YNN 

NNNN 

Y  YY  Y 

NYM  Y 

NY  NY 

NY  NY 

*7 

• 

YY  NY 

NYNY 

NY  YN 

NNNN 

N  N  NN 

Y  YY  Y 

t-  Y  N  Y 

NYN  Y 

\  YN  Y 

U  * 

NY  Y  Y 

NYN  Y 

YNNY 

NNNY 

NNNN 

Y  YY  Y 

f,  Y  M  Y 

NY  NY 

NYNY 

r 

YY  N  Y 

NYN  Y 

N  Y  YN 

NYNN 

NNNN 

Y  YY  Y 

NYNY 

NY  NY 

N  YN  Y 

O  * 

YYMY 

NYN  Y 

NY  YN 

NYNN 

NNNN 

Y  YY  Y 

NY  N  Y 

NY  NY 

N  Y  N  Y 

7  * 

YY  NY 

U  YN  Y 

NY  YN 

NNNN 

NNNN 

Y  YY  Y 

NYM  Y 

NY  NY 

NYN  Y 

j 

NY  Y  Y 

NYN  Y 

YNNY 

NNNY 

NNNN 

Y  YY  Y 

NYN  Y 

NY  NY 

NYNY 

?  • 

YYMY 

NYN  Y 

NY  YN 

NYNN 

NN  NfN 

Y  YY  Y 

N  Y  M  Y 

N  Y  N  Y 

NYNY 

I r  . 

YY  NY 

NYN  Y 

NY  YN 

NYNN 

NNNN 

Y  YY  Y 

NYN  Y 

N  Y  N  Y 

NYN  Y 

li . 

YY  NY 

NYN  Y 

NY  YN 

NNNN 

NNNN 

Y  YY  Y 

NYN  Y 

NY  MY 

NYNY 

i:  . 

NY  YY 

NYN  Y 

YNNY 

NNNY 

NNNN 

Y  YY  Y 

N  Y  N  Y 

NY  NY 

NYNY 

13. 

Y  Y  NY 

NYN  Y 

NY  YN 

NYNN 

NNNN 

Y  YY  Y 

N  Y  N  Y 

NY  NY 

NYNY 

1A  . 

YYMY 

NYN  Y 

NY  YN 

NYNN 

NNNN 

Y  YY  Y 

NYM  Y 

NYN  Y 

NYNY 

If:  . 

YYNY 

NYN  Y 

NY  YN 

N  NNN 

N  NNN 

YYY  Y 

NYNY 

NYN  Y 

NYNY 

1  e  • 

N  YY  Y 

NYNY 

YNNY 

NNNY 

NNNN 

Y  YY  Y 

NYM  Y 

NY  NY 

NYNY 

E  K-D  DA  TA 

•  ERRORS:  NONE 

.  TIME:  i 

.510 

SEC. 

I  Y  AGE 

C  0  UN T  :  It 

Figure  E-II-6.  Listing  of  Sample  Data  Specifying  by  Countermeasure/Measure 
by  Side  by  CS/CSS  Function  by  Combat  Environment  Whether  (Y)  or  Not  (N) 
Subsequent  CS/CSS  Logic  Is  Applicable  to  the  Combination  (an  "N"  leaves 
the  corresponding  factor  set  to  the  default  value  =  1.0) 


Columns 

Variables 

Data  description 

Format 

(Ith  record) 

1-5 

— 

— 

5X 

6 

EUFUN(1,I) 

Blue  countermeasure,  first  CS/CSS 
function,  Ith  combat  environment 

Al 

7 

EVFUN(l.I) 

Blue  measure,  first  CS/CSS 
function,  Ith  combat  environment 

A1 

8 

ESFUN(lsI) 

Red  countermeasure,  first  CS/CSS 
function,  Ith  combat  environment 

Al 

9 

ETFUN(1,I) 

Red  measure,  first  CS/CSS 
function,  Ith  combat  environment 

Al 

10 

• 

— 

— 

IX 

46 

EUFUN(9, I ) 

Blue  countermeasure,  ninth  CS/CSS 
function,  Ith  combat  environment 

Al 

47 

EVFUN(9, 1 ) 

Blue  measure,  ninth  CS/CSS 
function,  Ith  combat  environment 

Al 

48 

ESFUN (9,1 ) 

Red  countermeasure,  ninth  CS/CSS 
function,  Ith  combat  environment 

Al 

49 

E-II-8 

ETFUN(9, I ) 

.  Red  measure,  ninth  CS/CSS 

function,  Ith  combat  environment 

Al 

CAA-D-84-14 


g.  Countermeasure/measure  by  side  by  CS/CSS  function  by  Red  weapon 
category  by  Blue  weapon  category  screen.  Figure  E-II-7  displays  sample 
records  for  filling  the  arrays  UCAT(),  VCAT(),  SCAT(),  and  TCAT().  If 
screening  by  all  preceding  switches  has  been  passed,  a  value  of  "Y"  causes 
retrieval  of  the  nondefault  value  for  the  corresponding  countermeasure  or 
measure.  A  value  of  "N"  causes  the  corresponding  countermeasure  or  measure 
to  be  set  to  the  default  value  "1.0".  A  complete  file  contains  108  records 
(12  weapon  categories  x  9  CS/CSS  functions). 


Columns  Variables 


Data  description 


Format 


((K-1)*9+Ith  record) 


1-4 

5 

6 

7 

8 

9 


UCAT( I,1,K) 
VCAT( I , 1,K ) 
SCAT( I,1,K) 
TCAT(I,1,K) 


Blue  countermeasure,  Ith  CS/CSS 
function,  first  Red  category, 
Kth  Blue  category 
Blue  measure,  Ith  CS/CSS 
function,  first  Red  category, 
Kth  Blue  category 
Red  countermeasure,  Ith  CS/CSS 
function,  first  Red  category, 
Kth  Blue  category 
Red  measure,  Ith  CS/CSS 
function,  first  Red  category, 
Kth  Blue  category 


60 

61 

62 

63 


UCAT( I,12,K) 
VCAT ( I , 12,K ) 
SCAT(I,12,K) 
TCAT( I , 12,K ) 


Blue  countermeasure,  Ith  CS/CSS 
function,  12th  Red  category, 
Kth  Blue  category 
Blue  measure,  Ith  CS/CSS 
function,  12th  Red  category, 
Kth  Blue  category 
Red  Countermeasure,  Ith  CS/CSS 
function,  12th  Red  category, 
Kth  Blue  category 
Red  measure,  Ith  CS/CSS 
function,  12th  Red  category, 
Kth  Blue  category 


4X 

A1 

A1 

A1 

A1 

IX 

A1 

A1 

A1 

A1 


E-II-9 


CAA-D-84-14 


Q» 

D 


PA TA . L  31  ACATS. 

ATA  9R1  SL74T9  03/06/84  12:14:12  <11 


1 . 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

N  Y  YN 

NYYN 

YYYY 

YYYY 

YYYY 

^  9 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNN 

NYNN 

NYNY 

NYNY 

H  YN Y 

3  • 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YNNY 

YNNY 

YYYY 

YYYY 

YYYY 

4  . 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNN 

NYNN 

NYNY 

NYNY 

N  YNY 

Zt  • 

NNNN 

NNNN 

NNNN 

NNNN 

NNNN 

NNNN 

NNNN 

NNNN 

NNNN 

NNNN 

NNNN 

NNNN 

6  . 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

7. 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

9  I 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

1C* 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

NY  YN 

NYYN 

YYYY 

YY  YY 

YYYY 

11  * 

NYNY 

NYNY 

NYNY 

NYNY 

nyny 

NYNY 

NYNY 

NYNN 

NYNN 

NYNY 

NYNY 

NYNY 

12. 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YNNY- 

YNNY 

YYYY 

YY  YY 

Y  YYY 

13. 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNN 

NYNN 

NYNY 

NYNY 

NYNY 

14  . 

NNNN 

NNNN 

NNNN 

NNNN 

NNNN 

NNNN 

NNNN 

NNNN 

NNNN 

NNNN 

NN  NN 

NNNN 

19  . 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

lb. 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNy 

NYNY 

17. 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NY  NY 

NYNY 

13. 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NY  NY 

NYNY 

19  . 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

NY  YN 

NYYN 

YYYY 

YYYY 

YYYY 

20  . 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNN 

NYNN 

NYNY 

NYNY 

NYNY 

21  . 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YNNY 

YNNY 

YYYY 

YY  YY 

YYYY 

22  • 

NYNY 

N  YN  Y 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNN 

NYNN 

NYNY 

NYNY 

NYNY 

2  3. 

NNNN 

NNNN 

NNNN 

NNNN 

NNNN 

NNNN 

NNNN 

NNNN 

NNNN 

NNNN 

NNNN 

NNNN 

24. 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

2  r  . 

<YNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

2b  . 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NY  w y 

NYNY 

27. 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

2.  . 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

NYYN 

NYYN 

YYYY 

YYYY 

YYYY 

29. 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNN 

NYNN 

NYNY 

NYNY 

NYNY 

7  .  . 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YNNY 

YNNY 

YYYY 

YY  YY 

Y  YYY 

31. 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNN 

NYNN 

NYNY 

NY  NY 

NYNY 

32. 

NNNN 

NNNN 

NNNN 

NNNN 

NNNN 

NNNN 

NNNN 

NN  NN 

NNNN 

NNNN 

NNNN 

NNNN 

33  . 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YY  YY 

YYYY 

34  . 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NY  NY 

NYNY 

35  . 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

36. 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

37. 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

YYYY 

NYYN 

NYYN 

YYYY 

YYYY 

YYYY 

38  . 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNY 

NYNN 

NYNN 

NYNY 

NYNY 

NYNY 

Figure  E-II-7.  Listing  of  Sample  Data  Specifying  by  Countermeasure/Measure 
by  Side  by  CS/CSS  Function  by  Red  Weapon  Category  (1-12)  by  Whether  (Y)  or 
Not  (N)  the  Corresponding  CS/CSS  Factor  Is  Applicable  to  the  Combination 
(an  "N"  leaves  the  factor  set  to  the  default  value  =  1.0) 
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E-II-10 
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4G* 

41  . 

42.  - 

43. 

44  . 

45  . 

46  . 

47. 

43  . 

49  . 

5G  • 

51  . 

52. 

53. 

54  . 

55  . 

56  . 

57. 

58  . 

59  . 

60  • 

61  . 

62  . 

63. 

64  . 
br  . 

66  . 

67  . 

66. 

69  . 

70. 

71  . 

72  . 

73. 

74. 

75  . 

7b  . 

77  . 

73. 

79  . 

8C  . 

31  . 

82  . 

33. 

34  . 

85  . 

86  • 

87  . 

88  . 

a  o . 

9  r  . 

91  . 

92  . 

93. 

94  . 

95  . 

96  - 

97  . 

98  . 

99  . 

1  CO  . 

1  Q 1  . 

1  ~2  . 

1  23. 

1  Q  4  • 

105. 

1  C  6  . 

1  27. 

’Pa. 

end'data.  err cr s 


YYYY  YYYY  YYYY 
NYNY  NYNY  NYNY 
NNNN  NNNN  NNNN 
YYYY  YYYY  YYYY 
NYNY  NYNY  NY  NY 
NYNY  NYNY  NYNY 
NYNY  NYNY  NYNY 
YYYY  YYYY  YYYY 
NYNY  NYNY  NYNY 
YYYY  YYYY  YYYY 
NYNY  NYNY  NYNY 
NNNN  NNNN  NNNN 
YYYY  YYYY  YYYY 
NYNY  NYNY  NYNY 
NYNY  NYNY  NYNY 
NYNY  NYNY  NYNY 
YYYY  YYYY  YYYY 
NYNY  NYNY  NYNY 
YYYY  YYYY  YYYY 
NYNY  NYNY  NYNY 
NNNN  NNNN  NNNN 
YYYY  YYYY  YYYY 
NYNY  NYNY  NYNY 
NYNY  NYNY  NYNY 
NYNY  NYNY  NYNY 
YNNY  YNNY  YNNY 
NNNY  NNNY  NNNY 
NYYN  NYYN  NYYN 
NNNY  NNNY  NNNY 
NNNN  NNNN  NNNN 
YYYY  YYYY  YYYY 
NYNY  NYNY  NYNY 
NYNY  NYNY  NYNY 
NYNY  NYNY  NYNY 
YNNY  YNNY  YNNY 
NNNY  NNNY  NNNY 
NYYN  NYYN  NYYN 
NNNY  NNNY  NNNY 
NNNN  NNNN  NNNN 
YYYY  YYYY  YYYY 
NYNY  NYNY  NYNY 
NYNY  NYNY  NYNY 
NYNY  NYNY  NYNY 
YYYY  YYYY  YYYY 
NYNY  NYNY  NYNY 
YYYY  YYYY  YYYY 
NYNY  NYNY  NYNY 
NNNN  NNNN  NNNN 
YYYY  YYYY  YYYY 
NYNY  NYNY  NYNY 
NYNY  NYNY  NYNY 
NYNY  NYNY  NYNY 
YYYY  YYYY  YYYY 
NYNY  NYNY  NYNY 
YYYY  YYYY  YYYY 
NYNY  NYNY  NYNY 
NNNN  NNNN  NNNN 
YYYY  YYYY  YYYY 
NYNY  NYNY  NYNY 
NYNY  NYNY  NYNY 
NYNY  NYNY  NYNY 
YYYY  YYYY  YYYY 
NYNY  NYNY  NYNY 
YYYY  YYYY  YYYY 
NYNY  NYNY  NYNY 
NNNN  NNNN  NNNN 
YYYY  YYYY  YYYY 
NYNY  NYNY  NYNY 
NYNY  NYNY  NYNY 
NYNY  NYNY  NYNY 
NONE.  TIME: 


YYYY  YYYY  YYYY 
NYNY  NYNY  NYNY 
NNNN  NNNN  NNNN 
YYYY  YYYY  YYYY 
NYNY  NYNY  NYNY 
NYNY  NYNY  NYNY 
NYNY  NYNY  NYNY 
YYYY  YYYY  YYYY 
NYNY  NYNY  NYNY 
YYYY  YYYY  YYYY 
NYNY  NYNY  NYNY 
NNNN  NNNN  NNNN 
YYYY  YYYY  YYYY 
NYNY  NYNY  NYNY 
NYNY  NYNY  NYNY 
NYNY  NYNY  NYNY 
YYYY  YYYY  YYYY 
NYNY  NYNY  NYNY 
YYYY  YYYY  YYYY 
NYNY  NYNY  NYNY 
NNNN  NNNN  NNNN 
YYYY  YYYY  YYYY 
NYNY  NYNY  NYNY 
NYNY  NYNY  NYNY 
NYNY  NYNY  NYNY 
YNNY  YNNY  YNNY 
NNNY  YNNY  NNNY 
NYYN  NYYN  NYYN 
NNNY  NNNY  NNNY 
NNNN  NNNN  NNNN 
YYYY  YYYY  YYYY 
NYNY  yYNY  NYNY 
NYNY  NYNY  NYNY 
NYNY  NYNY  NYNY 
YNNY  YNNY  YNNY 
NNNY  NNNY  NNNY 
NYYN  NYYN  NYYN 
NNNY  NNNY  NNNY 
NNNN  NNNN  NNNN 
YYYY  YYYY  YYYY 
NYNY  NYNY  NYNY 
NYNY  NYNY  NYNY 
NYNY  NYNY  NYNY 
YYYY  YYYY  YYYY 
NYNY  NYNY  NYNY 
YYYY  YYYY  YYYY 
NYNY  NYNY  NYNY 
NNNN  NNNN  NNNN 
YYYY  YYYY  YYYY 
NYNY  NYNY  NYNY 
NYNY  NYNY  NYNY 
NYNY  NYNY  NYNY 
YYYY  YYYY  YYYY 
NYNY  NYNY  NYNY 
YYYY  YYYY  YYYY 
NYNY  NYNY  NYNY 
NNNN  NNNN  NNNN 
YYYY  YYYY  YYYY 
NYNY  ^YNY  NYNY 
NYNY  NYNY  NYNY 
NYNY  NYNY  NYNY 
YYYY  YYYY  YYYY 
NYNY  NYNY  NYNY 
YYYY  YYYY  YYYY 
NYNY  NYNY  NYNY 
NNNN  NNNN  NNNN 
YYYY  YYYY  YYYY 
NYNY  NYNY  NYNY 
NYNY  NYNY  NYNY 
NYNY  NYNY  NYNY 
1.041  SEC.  IMAGE 


YYYY  YNNY  YNNY 
NYNY  NYNN  NYNN 
NNNN  NNNN  NNNN 
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Figure  E-II-7.  Listing  of  Sample  Data  Specifying  by  Countermeasure/Measure 
by  Side  by  CS/CSS  Function  by  Red  Weapon  Category  (1-12)  by  Whether  (Y)  or 
Not  (N)  the  Corresponding  CS/CSS  Factor  Is  Applicable  to  the  Combination 
(an  "N"  leaves  the  factor  set  to  the  default  value  =  1.0) 
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h.  CS/CSS  function  weights  by  combat  environment.  Figure  E-II-8 
displays  sample  records  for  filling  array  A().  Each  record  provides  the 
weights  for  a  single  combat  environment.  The  weights  express  the  relative 
importance  or  significance  of  CS/CSS  functions  in  a  combat  environment.  A 
complete  file  contains  16  records. 
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Figure  E-II-8.  Listing  of  Sample  Data  Specifying  CS/CSS  Function 
Weights  by  Combat  Environment 


Columns 

Variables 

Data  description 

Format 

(Ith  record) 

1-5 

— 

— 

5X 

6-11 

A(l,  I) 

Weight  for  first  CS/CSS  function 
in  Ith  combat  environment 

F6.4 

12-17 

A(2,I) 

Weight  for  2nd  CS/CSS  function 
in  Ith  combat  environment 

F6.4 

54-59 

A(9, I ) 

Weight  for  9th  CS/CSS  function 
in  Ith  combat  environment 

F6.4 

i.  CS/CSS  functional  factors  by  countermeasure/measure,  by  side,  and  by 
function.  Figure  E-II-9  displays  sample  records  for  filling  the  array  A(). 
A  complete  file  consists  of  nine  records.  (In  the  current  AFP  formulation, 
the  "fifth"  CS/CSS  function  is  "empty.") 
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Figure  E-II-9.  Listing  of  Sample  Data  Specifying  the  CS/CSS 
Countermeasure/Measure  Factors  by  Side  by  CS/CSS  Function 


Columns 

Variables 

Data  description 

Format 

(Ith  record) 

1-5 

— 

— 

5X 

6-13 

U(I) 

Blue  countermeasure  factor  for 
the  Ith  CS/CSS  function 

F8.4 

14-21 

V(I) 

Blue  measure  factor  for  the 

Ith  CS/CSS  function 

F8.4 

22-29 

S(I) 

Red  countermeasure  factor  for 
the  Ith  CS/CSS  function 

F8.4 

30-37 

T(I) 

Red  measure  factor  for  the 

Ith  CS/CSS  function 

F8.4 
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Section  III.  OUTPUT 

E-II-6.  The  usual  practice  is  to  execute  the  AFP  CS/CSS  Module  for  a 
specific  combat  environment  and  for  specific  Blue  and  Red  division  types. 
A  complete  set  of  CS/CSS  moduli  corresponding  to  Blue  and  Red  weapon  type 
pairings  is  output  to  a  file  (Unit  25)  as  type  200  records.  If  there  are 
60  Blue  and  60  Red  weapon  types,  separate  Blue  and  Red  moduli  are  output 
for  each  of  the  3,600  pairings  for  a  total  of  3,600  Blue  and  3,600  Red 
moduli.  Figure  E- 1 1 -10  displays  sample  extracted  records  from  a  standard 
CS/CSS  Module  output  file.  The  fields  of  each  record  have  the  following 
significance: 
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Data  description 
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(any  record) 
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Identifier  of  modulus  record; 
always  ISCNT=200 
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15 
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F10. 6 
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IR 
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RF 

Red  CS/CSS  modulus 

F10.6 
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Section  IV.  RUNSTREAM 


E-II-7.  The  CS/CSS  Module  must  be  executed  as  part  of  full-scale  AFP 
system  application.  That  is,  in  AFP  system  work  involving  execution  of  the 
AFP  Combat  Module,  Combat  Module  output  should  always  be  processed  by  the 
CBT/CS/CSS  Merge  Module.  The  CBT/CS/CSS  Merge  Module  requires,  in  addition 
to  output  of  the  Combat  Module,  CS/CSS  moduli  produced  by  the  CS/CSS 
Module.  But  whereas,  the  CBT/CS/CSS  Merge  Module  should  be  executed  every 
time  the  Combat  Module  is  run  (e.g.,  160  times  in  the  production  of  H- 
series  mechanized  division  potentials  involving  10  replications  of  the 
Combat  Module  in  each  of  16  combat  environments),  the  CS/CSS  Module  must  be 
run  only  enough  times  to  produce  the  needed  number  of  distinct  sets  of 
CS/CSS  moduli.  In  the  case  just  mentioned,  only  four  sets  of  moduli  were 
needed,  one  for  each  of  the  usual  AFP  postures:  RAPD,  STATIC,  RADE,  and 
BAPD.  Those  sets  were  applied  for  those  postures  in  both  day  and  night  and 
in  both  clear  and  degraded  visibility.  Four  different  sets  of  CS/CSS 
moduli  were  needed  for  the  J-series  mechanized  division  production.  Hence, 
production  of  CS/CSS  moduli  for  the  H-  and  J-series  division  required  a 
total  of  eight  executions  of  the  CS/CSS  Module.  The  runstreams  for 
execution  of  the  CS/CSS  Module  were  generated  by  a  short  SSG  program.  That 
SSG  program  is  shown  in  Figure  E— I I— 11.  The  CS/CSS  Module  is  not  executed 
as  part  of  the  AFP  interpolation  process  described  in  Appendix  I.  Modified 
routines  from  the  CS/CSS  Module  are  imbedded  within  the  AFP  Interpolation 
Module.  The  Interpolation  Module  requires  many  of  the  same  input  as  does 
the  CS/CSS  Module.  The  Interpolation  Module  requires  its  own  special 
runstreams;  these  may  be  generated  by  an  SSG  program  described  in  Appendix 
I. 
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Figure  E— II— 11.  Example  SSG  Program  for  the  Generation 
of  CS/CSS  Module  Runstreams 
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a.  SGS  Section.  The  SGSs  specify  the  symbols  and  controls  necessary  to 
generate  correct  runstreams.  The  examples  in  Figure  E-II-11  are  correct 
for  generation  of  one  runstream  involving  four  executions  of  the  CS/CSS 
Module  for  the  H-series  mechanized  division.  Different  specifications  of 
the  SGSs  are  required  for,  say,  the  J-series  division.  However,  symbols 
for  both  the  H-  and  J-series  divisions  could  be  included  within  the  SGS 
definitions  leading  to  the  generation  of  both  runstreams  in  a  single 
execution  of  the  SSG  program.  Suitable  SGS  definitions  can  lead  to 
generation  of  many  runstreams  in  a  single  execution  of  the  SSG  program. 

(1)  FORCEIN.  The  SGS  "FORCEIN"  specifies  the  symbol (s)  appearing  in 
the  names  of  elements  containing  the  appropriate  CS/CSS  factors.  In  the 
example,  the  single  symbol  "HMOO"  leads  to  generation  of  a  single 
runstream.  If  the  same  SGS  included  a  second  symbol,  say  "JMOO,"  a  second 
runstream  would  be  generated.  Of  course,  a  second  symbol  here  means  that 
additional  symbols  must  be  included  in  some  other  SGSs  as  well. 

(2)  FORCEOUT.  The  SGS  "FORCEOUT"  specifies  the  symbol (s)  to  appear 
in  the  names  of  the  output  runstream  element  and  CS/CSS  Module  elements. 

In  the  example,  the  FORCEIN  and  FORCEOUT  symbols  differ;  in  general,  the 
symbols  may  be  the  same  or  different  as  convenient.  If  the  SGS  FORCEIN 
includes  a  second  symbol,  so  too  should  the  SGS  FORCEOUT. 

(3)  YEAR.  The  SGS  "YEAR"  specifies  a  year  symbol  that  will  appear  in 
each  CS/CSS  moduli  record  output.  If  the  SGS  FORCEIN  includes  a  second 
symbol,  so  too  should  SGS  YEAR. 

(4)  FFILE.  The  SGS  "FFILE"  specifies  the  name  of  the  file  containing 
the  elements  providing  input  CS/CSS  factors.  The  elements  corresponding  to 
all  postures  or  environments  and  all  divisions  specified  in  SGS  FORCEIN 
must  be  located  in  the  single  file  specified. 

(5)  ENV.  The  SGS  "ENV"  specifies  the  environmental  symbols  that 
appear  in  the  element  names  of  the  input  CS/CSS  factors.  The  same  symbols 
must  apply  to  all  divisions  specified  in  SGS  FORCEIN.  In  the  example 
shown,  only  four  environmental  symbols  are  specified.  From  1  to  16,  such 
symbols  are  permitted. 

(6)  ENVO.  The  SGS  "ENVO"  specifies  the  environmental  symbols  that 
appear  in  the  element  names  of  the  output  CS/CSS  moduli.  The  same  symbols 
must  apply  to  all  divisions  specified  in  SGS  FORCEIN.  In  the  example 
shown,  only  four  environmental  symbols  are  specified.  From  1  to  16,  such 
symbols  are  permitted,  but  the  numbers  of  symbols  in  SGSs  ENV  and  ENVO 
should  be  the  same.  Note  that  the  symbols  defined  in  the  example  SGSs  ENV 
and  ENVO  are  not  identical.  The  symbols  may  be  identical  or  different,  as 
convenient.  The  differences  shown  in  the  example  are  simply  the  result  of 
different  outlooks  by  the  AFP  CS/CSS  and  combat  teams.  (Note  that  the 
posture  is  the  same  in  environments  2  and  6.  Also,  the  posture  is  the  same 
in  environments  3  and  11.) 
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(7)  IVIS.  The  SGS  "IVIS"  specifies  the  visibility  symbols  that  will 
appear  in  the  CS/CSS  moduli  output  records.  As  many  symbols  should  appear 
in  SGS  IVIS  as  in  SGS  ENV.  The  same  symbols  are  used  for  all  divisions 
defined  in  SGS  FORCEIN. 

(8)  IPOS.  The  SGS  "IPOS"  specifies  the  posture  symbols  that  will 
appear  in  the  CS/CSS  moduli  output  records.  As  many  symbols  should  appear 
in  SGS  IPOS  as  in  SGS  ENV.  The  same  symbols  are  used  for  all  divisions 
defined  in  SGS  FORCEIN. 

(9)  IDAY.  The  SGS  "IDAY"  specifies  the  day/night  symbols  that  will 
appear  in  the  CS/CSS  moduli  output  records.  As  many  symbols  should  appear 
in  SGS  IDAY  as  in  SGS  ENV.  The  same  symbols  are  used  for  all  divisions 
defined  in  SGS  FORCEIN. 

(10)  FIL.  The  SGS  "FIL"  specifies  the  names  of  elements  containing 
data  input  to  the  CS/CSS  Module.  The  data  are  described  in  the  INPUT 
section. 

(11)  NUMS.  The  SGS  "NUMS"  specifies  the  logical  device  numbers  of 
temporary  files  into  which  the  corresponding  elements  named  in  SGS  FIL  are 
copied  prior  to  execution  of  the  CS/CSS  Module. 

b.  SKELeton  Section.  In  accord  with  the  above-described  SGSs,  the  SKEL 
section  generates  as  many  runstream  elements  (assumed  to  be  used  as  ADD  not 
as  START  elements)  as  there  are  divisions  defined  in  SGS  FORCEIN.  Note 
that  the  SKEL  is  based  on  the  assumption  that  runstream  elements  will  all 
be  breakpointed  to  file  G6GECTEST  and  that  all  CS/CSS  moduli  output 
elements  will  be  written  to  file  H7CSCSS.  Both  these  file  names  may  be 
changed  within  the  SKEL,  or,  if  name  changes  are  expected  to  be  frequent, 
new  SGSs  may  be  defined  in  the  SGS  section  and  referenced  in  the  SKEL 
section. 

c.  Runstream  Example.  Figure  E - 1 1-12  displays  an  example  runstream 
generated  by  the  example  program  in  Figure  E-II-11.  Note  that,  because  the 
SGS  in  the  example  specified  four  environments,  the  single  runstream 
includes  four  executions  of  the  CS/CSS  Module  (@XQT 
G6GECTEST.899CSCSS/MAIN) . 
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Section  V.  PROGRAM 

E-II-8.  Figure  E - I 1-13  displays  the  basic  logical  flow  of  the  AFP  CS/CSS 
Module. 

E-II-9;  The  source  listings  of  the  main  program  and  subprograms  of  the  AFP 
CS/CSS  Module  are  displayed  in  Figures  E-II-14  through  E-II-21.  The  source 
listings  include  some  intral inear  comments.  The  following  paragraphs 
provide  additional  commentary. 

E-II-10.  Figure  E-II-14  presents  the  source  listing  of  the  main  program  of 
the  CS/CSS  Module. 

a.  The  main  program  declares  most  of  the  reference  arrays  used  in  the 
CS/CSS  Module.  Most  of  these  are  given  short  definitions  in  lines  25-45  of 
the  source  listing  of  subprogram  CSCSS  shown  later  in  Figure  E-II-15. 
Because  of  their  importance  throughout  the  module,  the  arrays  and  their 
dimensioning  parameters  are  defined  at  somewhat  greater  length  in  the 
following  paragraphs. 

(1)  M  is  a  parameter  specifying  the  number  of  Blue  weapon  types. 

(2)  N  is  a  parameter  specifying  the  number  of  Red  weapon  types. 

(3)  NFUNS  is  a  parameter  specifying  the  number  of  CS/CSS  functions. 

(4)  NENV  is  a  parameter  specifying  the  number  of  combat  environments. 

(5)  NCATS  is  a  parameter  specifying  the  number  of  weapon  categories. 

(6)  BW(M),  the  array  BW()  stores  a  ' Y 1  (yes)  or  1 N ’  (no)  indicating 
whether  the  m-th  Blue  weapon  type  is  to  be  subject  to  subsequent  CS/CSS 
logic. 

(7)  RW(N),  the  array  RW()  stores  a  1 Y '  (yes)  or  'N'  (no)  indicating 
whether  the  n-th  Red  weapon  type  is  to  be  subject  to  subsequent  CS/CSS 
logic. 

(8)  UFUN(NFUNS,M),  the  array  UFUN()  stores  a  'Y'  (yes)  or  ' N *  (no) 
indicating  whether  the  m-th  Blue  weapon  type  is  to  be  subject  to  subsequent 
CS/CSS  logic  for  the  countermeasure  of  the  nfuns-th  CS/CSS  function. 

(9)  VFUN(NFUNS,M) ,  the  array  VFUN()  stores  a  1 Y '  (yes)  or  ' N '  (no) 
indicating  whether  the  m-th  Blue  weapon  type  is  to  be  subject  to  subsequent 
CS/CSS  logic  for  the  measure  of  the  nfuns-th  CS/CSS  function. 

(10)  SFUN(NFUNS,N) ,  the  array  SFUN()  stores  a  * Y '  (yes)  or  'N'  (no) 
indicating  whether  the  n-th  Red  weapon  type  is  to  be  subject  to  subsequent 
CS/CSS  logic  for  the  countermeasure  of  the  nfuns-th  CS/CSS  function. 
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Figure  E-II-13.  Flow  Diagram  of  the  Basic  Logic  of  the  AFP  Combat 
Support/Combat  Service  Support  (CS/CSS)  Module 
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6  C 


PARAMETER  M=60,N=6C,NFUN$=9,NENV=16*NCATS=12 
C 

CHARACTER*!  3W ( P) , RW ( N)  » UFUN ( NFUNS « N >  « V FUN ( N FUN S , M )  v 
*SFUN(NFUNS.N)fTFUN(NFUNS,N)fEUFUN(NFUN$«NENV)#EVFUN(NFUNSfNENV>t 
*ESFUN(NFUNS,NENV),ETFUN(NFUNS,NENV),UCAT<NFUN$,NCATS,NCATS), 
*VCAT(NFUNS,NCATS,NCATS),SCAT(NFUN$,NCATS,NCATS), 
*TCAT(NFUNS,NCATS,NCATS) 

C 

CHARACTER  ITHTR*3,  RDERR*30 

DIMENSION  A ( N  FUNS  , NEN V ) »L0CAT(M5  fLRCAT(N) 

C 

COM MON/FAC  TO R/U(NFUN$),V(NFUNS),SCNFUNS),T(NFUNS) 
COM'MON/AWRK/IWRK,ISCNT,ITHTR,IT0D,IVISX,1PO$X,.IDAYX 
C 

DATA  NPOS  ,NDA Y/4 , 2/ 

C 

C 

c 

INFILE=17 

CALL  GETCAT(LBCAT,M,'3SCAT-FILE, INFILE) 

INFILE=1£ 

CALL  GETCAT(lRCAT,N,'RRCAT-FILE', INFILE) 

C 

CALL  GETDAKM  ,  N  ,NFUN$  f  NENV,  UFUN  .  VFUN  f  SFUN  ,TFUN, 
*EUFUN,EVFUNfESFUN,ETFUNfBWfPWfAJ 
C 

CALL  GETFAC (U*V,S*T  ,  N  F  U  N  $  ) 

C 

CALL  GTCATV(UCAT,VCAT,SCAT,TCAT,NFUNS,NCAT$) 

C 

IWRK=25 

ISCNT=2C0 

READ  (  5  *  1  CO • E  R  R - 1 1 0 )  ITHTR,ITPD,IVIS,IPOS,IDAY 
ICO  FORM  AT ( 1 X , A3 , 14  ,  3  13  ) 

GO  TO  12C 

110  REA0(C,115)RDERR 
115  FORMAT (  A  £  D  ) 

PRINT*,  'ERR  IN  READING  INPUT  VARIABLES  : 

PRINT*,  '  RECORD=',RDERR 

STOP 

120  PRINT*, 'AT  END  -  INPUT  VARIABLES' 

C  I  T  H  T  R  -  E' 

C  ITPD=1 

C  DO  5  C  IVIS=1,1 

IVISX=IVIS 

C  DO  40  IP0S=1,1 

IPOSX=IPOS 
J  P  0  S  =  4 

IF (  IP0SX.EQ.4)  JP0S  =  1 

C  DO  30  IDAY=1,1 

IDA YX=IDAY 

CALL  CSCSS(M,N,NFUNSfIVIS*IPOS,IDAY,NENV,UFUN,VFUN,SFUN,TFUN, 
*eUFUN,EVFUN,hSFUN,ETFUN,6W,PW,NP0S,NDAY,A,JP0S, 
*LBCAT,LPCAT,UCAT,VCAT,SCAT,TCAT,NCATS) 

C  30  continue 
C  40  CONTINUE 
C  50  CONTINUE 

STOP  'DONE' 

END 


Figure  E-II-14.  Source  Listing  of  Main  Program  CS/CSS/MAIN 

of  the  AFP  CS/CSS  Module 
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(11)  TFUN(NFUNS,N) ,  the  array  TFUN()  stores  a  ' Y '  (yes)  or  'N'  (no) 
indicating  whether  the  n-th  Red  weapon  type  is  to  be  subject  to  subsequent 
CS/CSS  logic  for  the  measure  of  the  nfuns-th  CS/CSS  function. 

(12)  EUFUN(NFUNS.NENV),  the  array  EUFUN()  stores  a  ' Y '  (yes)  or  'N' 
(no)  indicating  whether  subsequent  CS/CSS  logic  is  to  be  applied  for  the 
Blue  countermeasure  of  the  nfuns-th  CS/CSS  function  in  the  nenv-th  combat 
environment. 

(13)  EVFUN(NFUNS.NENV),  the  array  EVFUN()  stores  a  ' Y '  (yes)  or  * N 1 
(no)  indicating  whether  subsequent  CS/CSS  logic  is  to  be  applied  for  the 
Blue  measure  of  the  nfuns-th  CS/CSS  function  in  the  nenv-th  combat 
environment. 

(14)  ESFUN(NFUNS,NENV) ,  the  array  ESFUN ( )  stores  a  *  Y 1  (yes)  or  ' M 1 
(no)  indicating  whether  subsequent  CS/CSS  logic  is  to  be  applied  for  the 
Red  countermeasure  of  the  nfuns-th  CS/CSS  function  in  the  nenv-th  combat 
environment. 

(15)  ETFUN(NFUNS,NENV) ,  the  array  ETFUN()  stores  a  * Y 1  (yes)  or  ' N 1 
(no)  indicating  whether  subsequent  CS/CSS  logic  is  to  be  applied  for  the 
Red  measure  of  the  nfuns-th  CS/CSS  function  in  the  nenv-th  combat 
environment. 

(16)  UCAT( NFUNS, NCATS, NCATS) ,  the  array  UCAT()  store  a  * Y*  (yes)  or 
' N '  (no)  indicating  whether  subsequent  CS/CSS  logic  is  to  be  applied  for 
the  Blue  countermeasure  of  the  nfuns-th  CS/CSS  function  involving  pairings 
of  a  j-th  Red  category  weapon  with  a  k-th  Blue  category  weapon. 

(17)  VCAT(NFUNS,NCATS,NCATS) ,  the  array  VCAT()  stores  a  'Y1  (yes)  or 

' N '  (no)  indicating  whether  subsequent  CS/CSS  logic  is  to  be  applied  for 

the  Blue  measure  of  the  nfuns-th  CS/CSS  function  involving  pairings  of  a  j- 
th  Red  category  weapon  with  a  k-th  Blue  category  weapon. 

(18)  SCAT ( NFUNS , NCATS , NCATS ) ,  the  array  SCAT()  STORES  A  'Y'  (yes)  or 

'N'  (no)  indicating  whether  subsequent  CS/CSS  logic  is  to  be  applied  for 

the  Red  countermeasure  of  the  nfuns-th  CS/CSS  function  involving  pairings 
of  a  j-th  Red  category  weapon  with  a  k-th  Blue  category  weapon. 

(19)  TCAT( NFUNS, NCATS, NCATS ) ,  the  array  TCAT()  stores  a  'Y1  (yes)  or 

' N '  (no)  indicating  whether  subsequent  CS/CSS  logic  is  to  be  applied  for 

the  Red  Measure  of  the  mfuns-th  CS/CSS  function  involving  pairings  of  a  j- 
th  Red  category  weapon  with  a  k-th  Blue  category  weapon. 

(20)  A(NFUNS,NENV),  the  array  A()  stores  numerical  weights  (usually  on 
the  interval  0.00  -  1.25)  to  be  applied  as  multipliers  of  the  nfuns-th 
component  (corresponding  to  the  nfuns-th  CS/CSS  function)  of  the  CS/CSS 
modulus  for  nenv-th  combat  environment. 
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(21)  LBCAT(M),  the  array  LBCAT()  stores  the  index  of  the  ncats-th 
weapon  category  corresponding  to  the  m-th  Blue  weapon  type. 

(22)  LRCAT(N),  the  array  LRCAT()  stores  the  index  of  the  ncats-th 
weapon  category  corresponding  to  the  n-th  Red  weapon  type. 


(23)  U(NFUNS),  the  array  U()  stores  the  Blue  countermeasure  factors 
corresponding  to  the  nfuns-th  CS/ CSS  functions. 

(24)  V(NFUNS),  the  array  V()  stores  the  Blue  measure  factors 
corresponding  to  the  nfuns-th  CS/ CSS  functions. 


(25)  S(NFUNS),  the  array  S()  stores  the  Red  countermeasure  factors 
corresponding  to  the  nfuns-th  CS/CSS  functions. 


(26)  T(NFUNS),  the  array  T()  stores  the  Red  measure  factors 
corresponding  to  the  nfuns-th  CS/CSS  functions. 


b.  The  main  program  declares  arrays,  initializes  a  few  variables,  calls 
data  input  routines,  calls  the  principal  subprogram  CSCSS  to  compute  and 
output  moduli,  and  terminates  the  execution  of  the  module.  The  call  to  the 
subprogram  CSCSS  originally  lay  within  a  triply  nested  loop  structure  over 
combat  environments;  however,  the  limiting  statements  of  the  loops  have 
been  converted  to  comment  statements  inasmuch  as  only  one  combat 
environment  is  processed  in  a  single  execution  of  the  module. 

(1)  Line  1  declares  the  parameters  defined  in  paragraph  E-II-10a 
immediately  above. 

(2)  Lines  3-7,  11,  and  14  declare  the  arrays  defined  in  paragraph 
E-II-10a  immediately  above. 

(3)  Line  21  calls  subprogram  GETCAT  to  input  and  store  the  weapon 
categories  corresponding  to  the  Blue  weapon  types. 

(4)  Line  23  calls  subprogram  GETCAT  to  input  and  store  the  weapon 
categories  corresponding  to  the  Red  weapon  types. 

(5)  Lines  25  and  26  call  subprogram  GETDAT  to  input  and  store  data 
for  the  11  arrays  (along  with  their  dimensions)  specified  in  the  argument 
list  and  defined  in  paragraph  E -I I -10a  immediately  above. 

(6)  Line  28  calls  subprogram  GETFAC  to  input  and  store  the  Blue  and 
Red  countermeasure  and  measure  factors  for  the  CS/CSS  functions.  The 
factors  are  stored  in  the  four  arrays  specified  in  the  argument  list  as 
defined  in  paragraph  E -I I -10a  above. 

(7)  Line  30  calls  subprogram  GTCATV  to  input  and  store  the  data  for 
the  four  arrays  specified  in  the  argument  list  and  defined  in  paragraph 
E-II-10a  above. 
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(8)  Line  32  sets  scratch  variable  IWRK  to  25,  the  index  of  the  unit 
to  which  CS/CSS  moduli  are  to  be  written. 


(9)  Line  33  sets  scratch  variable  ISCNT  to  200,  the  index  of  the  type 
records  to  be  output. 

(10)  Line  34  reads  several  case  and  environment  identifiers  whose  values 
except  for  posture,  are  not  used  for  anything  significant  in  the  current 
implementation  of  the  program.  The  identifiers  are  included  within  the 
records  containing  CS/CSS  moduli  at  output  time,  but  the  values  may  have  to 
be  changed  via  the  system  Editor  in  order  to  be  acceptable  as  input  by  the 
CBT/CS/CSS  Merge  Module. 


(11)  Line  36  transfers  control  beyond  the  error  message  sequence  (lines 
37-41)  invoked  in  the  event  of  a  read  error  in  line  34. 

(12)  Line  42  prints  message  to  the  effect  that  data  input  was  successful 

(13)  Line  46  sets  scratch  variable  IVISX  to  the  previously  read  visi¬ 
bility  index. 


(14)  Line  48  sets  scratch  variable  IPOSX  to  the  previously  read  (Blue) 
posture  index. 


(15)  Line  49  sets  scratch  variable  JPOS  to  an  assumed  Red  attack  pos¬ 
ture  index,  '4',  corresponding  to  the  first  three  Blue  postures. 


(16)  However,  in  Blue  posture  4  (Blue  attack).  Red  is  defending,  so 
set  the  Red  scratch  variable  posture  index  to  1  (defend)  line  50. 


(17)  Line  52  sets  scratch  variable  IDAYX  to  the  previously  read  day/ 
night  index. 


(18)  Lines  53-55  call  subprogram  CSCSS  to  generate  the  CS/CSS  moduli 
in  accord  with  the  data  already  read.  The  argument  list  of  the  call  contains 
the  addresses  and  dimensions  of  the  arrays  needed  and  defined  in  paragraph 
E- I I -10a  above. 


(19)  Line  59  provides  normal  termination  of  the  CS/CSS  Module. 

E— II— 11.  Figure  E— I 1—15  presents  the  source  listing  of  the  principal  sub¬ 
program,  CSCSS,  of  the  CS/CSS  Module.  Subprogram  CSCSS  possesses  a  rather 
lengthy  list  of  formal  arguments.  Most  of  these  arguments  are  the  addresses 
and  dimensions  already  defined  in  paragraph  E-II-10a  on  the  main  program  of 
the  CS/CSS  Module.  All  critical  data  have  been  input  to  the  CS/CSS  Module 
before  entry  to  subprogram  CSCSS. 
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Figure  E-II-15.  Source  Listing  of  Subprogram  CSCSS 
of  the  AFP  CS/CSS  Module 
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a.  The  CSCSS  subprogram,  on  a  single  call  (the  current  normal  imple¬ 
mentation  of  the  subprogram),  is  basically  a  triply-nested  loop  structure 
over  Blue  weapon  types  (the  outer  loop).  Red  weapon  types  (the  next  inner 
loop),  and  the  CS/CSS  functions  (the  innermost  loop). 

(1)  Ultimately,  the  products  of  the  CS/CSS  Module  are  to  be  used  to 
"modulate"  results  of  the  AFP  Combat  Module.  The  basic  output  of  the 
Combat  Module  are  estimated  kills  and  losses  by  each  Blue  and  Red  weapon 
type  under  assumed  normed  CS/CSS  conditions  for  a  single  combat  environ¬ 
ment.  But  generally,  forces  need  not  and  are  not  equipped  and  manned  to 
perform  CS/CSS  functions  at  exactly  normed  levels  under  all  combat  environ¬ 
ments.  Therefore,  it  is  necessary  to  modulate  (adjust)  the  raw  output  of 
the  Combat  Module  to  compensate  for  the  differences  between  normed  and 
estimated  CS/CSS  levels  of  support  and  between  opposing  sides.  The  CS/CSS 
preprocessing  treats  each  CS/CSS  function  separately— in  effect,  without 
regard  to  interaction  among  CS/CSS  functions.  There  is  an  abundant  litera¬ 
ture  on  the  effects  of  separate  CS/CSS  functions.  Those  references  are 
uneven  in  depth  and  reliability.  Nevertheless,  the  best  of  those  refer¬ 
ences  comprise  the  primary  sources  on  which  AFP's  CS/CSS  preprocessing  is 
based.  The  literature  is  much  less  rich  with  respect  to  the  net  effects  of 
combinations  of  the  CS/CSS  functions  at  different  support  levels  for  the 
AFP  combat  environments.  The  next  paragraph  addresses  the  simpler  issue  of 
what  the  CS/CSS  Module  would  do  if  there  were  only  a  single  CS/CSS  function 
about  which  to  worry.  The  paragraph  after  that  addresses  the  more  diffi¬ 
cult  issue  of  how  to  combine  several  CS/CSS  functions. 

(2)  For  each  Blue/Red  weapon  type  pair,  subprogram  CSCSS  applies  from 
one  to  a  variety  of  screening  tests  to  determine  which,  if  any,  CS/CSS 
functions  and  their  corresponding  Blue  and  Red  measures  and  countermeasures 
are  to  be  applied  at  other  than  1.0  default  values.  Each  CS/CSS  function 
involves  a  term  of  the  form: 

(U  x  V)  /  (S  x  T)  for  Blue,  and  its  reciprocal 

(S  x  T)  /  (U  x  V)  for  Red,  where: 

U  represents  the  countermeasure  for  Blue 

V  represents  the  measure  for  Blue 

S  represents  the  countermeasure  for  Red 

T  represents  the  measure  for  Red 

Suppose  there  is  only  one  CS/CSS  function.  The  U,  V,  S,  and  T  values  are 
first  all  assumed  equal  to  1.0.  However,  if  logical  tests  are  passed,  one 
or  more  of  these  assumed  values  are  replaced  by  values  read  and  stored 
beforehand  by  the  main  program.  Of  course,  a  replacement  value  may  be  1.0, 
but  typically  the  replacement  value  is  something  other  than  1.0.  If  there 
were  only  one  CS/CSS  function,  the  term  (UxV)/(SxT)  alone  would  be  used 
later  in  the  AFP  CBT/CS/CSS  Merge  Module  as  a  simple  multiplier  of  the 
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kills  of  the  Red  weapon  type  achieved  by  the  Blue  weapon  type  in  the  so- 
called  "global  exchange  ratio,"  or  GER  method.  In  the  so-called  "local 
exchange  ratio,"  or  LER  method,  the  same  term  would  be  applied  by  the 
CBT/CS/CSS  Merge  Module  as  a  simple  multiplier  of  the  ratio  of  the  kills  of 
the  Red  type  to  the  losses  by  the  Blue  type  (in  that  particular  type-on- 
type  engagement). 

(3)  Now  suppose  that  there  are  only  two  CS/CSS  functions.  These 
imply  two  Blue  terms  of  the  now  familiar  form  (UxV)/(SxT).  To  distinguish 
CS/CSS  functions,  introduce  (for  the  i-th  CS/CSS  function)  the  new  term 
UVST  (i).  The  obvious  problem  now  is  to  construct  a  multiplier  that 
depends  (in  the  assumed  two  CS/CSS  function  case)  on  both  UVST  (1)  and  UVST 
(2).  The  dominant  schools  of  thought  sharply  divided  between  means  of 
additive  and  multiplicative  functions.  That  is,  some  analysts  favored  the 
form  A  =  (UVST(l)  +  UVST(2))/2  (an  arithmetic  mean),  and  others  favored  G  = 
SQRT(UVST(1)  x  UVST(2))  (a  geometric  mean).  Both  these  forms  have  obvious 
extensions  to  more  CS/CSS  functions.  The  AFP  development  team  favored  a 
third  approach  that  seemed  to  provide  a  better  foundation  for  later 
generalization.  Like  several  other  aspects  of  AFP,  the  approach  may  best 
be  described  as  heuristic.  CS/CSS  functions  are  assumed  to  be  definable  in 
a  multidimensional  space  in  which  both  direction  and  length  are 
significant.  In  the  special  case  of  just  two  CS/CSS  functions,  the 
underlying  space  is  assumed  to  be  two-dimensional.  In  general  two  CS/CSS 
functions  may  be  considered  as  mutually  supportive,  independent,  or  even 
counterproductive.  In  CS/CSS  space  the  extent  to  which  CS/CSS  functions 
are  related  is  associated  with  their  relative  direction.  Two  functions 
known  or  assumed  to  be  perfectly  contributing  to  each  other  in  kind  "point" 
in  the  same  direction.  Two  functions  in  perfect  conflict  "point"  in 
opposite  directions.  Two  functions  that  are  independent  are  considered 
"perpendicular"  to  each  other.  Yet  even  independent  functions  are 
considered  to  have  a  net  effect  greater  than  either  alone.  Two  independent 
functions  are  considered  analogous  to  the  adjacent  sides  of  a  rectangle 
with  their  net  result  analogous  to  the  diagonal  of  the  rectangle.  Given 
that  the  functions  are  already  properly  scaled,  their  net  effect  then  has 
the  form: 

NET  =  SQRT(UVST(1)/X2  +  UVST(2)^2) 

This  simple  Pythagorean  rule  is  next  generalized  to  admit  weights 
expressing  the  relative  importance  of  functions  and  perhaps  adjusting  for 
scale: 

NET  =  SQRT(  (a(l)  x  UVST(1)^2  +  a(2)  x  UVST(2)^2)/(a(l)  +  a(2))) 

For  two  CS/CSS  functions,  this  last  expression  is  just  the  basic  form 
chosen  for  the  AFP  CS/CSS  modulus.  The  form  is  extended  directly  to  all 
CS/CSS  functions.  The  weights  are  permitted  to  depend  on  combat 
environment,  L,  yielding  a  current  form: 

NET(L)  =  SQRT(SUM(a( i ,L)*UVST ( i ) ; i )/SUM(a( i ,L ) ; i ) ) 
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where  SUM  (  ;i)  represents  summation  with  respect  to  the  index  i.  The 

form  yields  the  CS/CSS  modulus  as  the  diagonal  of  a  hyperrectangle  with 
weighted  (rescaled)  edges.  As  perhaps  appropriate  at  a  later  date,  the 
underlying  figure  may  be  generalized  to  a  hyperparallelopiped  permitting 
somewhat  longer  or  shorter  diagonals  as  the  extent  to  which  functions 
overlap  or  underlap  becomes  better  understood.  The  form  is  considered 
useful  for  relatively  small  changes  in  functions  relative  to  their  norms. 

It  is  not  argued  that  the  form  is  satisfactory  for  one  or  more  functions  at 
zero  levels  of  support.  The  form,  in  keeping  with  the  usual  "static" 
emphasis  within  AFP,  is  not  intended  to  reflect  the  dynamics  of  support 
leads  and  lags. 

b.  Lines  1-3  provide  the  formal  argument  list  of  subprogram  CSCSS.  As 
already  noted  above  for  the  main  program,  most  of  the  arguments  are 
addresses  and  dimensions  of  arrays.  The  arrays  have  been  described  in 
paragraph  E-II-10.a.  Short  definitions  are  also  provided  in  lines  25-45  of 
subprogram  CSCSS.  "SW"  represents  a  "yes/no  SWitch." 

c.  Lines  49  and  50  set  working  variables  LENV  and  LENVJ  to  the  Blue  and 
Red  combat  environment  indices  (1-NENV)  to  be  referenced  later  in 
extracting  the  appropriate  environmental  weights  from  array  A(). 

d.  Lines  54-59  set  working  variables  AC  and  AD  to  the  sums  of  the 
appropriate  environmental  weights  for  Blue  and  Red,  respectively. 

e.  Lines  61  and  102  define  the  bounds  of  the  loop  over  Blue  weapon 
types.  In  normal  use,  NBSTEP  =  1  so  that  all  Blue  weapon  types  are 
examined.  Larger  steps  have  been  used  for  test  purposes. 

f.  Line  62  checks  whether  the  Blue  weapon  type  is  to  be  processed.  If 
not,  subprogram  CSCSS  does  not  output  any  moduli  for  the  Blue  weapon  type. 
When  the  CBT/CS/CSS  Merge  Module  processes  the  file  of  CS/CSS  moduli,  all 
"missing  values"  are  assumed  to  be  1.0. 

g.  Line  63  sets  scratch  variable  IBCAT  to  the  weapon  category  index  of 
Blue  weapon  type  IB. 

h.  Lines  64  and  101  define  the  bounds  of  the  loop  over  Red  weapon 
types.  In  normal  use,  NRSTEP  =  1  so  that  all  Red  weapon  types  are 
examined.  Larger  steps  have  been  used  for  test  purposes. 

i.  Lines  65  and  66  set  scratch  variables  BF  and  RF  to  1.0  as  the 
default  moduli  for  Blue  and  Red  respectively. 

j.  Line  67  checks  whether  the  Red  weapon  types  is  to  be  processed,  if 
not,  subprogram  CSCSS  does  not  output  a  record  for  the  IB/I R  weapon  types 
pairing.  When  the  CBT/CS/CSS  Merge  Module  processes  the  file  of  CS/CSS 
moduli,  all  "missing  values"  are  assumed  to  be  1.0. 

k.  Line  68  sets  scratch  variable  IRCAT  to  the  weapon  category  of  Red 
weapon  type  IR. 
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l.  Lines  69  and  70  set  scratch  variables  RR  and  BB  to  0.0  in 
preparation  for  receiving  the  weighted  sums  of  squares  of  factors  over 
CS/CSS  functions  for  the  current  IB/IR  weapon  type  pairing. 

m.  Lines  71  and  97  define  the  bounds  of  the  loop  over  CS/CSS  functions. 

n.  Line  72  sets  scratch  variable  U  to  the  default  value  1.0  for  the 
Blue  measure  corresponding  to  CS/CSS  function  JF. 

o.  Lines  73-75  apply  tests  to  check  whether  the  nondefault  Blue 
countermeasure  is  applicable  for  the  current  combinations  of: 

(1)  Blue  weapon  type  IB  and  CS/CSS  function  JF. 

(2)  CS/CSS  function  JF  and  combat  environment  LENV. 

(3)  CS/CSS  function  JF,  Red  weapon  category  IRCAT,  and  Blue  weapon 
category  IBCAT. 

p.  Only  if  all  three  tests  are  non-'N1  does  line  76  call  function  FU  to 
return  a  nondefault  value  for  the  Blue  countermeasure. 

q.  Line  77  sets  scratch  variable  V  to  the  default  value  1.0  for  the 
Blue  measure  corresponding  to  CS/CSS  function  JF. 

r.  Lines  78-80  apply  tests  to  check  whether  the  nondefault  Blue  measure 
is  applicable  for  the  current  combinations  of: 

(1)  Blue  weapon  type  IB  and  CS/CSS  function  JF. 

(2)  CS/CSS  function  JF  and  combat  environment  LENV. 

(3)  CS/CSS  function  JF,  Red  weapon  category  IRCAT,  and  Blue  weapon 
category  IBCAT. 

s.  Only  if  all  three  tests  are  non-'N'  does  line  81  call  function  FV  to 
return  a  nondefault  value  for  the  Blue  measure. 

t.  Line  82  sets  scratch  variable  S  to  the  default  value  1.0  for  the  Red 
countermeasure  corresponding  to  CS/CSS  function  JF. 

u.  Lines  83-85  apply  tests  to  check  whether  the  nondefault  Red 
countermeasure  is  applicable  for  the  current  combinations  of: 

(1)  Red  weapon  type  IR  and  CS/CSS  function  JF. 

(2)  CS/CSS  function  JF  and  combat  environment  LENV. 

(3)  CS/CSS  function  JF,  Red  weapon  category  IRCAT,  and  Blue  weapon 
category  IBCAT. 

K 
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v.  Only  if  all  three  tests  are  non-'N'  does  line  86  call  function  FS  to 
return  a  nondefault  value  for  the  Red  countermeasure. 

w.  Line  87  sets  scratch  variable  T  to  the  default  value  1.0  for  the  Red 
measure. corresponding  to  CS/CSS  function  JF. 

x.  Lines  88-90  apply  tests  to  check  whether  the  nondefault  Red  measure 
is  applicable  for  the  current  combinations  of: 

(1)  Red  weapon  type  IR  and  CS/CSS  function  JF. 

(2)  CS/CSS  function  JF  and  combat  environment  LENV. 

(3)  CS/CSS  function  JF,  Red  weapon  category  IRCAT,  and  Blue  weapon 
category  IBCAT. 

y.  Only  if  all  three  tests  are  non-'N',  does  line  91  call  function  FT 
to  return  a  nondefault  value  for  the  Red  measure. 

z.  Line  93  sets  scratch  variable  UVST  to  the  ratio  of  above-determined 
countermeasure  and  measure  factors. 

aa.  Line  94  simply  squares  UVST. 

ab.  Lines  95  and  96  update  the  working  variables  BB  and  RR  with  the 
weighted  partial  sum  through  the  current  CS/CSS  function  JF.  BB 
accumulates  the  sum  for  Blue,  and  RR  accumulates  the  sum  for  Red.  Note 
that  for  Red,  the  reciprocal  of  UVST  is  applied. 

ac.  Lines  98  and  99  sets  scratch  variables  BF  and  RF  to  the  CS/CSS 
moduli  of  Blue  weapon  type  IB  and  Red  weapon  type  IR,  respectively,  for  the 
engagement  of  those  two  specific  types.  Note  that  in  keeping  with  the 
description  in  paragraph  a(3)  above,  BF  and  RF  are  the  "diagonals  of  the 
rectangular  hyperparallelopiped  with  weighted  or  rescaled  edges." 

ad.  Line  100  calls  subprogram  to  output  a  standard  type  200  AFP  record 
for  the  pairing  of  Blue  type  IB  and  Red  type  IR.  The  record  is  to  contain 
the  weapon  type  identifiers  and  the  Blue  (BF)  and  Red  (RF)  CS/CSS  moduli 
for  the  IB/I R  type  pairing. 

ae.  Line  103  returns  control  to  the  main  program  of  the  CS/CSS  Module. 

E— II— 12.  Figure  E-II-16  presents  source  listings  for  function  subprograms 
FU,  FV,  FS,  and  FT  of  the  CS/CSS  Module.  The  functions  are  all  trivial, 
serving  merely  to  return  values  from  the  corresponding  arrays  U(),  V(), 

S(),  and  T()  given  the  index  of  the  CS/CSS  function  of  interest.  The 
CS/CSS  Module  structure  was  originally  designed  in  anticipation  of  later 
generalization  of  the  scheme  for  determining  the  factors  corresponding  to 
Blue  and  Red  measures  and  countermeasures.  However,  as  of  this  writing,  no 
need  had  risen  requiring  anything  more  than  the  simple  referencing  of 
arrays. 


E-II-32 


CAA-D-84-14 


luS 
1D9 
11 0 

111 

112 

113 

114 

115 

116 
117 
113 


f  IN.CTICN  FUIJZ) 

C  C  M  Of.  /  r  A  c  T  OR  /  U  <9  )  ,  V<  °  )  ,  S  (  9  )  ,  7  (0) 
FU-U ( J2 > 

R  l  T  U  R  N 
END 

FU\CTI0f  F  V ( J 7  1 

CO  M  MON /  FACTOR  / U  (9)  *  V  (  ?  )  ,S<9)*T  (?) 
F V- V ( J2  ) 

RETURN 

END 


123 
121 
122 
123 
it  4 

125 
l<ife 
127 

126 
129 
133 


function  f  s  <  j  z  > 

COMMON /FACT  OR /U  (9  )  ,  V<  9)  ,  S  (  9  )  ,  T  C  ‘  - ) 
FS-E ( JZ  ) 

RETURN 

END 

FUNCTION  FT  (JZ  ) 

COM  MON  /  FACT  OR  /U  (9  )  ,  V  (  9  )  ,  E  (  9  )  »  T  (  ?) 
FT-T  (  JZ  ) 

RETIRE 

END 


Figure  E-II-16.  Source  Listing  of  Subprograms  FU,  FV,  FS,  and  FT 

of  the  AFP  CS/CSS  Module 


E-II-13.  Figure  E-II-17  presents  the  source  listing  of  subprogram  GETCAT 
of  the  CS/CSS  Module.  GETCAT  is  called  from  the  main  program  to  read  and 
store  indices  specifying  to  what  weapon  category  each  weapon  type  belongs. 
The  formal  arguments  of  GETCAT  represent: 

a.  LCAT  is  the  address  of  the  array  that  is  to  receive  the  weapon 
category  indices.  The  main  program  maintains  separate  arrays  for  Blue  and 
Red  weapons.  Hence,  the  main  program  calls  GETCAT  twice,  once  for  each  of 
the  Blue  and  Red  arrays. 

b.  N  is  the  length  of  array  LCAT. 

c.  FNAME  is  the  name  associated  with  the  input  file.  The  name  is 
printed  in  the  event  of  error  or  successful  completion  of  input.  • 

d.  INFILE  is  the  unit  number  on  which  the  input  data  are  to  be  found. 
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l 


4 

c 

6 

7 

r 

9 

1  0 
1  1 
1  2 
1  3 


ICO 

110 
1 1  5 

1  20 


SUBROUTINE  GETCAT(l_CAT,N, FNAME, INFILL) 

character  rderr*so,fna.me*io 

DIMENSION  LCAT(N) 

RE  AD  ( IN  file,  100,  ERR  =  110)  CLCAT(I),I=1,N) 
FORMAT (3X , 1013) 

30  TO  12G 

READ (0 , 1 1 5 )  RDERR 

FORMAT ( A  6C ) 

PRINT*,  'ERR  IN  READING  ',  FNAME,  '  R  E  C  0  R  D  = 
STOP 

PRINT*,  'AT  END  -  ',  FNAME 

RETURN 

END 


RDERR 


Figure  E-II-17.  Source  Listing  of  Subprogram  GETCAT  of  the 

AFP  CS/CSS  Module 


E-II-14.  Figure  E- I 1-18  presents  the  source  listing  of  subprogram  GETDAT 
of  the  CS/CSS  Module.  GETDAT  is  called  once  from  the  main  program  in  order 
to  read  and  store  four  categories  of  data.  The  formal  arguments  of  GETDAT 
correspond  to  actual  arguments  already  defined  for  the  main  program.  The 
arguments  are  the  addresses  and  dimensions  of  arrays. 

a.  Lines  12-16  are  devoted  to  the  arrays  specifying  whether  CS/CSS 
logic  is  to  be  applied  to  specific  weapon  types--array  BW()  for  Blue,  array 
RW( )  for  Red. 

b.  Lines  18-24  are  devoted  to  the  arrays  specifying  whether  further 
CS/CSS  logic  is  to  be  applied  for  Blue  and  Red  measures  and  countermeasures 
for  specific  combinations  of  CS/CSS  functions  and  weapon  types. 
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c.  Lines  26-31  are  devoted  to  the  arrays  specifying  whether  further 
CS/CSS  logic  is  to  be  applied  for  Blue  and  Red  measures  and 
couuntermeasures  for  specific  combinations  of  CS/CSS  functions  and  combat 
environments. 

d.  Lines  33-41  are  devoted  to  the  arrays  specifying  the  weights  to  be 
applied  by  function  and  combat  environment  in  building  CS/CSS  moduli  over 
all  functions. 
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1  3 
1  4 
1  5 
1  6 
1  7 
1  6 

1  9 
20 
21 
22 

23 

24 

25 

2  c 
27 
2  8 

29 

30 

31 

32 

33 

3  H 

35 

36 

37 

38 

39 

40 

41 

42 

43 


C 

C 


c 

c 


c 


c 


c 


bUbKUUUNE  be  f  DATCM,  N, NFUNS 
*SFUN,TFUN,EUFUN,EVFUN,E$FUN 


»  c  i  r  uii  y 


CHARACTER  RCERR*&0,fNAME*1G 


CHARACTERS  bW  (m) 
*S  FUN  (NFUNS  ,  NENV )  , 

*  E  V  F  UN  (NFUNS ,NENV)  , 


RW(N),  UFUN(NFUNS,M),  VFUN(NFUNS,M), 
TFUN(NFUN$,NENV),  EUFUN(NFUNS,NENV), 
ESFUN (NFUNS, N£NV)  ,  ETFUNCNFUNS  *  N  E  N  V 1 


DIMENSION  A  (NFUNS ,  N  E  N  V  ) 


FNAME='ADAT1  FILE' 
READC11 t100,ERR=31G) 
RE  A  D  (1  1  ,  1 CC , E  PR=31 C ) 
ICO  FORMAT  (  ^  X  ,  1  0  A  1  ) 

PRINT*,  'AT  END  -  ', 


(BW(I),I=1,M) 
( RW (  I )  ,  I  si , N) 

FNAME 


FNAME  =  'A  DAT?  FILE ' 

DO  150  1=1, M 
RE  AD  < 1 2  ,2CC , E  RR=31 0) 
*  T  FU  N  (  K  ,  I)  ,  K  =  1  ,NFUNS1 
150  CONTINUE 

200  FORMAT (  c  X  ,  9  (  4  A  1  ,1X)) 
PRINT*,  'AT  END  -  ', 


(UFUN(K,I)  ,VFUN(K,X)  ,  S  FUN( K  ,  l)  , 


FNAME 


250 


FNAME='ADATT  file' 
do  250  L=1 ,NENV 
READ(13,200,EPR=31Q) 

*  ETFUN (K , L)  ,K  =  1 , NFUNS ) 
CONTINUE 

PRINT*,  'AT  END  -  ', 


(EUFUN(<,L),EVFUN(K,L),ESFUN(K,L), 


FNAME 


300 

310 

315 

320 


FNAME='ADAT4  file' 

F0RMAT(55C9FtPO31C)  (  (  A  (  K  •  L  5  *  K  x  1  *  N  F  ^  s  >  f  L=  1  ,N  E  N  V  ) 

GO  TO  3  2  Q  * 

READ(0,315)  RDEPR 
FORMAT ( A  £C ) 

£RI£T*»  IN  READING  ',  FNAME,  '  R  E  C  0  R  D  =  ',  RDERR 

PRINT*,  'AT  END  -  ',  FNAME 

RETURN 

END 


Figure  E-II-18.  Source  Listing  of  Subprogram  GETDAT  of  the 

AFP  CS/CSS  Module 


E-II-15.  Figure  E-II-19  presents  the  source  listing  of  subprogram  GETFAC 
of  the  CS/CSS  Module.  GETFAC  is  called  once  from  the  main  program  in  order 
to  read  and  store  the  nondefault  values  of  factors  corresponding  to  the 
Blue  and  Red  measures  and  countermeasures  by  CS/CSS  function.  The  formal 
arguments  of  GETFAC  correspond  to  actual  arrays  and  their  length  defined 
within  the  main  program's  description  above. 


E-II-35 


CAA-D-84- 14 
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2 
■? 

4 

5 

a 

7 

A 

9 

1C 
1  1 
1  2 
1  3 
1  4 


subroutine  getfac(u,v,s,t,nfuns) 

CHARACTER*3C  rderr 

DIMENSION  U(NFUNS)  ,  V  (  N  F  U  N  S  )  ,  S  (  N  F  U  N  S  )  ,  T  {  N  F  U  N  S  ) 

READ(15,1CC,ERR=110)  (  U ( I) , V ( I )  , S ( I ) , T ( I )  , I  =  1 , N FUN S ) 

1QO  FORMAT (  c  X ,4FS .4) 

50  TO  1 2  C 

11C  RE  AD (0 , 1 1 5  )  RDERR 
115  FORMAT ( A  8 0  ) 

PRINT*,  'ERR  IN  READING  A  D  A  T  5  FILE',  '  R  E  C  0  R  D  =  ',  RDERR 

1  2  C  PRINT*,  'AT  END  -  A  D  A  T  5  FILE' 

RETURN 

END 


Figure  E- I 1-19.  Source  Listing  of  Subprogram  GETFAC  of  the 

AFP  CS/CSS  Module 


E— 11—16.  Figure  E- I 1-20  presents  the  source  listing  of  subprogram  GTCATV 
of  the  CS/CSS  Module.  GTCATV  is  called  once  from  the  main  program  to  read 
and  store  data  specifying  for  Blue  and  Red  measures  and  countermeasures 
whether  further  CS/CSS  logic  is  to  be  applied  for  specific  combinations  of 
CS/CSS  functions.  Red  weapon  categories,  and  Blue  weapon  categories.  The 
formal  arguments  of  GTCATV  correspond  to  actual  arguments  already  defined 
in  the  main  program  as  arrays  and  their  dimensions. 

E— 1 1-17 .  Figure  E-II-21  presents  the  source  listing  of  subprogram  OUTW  of 
the  CS/CSS  Module.  OUTW  is  called  by  subprogram  CSCSS  every  time  a  record 
of  AFP  standard  type  200  is  to  be  output.  A  single  such  record  contains  a 
number  of  case  identifiers,  but  the  principal  output  data  are  the  CS/CSS 
moduli  for  Blue  weapon  type  IB  and  Red  weapon  type  IR  in  their  paired 
engagement. 


a. 


b. 


c. 


d. 


Argument  BF  is  the 
Argument  RF  is  the 
Argument  IB  is  the 
Argument  IR  is  the 


Blue  CS/CSS  modulus. 

Red  CS/CSS  modulus. 

index  of  the  Blue  weapon  type. 

index  of  the  Red  weapon  type. 
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A 
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6 
7 
6 
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IQ 
1  1 
1  2 
13 
U 
1  5 
16 
17 
16 
1  9 
20 
21 
22 
23 


SUBROUTINE  GTCATV(UCATtVCAT,SCAT,TCAT,NFUNS,\C) 

C 

CHARACTER*!  UCAT(NFUNS,NC,NC)fVCAT(NFUNS,NCfNC), 

★  SCAT  (N FUNS, NC « NC) , TCAT(N FUNS, NC , NC) 

CHARACTER*S0  rderr 
C 
C 

DO  6C  K=1,12 
DO  5  C  1=1,9 

READ(16,1Q0,ERR=11Q)  (UCAT(I,J,K),VCAT<I,JfK)f 

★  SCAT  ( I  f  J  ,  K ) ,  T  C  A  T  (  I ,  J  f  K  ) ,  J  =  1 ,12) 

5  C  CONTINUE 

6  C  CONTINUE 

100  F0RMAT(4xf12(lXf4AD) 

GO  TO  120 

110  READ  (0  f  1  1  5  )  RDER-R 
115  FORMAT (  A 80  ) 

PRINT*,  'ERR  IN  READING  ACATS  FILE",  "  R  E  C  0  R  D  =  ",  RDERR 
STOP 

120  PRINT*,  'AT  END  -  ACATS  FILE' 

RETURN 

END 


Figure  E-II-20.  Source  Listing  of  Subprogram  GTCATV  of  the 

AFP  CS/CSS  Module 
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c 

6 

i 


SUBROUTINE  OU TW  ( B F , P F , I E , I R ) 

C 

CC*VON//URK/l«IRK,ISCNT,7TNTR,ITPD,IVIS,IPOS,IDAY 

*RIT£(IWRk',1'jC)  I?CNT,I9,3F,IR,CF 
ICG  FORMAT (1 X  ,  15 , '  E  111  1  '  ,  Ic , F 1 C. 6,  I  5 , f 1 C. 6) 

RETURN 
END 


Figure  E-II-21.  Source  Listing  of  Subprogram  OUTW 
of  the  AFP  CS/CSS  Module 
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E-II-18.  Figure  E-II-22  presents  a  listing  of  the  MAP  element  for 
collection  of  the  program  elements  of  the  CS/CSS  Module. 
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$  v  A  P 

*G6cECTfcST .S99CSCSS/ 

2 

I  N 

66GECTEST.£59CSCSS/V'AIN 

7 

I  N 

G6GECTEST.CSCSS 

u 

I  \ 

u6GEC7EST .GETCAT 

5 

I  N 

G6GECTEST .  G  E  T  D  A  T 

6 

I  N 

o£GECTEST  .GETFAC 

7 

I  N 

G66ECTEST •  6  T  C  *  T  V 

I  N 

G6&ECTE ST .CUTW 

9 

END 

Figure  E-II-22.  Listing  of  the  MAP  Element  for  the  Collection  of 
Program  Elements  of  the  AFP  CS/CSS  Module 
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APPENDIX  F 

THE  AFP  CBT/CS/CSS  MERGE  MODULE 


F-l.  OVERVIEW 

a.  The  AFP  Combat/Combat  Service/Combat  Service  Support  (CBT/CS/CSS) 
Merge  Module  is  designed  to: 

(1)  Accept  some  input  to  and  results  from  a  single  execution  of  the 
AFP  Combat  Module  giving,  among  other  items,  the  allocations  of  weapons  to 
type-on-type  engagements  and  the  losses  in  engagements  for  one  combat 
environment . 

(2)  Accept  CS/CSS  moduli  as  a  file  from  the  AFP  CS/CSS  Module.  That 
file  contains  CS/CSS  moduli  for  each  side  for  each  possible  pairing  of  60 
Blue  weapon  types  against  60  Red  weapon  types.  That  is,  the  file  contains 
2  x  60  x  60  x  =  7,200  CS/CSS  moduli. 

(3)  Accept  a  table  of  input  target  values  for  use  in  converting 
estimates  of  target  kills  into  partial  scalar  combat  potentials.  On  user 
option,  the  target  values  may  be  applied  to  all  elements  of  partial  combat 
potentials. 

(4)  Accept  a  table  of  input  fractional  life  factors  for  projecting 
partial  combat  potentials  to  the  fractions  of  lifetimes  corresponding  to 
shooting  weapon  types. 

(5)  Calculate  partial  (i.e.,  for  only  one  combat  environment)  combat 
potentials  for  each  weapon  type  and  both  Red  and  Blue  divisions  by  the 
standard  and  one  alternative  method. 

(6)  Output  a  file  (for  the  standard  method)  containing  weapon  and 
division  partial  combat  potentials  in  standard  AFP  combat  potential  format. 

b.  The  relation  of  the  AFP  CBT/CS/CSS  Merge  Module  to  the  AFP  System  in 
general  is  portrayed  in  Figure  F-l.  There  the  module  is  highlighted  by 
being  enclosed  in  an  oval. 
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11  @SSG,APEIK  G.MAINSSG/SKELREP,G.MAINSSG/SGS (F) 
?START  H  .  GO  ( F )  E  ( EN  V )  N  (REP1) 


1 


Figure  F-l.  Relation  of  the  AFP  CBT/CS/CSS  Merge  Module  to  the  AFP 

System  in  General 


F-2.  INPUT 

a.  The  primary  input  to  the  AFP  CBT/CS/CSS  Merge  Module  are  the  files 
of  Combat  Module  output  and  some  input  and  the  file  of  CS/CSS  moduli  from 
the  CS/CSS  Module. 

(1)  The  files  from  the  Combat  Module  are  formatted  direct  access. 
The  contents  of  these  files  cannot  be  inspected  or  listed  by  the  common 
UNIVAC  system  utilities.  The  CBT/CS/CSS  Merge  Module  contains  special 
interface  routines  for  accessing  Combat  Module  files. 
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(2)  An  extract  from  the  CS/CSS  Module-produced  file  of  CS/CSS  moduli 
for  input  to  the  CBT/CS/CSS  Merge  Module  is  shown  in  Figure  F-2.  With  the 
AFP  System  configured  for  60  Blue  and  60  Red  weapon  types,  a  full  CS/CSS 
moduli  file  contains  3,600  records.  The  3,600  records  correspond  to  all 
pairings  of  60  Blue  weapon  types  with  60  Red  weapon  types.  The  first  60 
records  correspond  to  Blue  weapon  type  #1  versus  each  of  the  60  Red  weapon 
types  in  order.  The  second  60  records  correspond  to  Blue  weapon  type  #2 
versus  each  of  the  60  Red  weapon  types  in  order.  Thus,  the  file  may  be 
considered  to  consist  of  60  sets  of  60  records.  Each  record  contains  a 
Blue  CS/CSS  modulus  and  a  Red  modulus.  The  fields  of  the  CS/CSS  moduli 
file  are  described  in  some  detail  in  the  output  section  of  Appendix  E. 

Very  brief  descriptions  of  the  fields  of  records  illustrated  in  Figure  F-2 
are  provided  in  the  following  paragraphs. 

(a)  Field  1  contains  the  record  identifier  "200"  for  all  records 
within  a  file  of  the  CS/CSS  Module. 

(b)  The  subfields  of  Field  2  may  contain  special  identifiers  for 
such  attributes  as  theater,  case,  and  combat  environment.  Some  such 
identifiers  are  included  in  Figure  F-2.  However,  in  current  AFP  practice, 
identification  of  complete  files  is  usually  done  by  application  of  file 
naming  conventions. 

(c)  Field  3  contains  a  numerical  identifier  of  the  Blue  weapon  type 
corresponding  to  the  record. 

(d)  Field  4  contains  the  Blue  CS/CSS  modulus  for  the  pairing  of  the 
Blue  weapon  type  identified  in  Field  3  with  the  Red  weapon  type  identified 
in  Field  5. 

(e)  Field  5  contains  a  numerical  identifier  of  the  Red  weapon  type 
corresponding  to  the  record. 

(f)  Field  6  contains  the  Red  CS/CSS  modulus  for  the  pairing  of  the 
Red  weapon  type  identified  in  Field  5  with  the  Blue  weapon  type  identified 
in  Field  3. 
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Figure  F-2.  Example  Extract  Records  from  the  CS/CSS  Moduli  File  Output 
by  the  AFP  CS/CSS  Module  for  Input  to  the  CBT/CS/CSS  Module 
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b.  Secondary,  but  still  essential,  input  to  the  CBT/CS/CSS  Merge  Module 
consists  of  target  values  and  fractional  life  factors. 


(1)  Figure  F-3  displays  a  set  of  input  target  values.  The  table  has 
been  set  up  in  unusual  fashion  in  order  to  accommodate  a  relatively  late 
generalization  of  the  original  AFP  notion  of  target  value.  Formerly,  all 
light  armored  vehicles  killed  were  considered  to  generate  the  same  con¬ 
tribution  to  the  partial  scalar  combat  potential.  All  heavy  armor  kills 
generated  the  same  contribution  to  combat  potential  (the  standard  heavy 
armor  target  value  exceeded  the  standard  light  armor  target  value).  Air¬ 
craft  kills,  whether  rotary  or  fixed  wing,  generated  equal  additions  to 
combat  potentials  although  the  standard  aircraft  target  value  exceeded  the 
light  and  heavy  armor  values.  Crew  lost  with  a  vehicle  or  aircraft  added 
slightly  to  the  net  target  value.  Most  nonvehicularly-mounted  weapons  were 
considered  to  have  target  value  only  to  the  extent  of  their  crew  losses. 
Thus,  a  ground-mounted  machinegun  or  a  shoulder-fired  missile  possessed 
target  value  only  to  the  extent  that  its  crew  was  killed.  That  former 
approach  was  judged  to  provide  too  little  discrimination--in  theory  and  in 
practice.  Just  such  a  simplified  treatment  of  target  values  is  still  per¬ 
mitted  within  the  current  system.  However,  the  current  system  permits  each 
of  the  120  (60  Blue  and  60  Red)  weapon  types  to  have  a  unique  target  value. 
Furthermore,  crew  members  of  different  weapon  types  may  have  different 
target  values.  Weapon-unique  target  values  are  probably  as  much  as  theory 
requires.  Practice  requires  correct  target  values  but  necessarily  relies 
heavily  on  judgment.  Recall  that  four-valued  combat  potentials  consist  of 
personnel,  light  armor,  heavy  armor,  and  aircraft  components.  At  first 
thought,  it  may  seem  appropriate  to  implement  the  generalized  target  value 
scheme  in  the  form  of  a  four-component  target  value  vector.  In  fact,  the 
generalization  could  have  been  introduced  by  means  of  a  two-component  tar¬ 
get  value  vector.  The  approach  selected  combines  the  alternatives, 
yielding  a  five-component  target  value  vector  for  each  target.  The  fields 
in  records  illustrated  in  Figure  F-3  have  the  following  significance: 
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Figure  F-3.  Example  of  Data  Input  Element  Providing  Target 
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Fields  3  and  7  would  be  sufficient.  Any  value  in  Fields  4-6  could  have 
been  entered  in  Field  7  with  identical  contribution  to  partial  and  final 
scalar  combat  potentials.  Notice  that  a  weapon's  value  as  a  target  is  not 
an  AFP  result;  target  values  are  pure  inputs.  A  weapon's  partial  or  final 
scalar  combat  potential  is  an  AFP  result  dependent  on  the  numbers  of 
targets  killed  (an  AFP  result)  and  the  value  of  those  targets  killed  (not 
an  AFP  result).  Target  values  may  be  applied,  at  user  option,  in  one  of 
two  ways.  If  program  input  variable  TVAL0N=. FALSE. ,  target  values  are 
incorporated  on  the  fifth  elements  of  partial  combat  potential,  the  so- 
called  scalar  elements.  The  first  four  elements  are  unweighted  estimates 
of  personnel,  light  armored  vehicles,  heavy  armored  vehicles,  and  aircraft, 
respectively.  If  TVALON=.TRUE. ,  the  first  four  elements  of  partial  combat 
potentials  are  estimates  weighted  by  target  values.  In  addition,  the 
former  "personnel  only"  elements  become  "personnel  plus  other  weapon" 
elements,  weighted  by  their  corresponding  target  values.  "Other"  weapons 
typically  include  small  arms  and  shoulder  SAMs.  "Other"  weapons  have 
nonzero  entries  for  the  fifth  component  (Field  7)  of  target  value.  However 
applied  to  date,  target  values  have  been  AFP  input  largely  independent  of 
AFP  results.  As  AFP  development  progressed,  some  target  values  were 
modified  to  reflect  some  AFP  results.  Discussions  among  analysts  inside 
and  outside  CAA  revealed  differing  philosophies  and  preferences.  Some 
analysts  want  the  "AFP  loop"  closed  so  that  target  values  become  a  pure 
result  of  the  AFP  process.  Currently,  the  AFP  System  does  not  operate 
quickly  enough  to  imbed  the  modules  in  an  iterative  or  recursive  scheme  to 
converge  on  target  values  equal  to  combat  potentials  (CIPs).  Other 
analysts  favor  target  values  depending  on  capital  investment  instead  of 
combat  estimates.  Then,  too,  there  are  "middle  of  the  roaders"  who  prefer 
some  blend  of  the  extremes.  At  a  somewhat  deeper  level,  a  case  can  be  made 
for  making  the  weapon  preferences  input  to  the  AFP  Combat  Module  depend 
directly  on  target  values.  As  of  this  writing,  "how  best"  and  "who  best" 
to  determine  target  values  remains  a  subject  of  debate. 

(2)  Figure  F-4  displays  an  example  of  fractional  lifetime  factors. 

The  first  version  of  the  AFP  System  expressed  ail  combat  potentials  rela¬ 
tive  to  a  25  percent  depletion  of  shooter  weapons.  Combat  potential  then 
expressed  an  estimate  of  targets  killed  for  25  percent  loss  to  shooters. 
However,  the  vulnerability  and  pace  of  combat  differs  so  much  among  weapons 
that  the  original  approach  was  considered  to  provide  too  little  useful 
discrimination.  Two  systems  might  have  exactly  the  same  exchange  ratios, 
implying  that  each  would  achieve  the  same  number  of  kills  by  the  time  it 
had  lost  an  equal  fraction  of  its  own  strength.  The  first  system  might 
reach  its  "standard"  result  in  30  minutes;  the  second  system  might  reach 
the  "same"  result  only  after  30  days.  Few  commanders  or  analysts  would 
want  to  regard  the  two  systems  as  equal.  The  underlying  problem  recurs  in 
almost  all  attempts  to  map  dynamics  into  static  measures  where  both  results 
achieved  and  resources  expended  may  vary.  If  static  measure  is  taken  to 
involve  just  results  at  a  fixed  time,  then  resource  expenditure  is  left 
totally  uncertain.  On  the  other  hand,  if  static  measure  is  taken  to 
involve  just  the  results  achieved  for  a  fixed  resource  expenditure,  then 
time  to  achieve  is  left  totally  uncertain.  Practical  military  issues 
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usually  involve  consideration  of  achievement,  cost  to  achieve,  and  time  to 
achieve.  All  three  of  these  considerations  may  vary  among  different  weapon 
types  and  circumstances.  Any  compression  of  these  related  but  separate 
considerations  into  a  single  measure  involves  some  loss  of  information  and 
implies  acceptance  of  some,  perhaps  much,  uncertainty.  The  AFP  developers 
decided  to  apply  a  hybrid  approach  as  being  less  misleading  than  either  of 
the  constant-time  and  constant-resource  extremes.  The  hybrid  approach 
introduces  three  categories  of  relevant  lifetime.  The  first  lifetime  cate¬ 
gory  includes  the  usual  direct  fire  weapons:  their  potential  is  assessed 
at  their  half-life,  estimated  kills  achieved  for  50  percent  loss  of  their 
own  strength.  The  second  lifetime  category  includes  the  usual  indirect 
fire  weapons:  their  potential  is  assessed  at  the  2-week  point  in  a  pro¬ 
jected  campaign,  estimated  kills  achieved  for  a  2-weeks'  expenditure  of 
ammunition  at  accepted  planning  rates.  The  third  lifetime  category 
includes  self-consuming  weapons  (typically  many  kinds  of  platformless 
rockets  or  any  rounds  in  short  supply  relative  to  campaign  length  and 
planned  rate  of  fire):  their  potential  is  assessed  at  the  point  of  con¬ 
sumption  of  basic  load  or  estimated  theater  stockage  level.  The  fields  in 
records  illustrated  in  Figure  F-4  have  the  following  significance: 

(a)  Field  1.  The  weapon  type  number:  1  to  60  for  both  Blue  and 
Red  weapons. 

(b)  Field  2.  The  adjustment  to  Blue  weapon  potentials  relative  to 
an  assumed  standard  half-life.  Hence,  a  factor  of  1.0  simply  maintains 
half-life  as  the  point  of  reference.  A  factor  of  0.33  corresponds  to  a  net 
of  one-sixth  life;  relative  to  an  assumed  2-week  half-life,  the  factor  0.33 
corresponds  to  roughly  2+  days  as  fire  weapons,  whose  achievements  but  not 
losses,  are  recorded.  (As  a  useful  arithmetic  simplification  and  artifice, 
most  indirect  fire  weapons  populations  are  regarded  as  suffering  exactly 
one  loss  during  the  AFP  Combat  Module  estimation  process.)  The  indirect 
fire  factor  then  is  an  estimate  of  how  may  times  as  many  rounds  the  indi¬ 
rect  fire  weapon  would  expend  if  the  Combat  Module  estimated  a  2-week 
rather  than  2-day  campaign. 

(c)  Field  3.  The  factors  in  Field  3  apply  to  Red  weapons  in 
exactly  the  same  way  as  those  in  Field  2  apply  to  Blue  weapons. 

F-3.  OUTPUT 

a.  The  normal  output  of  the  CBT/CS/CSS  Merge  Module  takes  two  forms. 

The  first  report  is  a  recapitulation  (with  some  extensions)  of  some  of  the 
results  from  the  Combat  Module.  The  second  report  (also  saved  as  a  mass 
storage  file)  presents  unmodulated  and  modulated  partial  (in  the  sense  of 
being  from  a  single  combat  environment)  five-valued  scores  and  CIPs  for 
each  Blue  and  Red  weapon  with  nonzero  combat  potential.  The  report  also 
presents  the  unmodulated  and  modulated  CIPs  for  the  correspondings  Blue  and 
Red  divisions.  Each  of  the  two  types  of  reports  is  illustrated  and 
described  in  the  following  paragraphs. 
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Figure  F-< 
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b.  Figure  F-5  displays  sample  records  extracted  from  the  CBT/CS/CSS 
Merge  Module's  recapitulation  of  some  intermediate  results  a  step  or  two 
beyond  raw  output  of  the  Combat  Module.  The  intermediate  results  are 
several  steps  removed  from  being  partial  combat  potentials.  The  inter¬ 
mediate  results  are  not  expressed  in  terms  of  exchange  ratios,  nor  have  the 
raw  results  been  projected  to  the  fixed-fractional  lifetimes  or  the  fixed¬ 
time  points  appropriate  for  each  weapon.  The  report  contains  only  one 
record  for  a  shooting  weapon.  In  general,  AFP  reports  of  partial  or  final 
combat  potential  contain  four  records  per  shooting  weapon  type,  separate 
records  for:  unmodulated  score,  unmodulated  CIP,  modulated  score,  and 
modulated  CIP.  The  fields  in  records  of  the  type  portrayed  in  Figure  F-5 
have  the  following  significance. 

(1)  Field  1  identifies  the  side  to  which  the  record  applies:  Blue  = 
1,  Red  =  2. 
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Figure  F-5.  Example  Extract  from  the  CBT/CS/CSS  Merge  Module  Report  of 
Raw  Results  (with  some  extensions)  from  the  Combat  Module 


(2)  Field  2  provides  the  number  identifying  the  weapon  type:  1  to 
60.  Fields  1  and  2  together  provide  unique  reference  to  a  weapon  type. 
Field  2  alone  is  not  sufficient  because  both  sides  may  have  weapon  identi¬ 
fication  numbers  from  1  through  60. 
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(3)  Field  3  provides  a  raw  count  of  personnel  losses/casualties 
inflicted  by  weapons  of  the  type  identified  in  Fields  1  and  2  during  the 
course  of  the  preceding  Combat  Module  run.  The  personnel  count  is  not  a 
raw  result  of  the  Combat  Module.  The  values  reported  in  records  of  the 
type  shown  in  Figure  F-5  are  generated  by  the  CBT/CS/CSS  Merge  Module  as 
the  result  of  having  accumulated  the  results  of  references  to  a  loss/ 
casualty  table  for  each  "raw"  weapon/platform  loss  output  by  the  Combat 
Module.  The  contents  of  Field  3  are  thus  the  sum  of  crew  losses  estimated 
to  occur  as  the  result  of  weapon  losses.  If  input  program  variable 
TVALON=.TRUE. ,  the  count  includes  other  weapons,  and  personnel  and  other 
weapons  are  weighted  by  target  values. 

(4)  Field  4  provides  a  raw  count  of  light  armored  vehicle  losses 

inflicted  by  the  weapons  of  the  type  identified  in  Fields  1  and  2  during 

the  course  of  the  preceding  Combat  Module  run.  In  general,  the  count 

includes  losses  of  several  different  weapon  types,  all  those  identified  as 
light  armored  vehicles  within  a  special  cross-reference  table.  If  input 
program  variable  TVALON=.TRUE. ,  the  count  is  weighted  by  target  values. 

(5)  Field  5  provides  a  raw  count  of  heavy  armored  vehicle  losses 

inflicted  by  the  weapons  of  the  type  identified  in  Fields  1  and  2  during 

the  course  of  the  preceding  Combat  Module  run.  In  general,  the  count 

includes  losses  of  several  different  weapon  types,  all  those  identified  as 
heavy  armored  vehicles,  within  a  special  cross-reference  table.  If  input 
program  variable  TVALON=.TRUE. ,  the  count  is  weighted  by  target  values. 

(6)  Field  6  provides  a  raw  count  of  aircraft  losses  inflicted  by  the 
weapons  of  the  type  identified  in  Fields  1  and  2  during  the  course  of  the 
preceding  Combat  Module  run.  In  general,  the  count  includes  losses  of 
several  different  aircraft  types,  all  those  weapons  identified  as  aircraft, 
within  a  special  cross-reference  table.  If  input  program  variable 
TVALON=.TRUE. ,  the  count  is  weighted  by  target  values. 

(7)  Field  7  provides  a  raw  scalar  value  achieved  by  the  weapons  of 
the  type  identified  in  Fields  1  and  2  during  the  course  of  the  preceding 
Combat  Module  run.  The  values  shown  in  Field  7  are  not  raw  results  of  the 
Combat  Module.  Rather,  the  values  are  the  results  of  accumulation  (by 
CBT/CS/CSS  Merge  Module)  of  target  values  extracted  from  the  table  de¬ 
scribed  in  paragraph  4  above  for  each  target  loss  generated  in  the  Combat 
Module. 

(8)  Field  8  provides  a  raw  count  of  the  losses  suffered  during  the 
preceding  Combat  Module  run  by  the  weapons  of  the  type  identified  in  Fields 
1  and  2  while  achieving  the  results  shown  in  Fields  3  through  7.  Obvious¬ 
ly,  the  information  in  Field  8  does  not  discriminate  how  the  losses  occur¬ 
red  by  target  type  engaged,  although  just  such  paired  data  are  provided  by 
the  Combat  Module  and  used  (for  other  purposes)  within  the  CBT/CS/CSS  Merge 
Module. 
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c.  Figure  F-6  displays  sample  records  extracted  from  a  report  (or  file) 
of  partial  combat  potential  generated  by  the  AFP  CBT/CS/CSS  Merge  Module. 
Only  a  subset  of  the  records  is  shown;  the  total  number  of  records  within  a 
report  depends  on  the  number  of  different  types  of  weapons  analyzed  within 
the  Combat  Module  and  whether  the  weapons  were  successful  in  inflicting 
losses.  A  weapon  type  that  scores  no  kills  is  not  reported.  It  is  not 
unusual  for  a  weapon  type  to  appear  in  the  report  for  some  combat  environ¬ 
ment  but  to  be  missing  from  the  report  for  another  combat  environment, 
e.g.,  a  weapon  may  score  well  in  daylight,  but,  if  it  cannot  "see"  in  the 
dark,  it  cannot  kill  anything  in  nighttime  combat  environments  and  will  be 
scoreless  in  those  environments.  The  significance  of  fields  in  records  of 
the  types  displayed  in  Figure  F-6  is  described  in  the  following  paragraphs. 
In  general,  there  may  be  four  records  for  each  weapon  type,  one  for  each  of 
unmodulated  score,  unmodulated  CIP,  modulated  score,  and  modulated  CIP. 
There  should  be  two  records  for  each  side's  division,  one  each  for 
unmodulated  COP  and  modulated  COP. 

(1)  Field  1  contains  record  identifiers  correspondi ng  to  the  keys 
tabulated  in  Figure  A-3  of  Appendix  A.  Note  that,  because  the  report  (or 
file)  contains  only  partial  (one-combat  environment)  potentials,  all  the 
record  identifiers  are  less  than  100.  A  report  of  file  of  final  potentials 
(producible  from  another  AFP  module)  has  the  same  format  as  portrayed  in 
Figure  F-6,  but  all  its  record  identifiers  must  exceed  100. 


FIELD 

1234  5  6  7  89 


17. 

10 

E 

1 

1 

1 

1 

16 

1191, 

.458 

84 

.925 

16. 

30 

E 

1 

1 

1 

1 

16 

5, 

.784 

.412 

19. 

50 

E 

1 

1 

1 

1 

16 

1197, 

.489 

85 

.355 

20. 

70 

E 

1 

1 

1 

1 

16 

5, 

.813 

.414 

21. 

10 

E 

1 

1 

1 

1 

17 

644. 

.042 

47, 

.542 

22. 

30 

E 

1 

1 

1 

1 

17 

5. 

.776 

.426 

23. 

50 

E 

1 

1 

1 

1 

17 

647. 

.302 

47, 

.782 

24. 

70 

E 

1 

1 

1 

1 

17 

5. 

,805 

.429 

25. 

10 

E 

1 

1 

1 

1 

20 

3252, 

,010 

234^ 

.271 

26. 

30 

E 

1 

1 

1 

1 

20 

9. 

,855 

.710 

27. 

50 

E 

1 

1 

1 

1 

20 

3272, 

,702 

235! 

.457 

28. 

70 

E 

1 

1 

1 

1 

20 

9. 

,917 

.714 

29. 

10 

E 

1 

1 

1 

1 

26 

118, 

,500 

6. 

.625 

30. 

30 

E 

1 

1 

1 

1 

26 

3. 

,703 

.207 

31. 

50 

E 

1 

1 

1 

1 

26 

120. 

,453 

6. 

.659 

32. 

70 

E 

1 

1 

1 

1 

26 

3. 

,764 

,208 

113 

.229 

.000 

26. 

.959 

1 

1 

1 

.550 

.000 

.131 

1 

1 

1 

113 

.802 

.000 

21, 

,096 

1 

1 

1 

.552 

.000 

.132 

1 

1 

1 

46, 

.500 

.000 

n, 

,075 

1 

1 

1 

.435 

.000 

,117 

1 

1 

1 

46! 

.746 

.000 

13] 

.141 

1 

1 

1 

.437 

.000 

.118 

1 

1 

1 

345! 

.906 

5.000 

83 ! 

,696 

1 

1 

1 

1, 

.048 

.015 

.254 

1 

1 

1 

347. 

.657 

5.448 

84! 

,554 

1 

1 

1 

1. 

.054 

.017 

,256 

1 

1 

1 

.000 

6.000 

9! 

,006 

1 

1 

1 

.000 

.250 

,281 

1 

1 

1 

,000 

8.717 

9! 

,732 

1 

1 

1 

,000 

.272 

,304 

1 

1 

1 

157. 

20 

E 

1 

1 

1 

1 

51 

1 

.*706 

158. 

40 

E 

1 

1 

1 

1 

51 

.059 

159. 

60 

E 

1 

1 

1 

1 

51 

l! 

.780 

160. 

80 

E 

1 

1 

1 

1 

51 

.061 

161. 

20 

E 

1 

1 

1 

1 

52 

5l! 

.161 

162, 

40 

E 

1 

1 

1 

1 

52 

.839 

163. 

60 

E 

1 

1 

1 

1 

52 

53, 

.377 

164. 

80 

E 

1 

1 

1 

1 

52 

.875 

165. 

20 

E 

1 

1 

1 

1 

56 

2l! 

.396 

166. 

40 

E 

1 

1 

1 

1 

56 

.181 

167. 

60 

E 

1 

1 

1 

1 

56 

22! 

.322 

168. 

80 

E 

1 

1 

1 

1 

56 

.189 

.000 

.000 

.000 

.000 

.000 

.000 

.000 

.000 

.000 

.000 

.000 

.000 

6.395 

.000 

.000 

.105 

.000 

.000 

6.672 

.000 

.000 

.109 

.000 

.000 

1.297 

.000 

.000 

.011 

.000 

.000 

1.353 

.000 

.000 

.011 

.000 

.000 

.004  111 
.000  111 
.005  1  1  1 
.000  1  1  1 
.810  111 
.013  111 
.845  1  1  1 
.014  1  1  1 
.192  1  1  1 
.002  111 
.201  111 
.002  1  1  1 


177. 

11 

E 

1 

1 

1 

1 

0 

16413 

178. 

51 

E 

1 

1 

1 

1 

0 

16494 

179. 

21 

E 

1 

1 

1 

1 

0 

1052 

180. 

61 

E 

1 

1 

1 

1 

0 

1144 

689 

1193, 

.812 

704. 

.285 

709 

1197. 

,939 

705. 

.834 

358 

180, 

,632 

13, 

,746 

605 

187, 

,630 

14, 

,106 

112.000  373.358  1  1  1 
122.042  384.262  1  1  1 
125.153  148.850  1  1  1 
150.793  175.517  1  1  1 


Figure  F-6.  Example  Extract  Records  from  the  CBT/CS/CSS  Merge  Module 
Output  File  of  Partial  Combat  Potentials 
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(2)  The  subfields  of  Fields  2  and  9  are  filled  with  blanks  or  zeros 
in  the  examples  shown.  These  subfields  provide  the  means  to  include 
special  identifiers  that  may  be  applied  but  are  not  needed  if  filed  and 
named  carefully  in  the  first  place.  In  AFP  work  to  date,  file  naming  has 
been  sufficient  to  preserve  the  integrity  of  data  sets. 

(3)  Field  3  contains  an  identifying  number  corresponding  to  a  spe¬ 
cific  weapon  type.  Although  it  is  not  apparent  from  Figure  F-6,  Blue  and 
Red  weapon  types  may  have  the  same  identifying  number.  However,  because 
the  record  identifiers  in  Field  1  fully  distinguish  Blue  and  Red  records, 
there  is  no  ambiguity  with  respect  to  weapon  type  after  all. 

(4)  Field  4  contains  the  first  or  personnel  component  of  the  four¬ 
valued  partial  combat  potential  for  each  weapon  of  division.  If  input 
program  variable  TVALON=.TRUE. ,  the  field  contains  target- val ue-weighted 
personnel  plus  other  weapon  results. 

(5)  Field  5  contains  the  second  or  light  armored  vehicle  component  of 
the  four-valued  partial  combat  potential  for  each  weapon  of  division.  If 
input  program  variable  TVAL0N= .TRUE . ,  the  field  contains  target-value- 
weighted  results. 

(6)  Field  6  contains  the  third  or  heavy  armored  vehicle  component  of 
the  four-valued  partial  combat  potential  for  each  weapon  or  division.  If 
input  program  variable  TVALON=.TRUE. ,  the  field  contains  target-value- 
weighted  results. 

(7)  Field  7  contains  the  fourth  or  aircraft  component  of  the  four¬ 
valued  partial  combat  potential  for  each  weapon  or  division.  If  input 
program  variable  TVAL0N= .TRUE . ,  the  field  contains  target-val ue-weighted 
results. 

{8}  Field  3  contains  the  partial  scalar  combat  potential  for  each 
weapon  or  division.  Partial  scalar  potential  is  often  referred  to  as  the 
fifth  component  of  five-valued  partial  combat  potential.  Scalar  potential, 
as  frequently  noted,  is  not  independent  of  four-valued  potential. 

F-4.  RUNSTREAM.  This  section  describes  runstream  of  generation  only  for 
special  standalone  use  of  the  CBT/CS/CSS  Merge  Module. 

a.  Normal  Use.  In  normal  AFP  practice,  the  CBT/CS/CSS  Merge  Module  is 
not  executed  in  a  standalone  mode.  The  Merge  Module  usually  is  executed 
one  or  more  times  within  a  combined  Combat  Module  and  CBT/CS/CSS  Merge 
Module  run.  Generation  of  these  normal  runstreams  is  described  in 
paragraph  D-4  of  Appendix  D  on  the  Combat  Module. 
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b.  Special,  Standalone  Use.  The  need  for  special,  standalone  operation 
of  the  CBT/CS/CSS  Merge  Module  may  arise  because  critical  CS/CSS  data  may 
be  unavailable  at  the  time  of  Combat  Module  runs  or  because  a  variation  in 
CS/CSS  data,  target  values,  or  shooter  fractional  lifetimes  must  be  as¬ 
sessed.  Standalone  operation  of  the  Merge  Module  is  the  more  awkward  and 
requires  that  normally  discarded  Combat  Module  output  be  retained.  Each 
execution  of  the  Combat  Module  generates  (among  other  things)  three  usually 
temporary  files  or  elements,  ALLOC,  FALLOC,  AND  TTLOS  (named  differently  in 
production),  used  by  (among  other  programs)  the  CBT/CS/CSS  Merge  Module. 

In  regular  AFP  practice,  these  files  are  used  soon  after  generation  and 
discarded  before  another  Combat  Module  execution.  In  full  AFP  production 
for  10  replications  per  combat  environment,  this  generate-use-discard  cycle 
occurs  160  times.  For  the  special  standalone.  Merge  Module  mode,  3  x  160  = 
480  files  or  elements  must  be  saved  for  later  use.  And,  it  has  sometimes 
been  the  case,  two  separate  divisions  or  forces  have  been  "in  production" 
at  the  same  time,  960  files  or  elements  must  be  saved.  Note  that  the  960 
files  or  elements  specially  saved  must  be  in  addition  to  several  hundred 
saved  in  the  regular  process.  The  full-scale  special  process  puts  a  very 
heavy  burden  of  the  Agency's  file  storage  and  mainframe  production  to  the 
point  of  very  nearly  excluding  non-AFP  users  and  customers.  The  standalone 
process  is  not  recommended  for  AFP  production.  On  the  other  hand,  the 
standalone  process  can  be  very  useful  as  a  research  method  for  small-scale 
(for  few  combat  environments  and  or  few  replications)  sensitivity  analyses. 

c.  SSG  Program  for  Standalone  Runstsreams.  An  SSG  program  for  gener¬ 
ation  of  runstreams  for  standalone  use  of  the  CBT/CS/CSS  Merge  Module  is 
shown  in  Figure  F-7. 

(1)  SGS  Section.  The  SGSs  specify  the  symbols  and  controls  necessary 
to  generate  correct  runstreams.  The  examples  in  Figure  F-7  are  correct  for 
the  generation  of  a  single  runstream  for  an  H-series  division  over  the 
first  four  combat  environments  and  two  replications.  Changes  to  specific 
SGSs  identified  below  would,  for  example,  lead  to  a  runstream  including  all 
16  combat  environments  over  10  replications.  No  run  so  large  has  been 
attempted.  Indeed,  a  single  run  so  large  would  be  ill-advised.  The  gener¬ 
ation  of  several  shorter  runs  would  be  safer  in  many  respects. 

(a)  PREFIX.  The  SGS  "PREFIX"  specifies  a  user-ID  that  prefixes 
filenames  needed  within  Merge  Module  runs. 

(b)  FORCE.  The  SGS  "FORCE"  specifies  the  symbol  identifying  the 
division  or  force  of  current  concern.  The  symbol  may  be  used  in  filename, 
element  names,  and  printed  output  headings. 

(c)  OJTPD.  The  SGS  "0JTPD"  specifies  a  year  symbol  to  appear  in 
output  records. 

(d)  0KTHTR.  The  SGS  "0KTHTR"  specifies  a  theater  symbol  to  appear 
in  output  records. 
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C R  NODI  V  T  1  3  C 

♦INCREMENT  IRNO  TO  CPN00IV,I3 
rRNOOlV, 1 , I RN  0 ,1  3 L 
♦LOOP  .IRNO 
♦EDIT  OFF 

8  ADD  306L0BAL.CVALS 
8*00  30GL0BAL. TRACTS 
♦IF  CUSEFILES, 1 ,1,13  r  n 

8  ED  29. ,C PREFIX,! ,1  ,13CF0PCE,1  ,1,  I3.ECENV,! ,IE,  13RCREP,1,R, 13 
#0 A  T A  •  L  29 • 

SEND 


8ERS  29. 

♦  ELSE 

80A  T  A ,L  29. 
8END 

8EREE  29. 

♦  END 
8ERS  9. 

8ERS  30. 
♦LOOP  .R 
8ERS  14. 
8ERS  15. 
♦LOOP  .IE 
8FREE  9. 
8FREE  14. 


551  8FREE  15. 

152  8EREE  16. 

153  8FREE  30. 

154  3E0E 

155  3E0F 


Figure  F-7.  Example  Setup  of  SSG  Program  for  Generating  Runstream  for 
Separate  Execution(s)  of  AFP  CBT/CS/CSS  Merge  Module 
(Page  3  of  3  pages) 
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(e)  OJVIS.  The  SGS  "OJVIS"  specifies  symbols  corresponding  to 
clear  (1)  and  degraded  (2)  visibility  for  the  AFP  standard  16  combat 
environments.  A  symbol  appears  in  output  records  and  may  appear  in  the 
input  CS/CSS  moduli  records. 

(f)  OJDAY.  The  SGS  "OJDAY"  specifies  symbols  corresponding  to  day¬ 
time  (1)  and  nighttime  (2)  for  the  AFP  standard  16  combat  environments.  A 
symbol  appears  in  output  records  and  may  appear  in  the  input  CS/CSS  moduli 
records . 

(g)  OJPOS.  The  SGS  "OJPOS"  specifies  symbols  corresponding  to  RAPD 
(1),  STATIC  (2),  RADE  (3),  and  BAPD  (4)  postures  for  the  AFP  standard  16 
combat  environments.  A  symbol  appears  in  output  records  and  may  appear  in 
input  CS/CSS  moduli  records. 

(h)  IBFOR.  The  SGS  "IBFOR"  specifies  a  Blue  division  or  force 
numeric  identifer  for  inclusion  in  output  records. 

(i)  IRFOR.  The  SGS  "IRFOR"  specifies  a  Red  division  or  force 
numeric  identifier  for  inclusion  in  output  records. 

(j)  ICOMBO.  The  SGS  "ICOMBO"  specifies  a  case  symbol  appearing  in 
CS/CSS  moduli  input  and  partial  combat  potential  output  records.  The 
symbol  has  been  set  to  bbl  in  all  AFP  work  to  date. 

(k)  IJTPD.  The  SGS  "IJTPD"  specifies  a  year  symbol  appearing  in 
input  CS/CSS  moduli  records. 

(l)  IJTHTR.  The  SGS  "IJTHTR"  specifies  a  theater  symbol  appearing 
in  input  CS/CSS  moduli  records. 

(m)  ENV.  The  SGS  "ENV"  specifies  symbols  corresponding  to  the  AFP 
standard  16  combat  environments.  The  symbols  may  be  used  in  a  variety  of 
names  or  headings. 

(n)  POSTS.  The  SGS  "POST"  specifies  symbols  for  the  postures  (RAPD 
=  01,  STATIC  =  02,  RADE  -  03,  BAPD  =  04)  corresponding  to  the  AFP  standard 
16  combat  environments.  The  symbols  appear  in  the  names  of  CS/CSS  moduli 
elements.  POSTS  assures  that  correct  CS/CSS  moduli  are  matched  combat 
environments . 

(o)  REP.  The  SGS  "REP"  specifies  symbols  corresponding  to  one  or 
more  replications  of  the  Combat  Module.  The  example  in  Figure  F-7  shows 
only  the  symbols  "1"  and  "2."  The  list  could  be  longer  because  the  follow¬ 
ing  two  SGSs  specify  just  which  consecutive  replications  are  to  be  proces¬ 
sed  by  the  generated  runstream.  The  symbols  must  match  characters  appear¬ 
ing  in  input  and  output  files  or  elements.  Note  that  the  generated  run- 
stream  element  names  includes  the  first  symbol  in  REP.  Hence,  there  is 
some  danger  of  overwriting  a  runstream  element  before  it  has  been  used  if 
several  runstream  generations  precede  runstream  executions--unless  the 
first  entry  in  REP  is  changed  between  runstream  generations. 
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(p)  Rl.  The  SGS  "Rl"  specifies  the  position  of  the  first  replica¬ 
tion  symbol  in  SGS  REP  to  be  included  in  the  generated  runstream.  The 
runstream  will  include  all  replications  corresponding  to  the  closed  REP  set 
positions  Rl  to  R2. 

(q)  R2.  The  SGS  "R2"  specifies  the  position  of  the  last  replica¬ 
tion  symbols  in  SGS  REP  to  be  included  in  the  generated  runstream.  The 
runstream  will  include  all  replications  corresponding  to  the  closed  REP  set 
position  Rl  to  R2. 

(r)  ENVFIRST.  The  SGS  "ENVFIRST"  specifies  the  position  of  the 
first  combat  environment  symbol  in  SGS  ENV  to  be  included  in  the  generated 
runstream.  The  runstream  will  include  all  environments  corresponding  to 
the  closed  ENV  set  positions  ENVFIRST  to  ENVLAST. 

(s)  ENVLAST.  The  SGS  "ENVLAST"  specifies  the  position  of  the  last 
combat  environment  symbol  in  SGS  ENV  to  be  included  in  the  generated  run¬ 
stream.  The  runstream  will  include  all  environments  corresponding  to  the 
closed  ENV  set  positions  ENVFIRST  to  ENVLAST. 

(t)  CASE.  The  SGS  "CASE"  specifies  an  identifier  to  appear  in  the 
headings  of  printed  output. 

(u)  CASEX.  The  SGS  "CASEX"  specifies  an  identifier  appearing  in 
the  CS/CSS  filename  (only  if  the  CS/CSS  moduli  input  are  in  file  format). 
The  identifier  is  of  no  concern  if  CS/CSS  moduli  are  in  elements  (the 
current  preferred  practice). 

(v)  RATIO.  The  SGS  "RATIO"  specifies  the  number  of  Blue  and  of  Red 
divisions  by  AFP  standard  combat  environments.  In  the  example  in  Figure 
F-7,  "13"  represents  one  Blue  and  three  Red  divisions  in  each  of  the 
environments  (1,  5,  9,  13)  corresponding  to  posture  RAPD. 

(w)  BNODIV.  The  SGS  "BNODIV"  specifies  the  AFP  weapon  type  number 
of  Blue  nondivisional  weapons.  The  CBT/CS/CSS  Merge  Module  excludes  non- 
di visional  weapons  from  COP  computations. 

(x)  RNODIV.  The  SGS  "RONDIV"  specifies  the  AFP  weapon  type  number 
of  Red  nondivisional  weapons.  The  CBT/CS/CSS  Merge  Module  excludes  non¬ 
divisional  weapons  from  COP  computations. 

(y)  MRGABS.  The  SGS  "MRGABS"  specifies  the  file  and  element  name 
for  the  Merge  Module's  current  absolute  program  element. 

(z)  USEFILES.  The  SGS  "USEFILES"  specifies  whether  the  principal 
input  and  output  of  the  Merge  Module  are  files  (Y)es)  or  elements  (N)o). 

(aa)  TVALON.  The  SGS  "TVALON"  specifies  whether  or  not  the  first 
four  components  of  partial  combat  potentials  are  to  be  weighted  by  target 
values.  TV AL0N=. FALSE,  suppresses  the  weighting.  TVALON=.TRUE.  forces 
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weighting.  All  replications  of  all  combat  environments  should  be  processed 
at  the  same  setting  of  TVALON  for  rollups  and  interpolations  to  be 
consistent. 

(2)  SKELeton  Section.  In  accord  with  the  above-described  SGSs,  the 
SKEL  section  shown  in  Figure  F-7  generates  a  single  runstream  element  for 
the  specified  division  or  force,  combat  environments,  and  replications. 

Note  that  the  SKEL  is  based  on  the  assumption  that  some  file  names  are 
permanent.  Those  "permanent"  names  may  be  changed  within  the  SKEL  section; 
or,  if  name  changes  are  expected  to  be  frequent,  new  SGSs  may  be  added  to 
the  SGS  section  and  referenced  in  the  SKEL  section. 

F-5.  PROGRAM 

a.  The  CBT/CS/CSS  Merge  Module  program  is  more  confusing  than  most  of 
the  AFP  System's  other  modules,  short  of  the  Combat  Module  itself.  No  one 
set  out  to  make  the  program  confusing.  It  is  just  that  the  current  version 
is  the  result  of  several  changes  in  the  scope  of  the  program.  Each  change 
was  implemented  by  patches  to  the  preceding  version  without  ever  starting 
over.  The  prototype  was  developed  on  a  microcomputer  using  a  FORTRAN  com¬ 
piler  permitting  a  maximum  of  three-dimensional  arrays.  Partly  because  of 
that  dimensioning  limitation  and  partly  to  keep  Blue  and  Red  clearly 
delineated,  many  separate  arrays  and  program  loops  for  Blue  and  Red  data 
were  implemented  in  the  prototype.  Although  those  distinctions  were  pre¬ 
served  in  the  mainframe  version  of  the  module,  later  extensions  to  the 
module  often  introduced  higher-dimensioned  arrays  in  which  the  distinction 
between  Blue  and  Red  was  limited  to  the  difference  between  "1"  and  "2"  as 
indices  within  one  dimension  of  an  array.  From  the  beginning,  artillery 
was  handled  differently  from  direct  fire,  sometimes  by  special  statements 
within  an  otherwise  direct  fire  sequence,  sometimes  by  a  separate  block  of 
statements  following  a  direct  fire  sequence  of  instructions.  Perhaps  most 
confusing  of  all,  the  original  method  (based  on  "local  exchange  ratios") 
for  computing  partial  (in  the  sense  of  pertaining  to  a  single  instead  of 
all  16  environments)  combat  potentials  was  retained  as  a  variant  after  the 
now  standard  method  (based  on  "global  exchange  ratios")  was  implemented. 

The  current  version  of  the  module  still  deactivated  code  for  writing  to  a 
combat  environment  rollup  file  that  is  not  used.  The  admirable  and 
professional  goal  of  "cleaning  up  the  module"  has  had  to  be  ignored  in  the 
face  of  higher  priority  requirements  to  make  other  modules  work. 

Throughout  system  development,  the  strategy  has  been  to  build  those  things 
that  did  not  exist,  to  fix  those  things  that  did  not  work  correctly,  and 
last  to  improve  things  that  worked  correctly  but  awkwardly.  The  operator/ 
programer  may  find  it  helpful  to  keep  in  mind  several  special  consider¬ 
ations. 

(1)  The  CBT/CS/CSS  Merge  Module  treats  direct  fire  and  indirect  fire 
weapons  differently. 

(2)  The  notions  of  "lifetime  potentials"  differ  among  weapons  types. 

(3)  The  module  concurrently  builds  Blue  and  Red  potentials. 
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.  (4)  Partial  potentials  are  developed  largely  concurrently  by  two 
different  methods. 

(5)  Four-valued  and  scalar  partial  combat  potentials  (i.e.,  five¬ 
valued  partial  potentials)  are  developed  concurrently. 

(6)  Unmodulated  and  modulated  partial  potentials  are  developed 
concurrently . 

(7)  Division  potentials  are  accumulated  as  the  module  works  its  way 
through  weapon  inventories  weapon  type  by  weapon  type. 

b.  Figure  F-8  displays  the  basic  logic  of  subroutine  TARTY  of  the 
CBT/CS/CSS  Merge  Module  program.  The  basic  strategy  of  the  module  is  to 
process  Combat  Module  results  Blue  weapon  type  by  Blue  weapon  type.  For 
each  Blue  weapon  type,  results  of  matchups  against  Red  weapons  are 
processed  Red  weapon  type  by  Red  weapon  type.  And  for  each  Blue/Red  weapon 
type-on-type  matchup,  results  are  processed  day  by  day  (normally  only  for  2 
days).  Much  updating  of  several  different  multidimensional  working  arrays 
occurs  over  and  over  again  as  days,  Red  weapon  types,  and  Blue  weapon  types 
are  cycled.  Some  updating  is  done  without  reference  to  CS/CSS  moduli  in 
order  to  compute  unmodulated  potentials.  But  an  equal  amount  of  updating 
is  done  with  reference  to  the  CS/CSS  moduli  in  order  to  compute  the 
modulated  potentials.  It  is  not  until  the  working  arrays  have  been  filled 
that  output  to  the  partial  combat  potential  file  is  begun.  The  essence  of 
the  CBT/CS/CSS  Merge  Module  is  the  computation  of  unmodulated  and  modulated 
scores,  CIPs,  and  COPs  from  Combat  Module  output  and  CS/CSS  moduli  (the 
latter  only  for  modulated  quantities).  The  computation  is  performed  by  two 
methods.  The  standard  method  is  usually  called  the  "global  exchange  ratio" 
method,  or  the  GER  method.  The  variant  (actually  the  original)  is  called 
the  "local  exchange  ratio"  method,  or  the  LER  method.  The  following 
paragraphs  are  intended  to  clarify  the  distinctions  between  the  methods, 
first  in  a  simplified  way  and  then  in  more  detail.  The  examples  are  all 
from  the  point  of  view  of  the  Blue  side  as  "shooters."  Similar  examples 
could  have  been  constructed  from  the  Red  side's  point  of  view  inasmuch  as 
the  Combat  Module  and  the  CBT/CS/CSS  Merge  Module  treat  both  sides 
symmetri cal ly.  Although  the  Merge  Module  treats  only  one  combat 
environment  per  run,  the  module  develops  unmodulated  and  modulated  scores, 
CIPs,  and  COPs  by  two  methods  for  both  Blue  and  Red  sides  concurrently. 

Some  patience  is  required  to  unravel  the  intertwined  processes  and  to  grasp 
the  similarities  and  differences. 
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Figure  F-8.  Flow  Diagram  of  the  Basic  Logic  of  Subroutine 
TARTY  of  the  CBT/CS/CSS  Merge  Module 
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(1)  The  principal  difference  between  the  "global"  and  "local" 
exchange  ratio  methods  lies  in  whether  exchange  ratios  are  computed  for 
each  type-on-type  engagement  (as  in  the  "local"  method)  or  only  after  kills 
and  losses  have  been  separately  summed  over  all  engagements  (as  in  the 
"global"  method).  The  difference,  then,  is  in  the  exact  sequence  of  sum¬ 
mation  and  division  operations.  In  highly  simplified  form,  the  difference 
involves  terms  of  the  form — 

(a)  Global: 


(Red  weapons  of  type  IR  killed  by  Blue  weapons  of 
type  IB  on  day  ID) 


GER(IB)  = 


EE 


IR  ID  (Blue  weapons  of  type  IB  lost  to  all  causes  over 
all  days) 


(2)  The  symbols  used  in  the  following  paragraphs  to  make  the  GER  and 
LER  notions  more  specific  in  relation  to  the  determination  of  partial 
combat  potentials  are  defined  in  the  following  subparagraphs .  The  fact 
that  a  single  execution  of  the  Combat  Module  or  CBT/CS/CSS  Merge  Module 
applies  to  a  single  combat  environment  is  disregarded  except  in  paragraph 
(4)  below.  Otherwise,  the  following  symbols  should  also  be  indexed  by  IE 
to  indicate  the  correspond!' ng  combat  environment.  The  CBT/CS/CSS  Merge 
Module  program  and  subprograms  apply  a  different  symbolism  and  somewhat 
different  orders  of  summation  from  the  examples  below. 

(a)  IB  is  the  index  of  the  IB th  Blue  weapon  type. 

(b)  IR  is  the  index  of  the  IRth  Red  weapon  type. 

(c)  IT  is  the  index  of  the  ITth  component  of  five- valued  partial 

combat  potentials.  The  components  are:  personnel,  light  armored  vehicles, 
heavy  armored  vehicles,  aircraft,  and  weighted  scalar. 

(d)  ID  is  the  index  of  the  IDth  day  represented  within  the  AFP 
Combat  Module. 

(e)  ND  is  the  total  number  of  days  represented  within  the  AFP 
Combat  Module. 
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(f)  GLOSS(IB)  is  the  sum  of  losses  of  weapon  type  IB  to  all  causes 
over  all  days.  GLOSS  is  "global"  in  the  sense  of  being  a  sum  over  all  Red 
shooters  and  over  all  days.  In  the  standard  60  by  60  engagement  of  matrix 
of  the  Combat  Module,  a  Blue  weapon  type  is  allocated  within  a  single  row 
across  60  Red  columns,  and  a  Red  weapon  type  is  allocated  within  a  single 
column' across  60  Blue  rows.  Hence,  GLOSS(IB)  is  the  sum  of  Blue  losses 
within  a  complete  row  of  the  60  by  60  engagement  matrix. 

(g)  LLOSS( IB, IR, ID)  is  the  loss  of  Blue  weapon  type  IB  to  all 
causes  related  to  engagement  with  Red  weapon  type  IR  on  Day-ID.  LL0SS  is 
"local"  is  the  sense  of  referring  to  losses  incurred  on  a  single  day  within 
a  single  "cell"  of  the  standard  60  by  60  engagement  matrix  of  the  Combat 
Module. 

(h)  DBL(IB,IR)  is  the  sum  of  direct  fire  losses  of  Blue  weapon  type 
IB  to  Red  weapon  type  IR  over  all  days. 

(i)  DBL( IB, IR, ID)  is  the  direct  fire  losses  of  Blue  weapon  type  IB 
to  Red  weapon  type  IR  on  Day-ID. 

(j)  DRL(IT,IR,IB)  is  the  sum  of  direct  fire  losses  within  target 
category  IT  or  Red  weapon  type  IR  to  Blue  weapon  type  IB  over  all  days. 

(k)  DRL(IT,IR,IB, ID)  is  the  direct  fire  losses  within  target  cate¬ 
gory  IT  or  Red  weapon  type  IR  to  Blue  weapon  type  IB  in  Day-ID. 

(l)  IBL( IB, IR)  is  the  sum  of  indirect  fire  losses  of  Blue  weapon 
type  IT  to  Red  indirect  fire  weapon  type  IR  over  all  days. 

(m)  IBL( IB, IR, ID)  is  the  indirect  fire  losses  of  Blue  weapon  type 
IB  to  Red  indirect  fire  weapon  type  IR  on  Day-ID. 

(n)  EBL(IB,IR)  is  the  sum  of  external  losses  of  Blue  weapon  type  IB 
related  to  engagements  with  Red  weapon  type  IR  over  all  days. 

(o)  EBL(IB, IR, ID)  is  the  external  losses  of  Blue  weaoon  type  IB 
related  to  engagements  with  Red  weapon  type  IR  on  Day-ID. 

(p)  ERL( IT, IR, IB)  is  the  sum  of  the  external  losses  within  target 
category  IT  of  Red  weapon  type  IR  related  to  engagement  with  Blue  weapon 
type  IB  over  all  days.. 

(q)  ERL( IT, IR, IB, ID)  is  the  external  losses  within  target  category 
IT  of  Red  weapon  type  IR  related  to  engagements  with  Blue  weapon  type  IB  on 
Day-ID. 


(r)  F  is  a  factor  specifying  the  fraction  of  external  losses  to  a 
target  which  are  to  be  credited  to  a  shooter.  In  general,  the  factor  F 
results  in  a  splitting  of  external  losses  between  direct  and  indirect 
activities. 
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(s)  AVAIL(IB)  is  the  number  of  Blue  weapons  of  type  IB  input  to  the 
Combat  Module  as  part  of  the  starting  inventory.  That  inventory  may 
include  several  divisions. 

(t)  ALLOC(IB,IR,ID)  is  the  number  of  Blue  weapons  of  type  IB 
allocated  against  Red  weapon  type  IR  on  Day-ID. 

(u)  NBD  is  the  number  of  Blue  divisions  represented  in  Combat 
Module  results.  NBD  is  applied  frequently  as  a  multiplier  or  divisor  as 
appropriate  as  the  CBT/CS/CSS  Merge  Module  viewpoint  shifts  from  all 
weapons  of  a  type  to  a  single  divisions's  worth. 

(v)  USCORE(IT,IB)  is  the  ITth  component  of  the  unmodulated  score  of 
one  division's  worth  of  Blue  weapon  type  IB. 

(w)  UCIP(IT,IB)  is  the  ITth  component  of  the  unmodulated  CIP  of 
Blue  weapon  type  IB. 

(x)  MSC0RE( IT, IB)  is  the  ITth  component  of  the  modulated  score  of 
one  division's  worth  of  Blue  weapon  type  IB. 

(y)  MCIP(IT.IB)  is  the  ITth  component  of  the  modulated  CIP  of  Blue 
weapon  type  IB. 

(z)  FRACT(IB)  is  the  fractional  lifetime  factor  for  Blue  weapon 
type  IB,  e.g.,  the  net  factor  is  usually  0.5  (for  half  lifetimes)  for 
ordinary  DIRECT  fire  weapons. 

(aa)  UCOP(IT)  is  the  ITth  target  category  component  of  unmodulated 

COP. 

(ab)  MCOP(IT)  is  the  ITth  target  category  component  of  modulated 


(3)  The  GER  method  requires  computation  along  the  following  lines. 

(a)  For  Blue  direct  fire  weapons  in  general; 

GLOSS  ( IB)  =^jP(DBL(IB,IR)  +  IBL(  IB,  IR)  +  E3L(  IB ,  IR ) ) 

IR 

If  GLOSS(IB)  =  0.0,  then  GLOSS(IB)  -  1.0. 

The  losses  to  Blue  weapon  type  IB  are  summed  over  all  uses  of  that  weapon 
before  any  division  to  determine  exchange  ratio.  To  avoid  division  by  0.0, 
1.0  is  the  minimum  permitted  loss. 
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USCORE( IT, IB)  =  FRACT(IB)  *  AVA I L ( I B )/ ( GLOSS ( IB )  *  NBD)  * 

^  (DRL( IT, IR, IB)  +  F  *  ERL ( IT, IR, IB ) ) 

IR 

The  unmodulated  score  is  thus  purely  a  quotient  of  sums,  not  a  sum  of 
quotients. 

UCIP ( IT, IB )  =  USC0RE( IT, IB)  *  NBD/AVAIL ( IB ) 

The  unmodulated  CIP  is  simply  a  mean  score  per  weapon. 

MSCORE ( IT, IB )  =  (FRACT(IB)  *  AVAIL(IB)  /  (GLOSS(IB)  *  NBD))  * 

^  ( DRL ( IT, IR, IB)  +  F  *  ERL( IT, IR, IB) )  *  CSCSS ( IB , IR ) 

IR 

The  modulated  score,  too,  is  a  quotient  of  sums,  not  a  sum  of  quotients. 
MCIP( IT, IB)  =  MSC0RE( IT, IB)  *  NBD  /  AVAIL(IB) 

(b)  For  Blue  indirect  fire  weapons  in  general: 

USC0RE( IT, IB)  =  FRACT( IB  /  NBD)  * 

y£  (DRL(  IT,  IR,  IB)  +  F  *  ERL ( IT,  IR,  IB ) ) 

IR 

It  is  implied  that  the  indirect  firer  loses  only  1.0  weapon. 

UC I P ( IT, IB)  =  USC0RE( IT, IB)  *  NBD  /  AVAIL  (IB) 

MSCORE ( IT, IB )  =  (FRACT(IB)  /  NBD)  * 

y  (DRL( IT, IR, IB)  +  F  *  ERL( IT, IR, IB) )  *  CSCSS(IB,IR) 

IR 

MCIP ( IT, IB )  =  MSCORE ( IT, IB )  *  NBD  /  AVAIL ( IB ) 
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(c)  The  division  COPs; 


UCOP(IT)  =^USCORE(IT,IB) 
IB 


MCOP(IT)  =  ^MCSCORE(IT,IB) 
IB 


(4)  The  LER  method  required  computation  of  the  following: 

(a)  For  Blue  direct  fire  weapons  in  general: 

LL0SS( IB, IR, ID)  =  DBL( IB, IR, ID)  +  I3L(  IB, IR, ID)  +  E3L( IB, IR, ID) 

If  LLOSS( IB, IR, ID)  =  0.0,  then  LL0SS( IB, IR, ID)  =  1.0. 

Here,  the  sum  of  losses  applies  to  a  single  type-on-type  engagement  on  a 
single  day. 

USCORE ( IT, IB )  =  (FRACT(IB)  /  (ND  *  NBD ) )  * 

( DRL( IT, IR, IB, ID)  +  F  *  ERL( IT, IR, IB, ID) )  *  ALL0C( IB, IR, ID) 


X  X 


LLOSS ( IB , IR, ID) 


IR  ID 


The  unmodulated  score  is  a  sum  of  quotients  and  not  simply  a  quotient  of 
sums  as  in  the  GER  case. 

UCIP ( IT,  IB )  =  USC0RE(  IT, IB)  *  NBD  /  AVAIL (IB) 

MSCORE ( IT, IB )  =  (FRACT(IB)  /  (ND  *  NBD))  * 


(DRL ( IT, IR, IB , ID)  +  F*ERL( IT, IR, IB, ID) ) 


ALL0C( IB, IR, ID) 


IR 


ID 


LL0SS( IB, IR, ID) 


MCIP( IT, IB)  =  MSC0RE( IT, IB)  *  NBD  /  AVAIL(IB) 


(b)  For  Blue  indirect  fire  weapons  in  general: 
LLOSS(IB)  -  DBL(IB)  +  IBL(IB)  +  EBL(IB) 

If  LLOSS(IB)  =  0.0,  then  LLOSS(IB)  =  1.0. 
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Unlike  in  the  GER  case,  the  "actual  losses"  of  indirect  fire  weapons  are 
considered  except  that  1.0  is  the  minimum  permitted  loss. 

USCORE ( IT , IB)  =  FRACT(IB)  /  (NO  *  NBD  *  LLOSS(IB))  * 

23  23  (DRL(IT,IR,IB,ID)  +  I RL ( IT, IR, IB, ID)  +  F*ERL( IT, IR, IB, ID) ) 

IR  ID 

UCIP ( IT, IB )  =  USCORE ( IT, IB )  *  NBD  /  AVAIL(IB) 

MSC0RE( IT, IB)  =  (FRACT(IB)  /  (ND  *  NBD  *  LLOSS(IB)))* 

2^CSCSS(IB,IR)*2^(DRL(IT,IR,IB,'lD)  +IRL(  IT,  IR,  IB, ID)+F*ERL( IT, IR, IB, ID)) 
IR  ID 

MCIP ( IT, IB )  =  MS CORE ( IT, IB )  *  NBD  /  AVAIL(IB) 

(c)  The  divisions  COPs; 

UCOP(IT)  =  USCORE ( IT,  IB ) 

IB 

MCOP(IT)  =  Y'  MSC0RE( IT, IB ) 

IB 

(5)  The  AFP  CBT/CS  Merge  Module  does  not  roll  up  partial  combat 
potentials  over  all  16  combat  environments.  That  function  is  performed 
within  the  AFP  Rollup  and  Stats  Module.  In  terms  of  the  above  notation,  an 
example  of  the  computation  performed  within  the  Rollup  and  Stats  Module  is: 


16 

MCOP(IT)  =  ^  MCOP ( IT, IE )  *  ENV(IE) 

IE 


Where  the  partial  MCOPs  (IT)  above  have  been  extended  to  MCOP ( IT, IE)  to 
show  dependence  on  corresponding  combat  environment,  IE.  The  term  MCOP  has 
been  replaced  to  indicate  that  the  environmental ly  weighted  sum  of  partial 
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COPs  is  a  final  COP.  Similar  summations  lead  to  the  full  variety  of  final 
unmodulated  and  modulated  scores,  CIPs,  and  COPs  for  both  Blue  and  Red 
divisions. 


c.  GGGTARTY  is  the  current  version  of  the  source  program  of  the  princi¬ 
pal  subprogram  of  the  CBT/CS/CSS  Merge  Module.  The  GGGTARTY  source  program 
is  listed  in  Figure  F-9. 

(1)  The  principal  reference  arrays  are  initialized  at  load  time  or 
early  in  program  execution. 

(a)  BAA(IO).  The  array  BAA  stores  the  starting  strengths  of  Blue 
mortar  and  artillery  weapon  types.  The  indexing  of  BAA(I)  for  indirect 
weapon  types  for  I  =  1  to  10  relative  to  all  weapon  tyes  W  =  1  to  60  is  W  = 
LIMD  +  I.  Array  RAA  is  the  Red  counterpart  of  Blue  array  BAA(). 

(b)  RAA(IO).  The  array  RAA()  stores  the  starting  strengths  of  Red 
mortar  and  artillery  weapon  types.  The  indexing  of  RAA()  is  the  same  as 
for  Blue  array  BAA()  described  in  (1)  immediately  above.  Array  BAA( )  is 
the  Blue  counterpart  of  Red  array  RAA(). 

(c)  CSCSS(2,60,60).  The  array  CSCSS()  receives  and  stores  CS/CSS 
module  generated  earlier  by  the  separate  AFP  CS/CSS  Module.  An  array 
element  CSCSS(I,J,K)  is  indexed; 


1.  1=1  to  2  for  Blue  and  Red  sides. 


2.  If  1=1,  then 

J=1  to  60  for  the  60  Blue  weapon  types. 
K=1  to  60  for  the  60  Red  weapon  types. 

3.  If  1=2,  then 


J=1  to  60  for  the  60  Red  weapon  types. 

K=1  to  60  for  the  60  Blue  weapon  types. 

(d)  BNDX(60).  The  array  BNDX()  receives  and  stores  the  weapon 
indices  of  any  Blue  weapon  which  are  nondi vi sional .  If  there  are  only  N 
nondivisional  Blue  weapon  types,  then  only  the  first  N  elements  of  BNDX() 
are  filled.  For  example,  during  AFP  system  development  only  Blue  weapon 
type  41  was  nondivisional.  Hence,  N=l,  and  BNDX(1)=41.  As  a  result  of 
entries  in  BNDX ( ) ,  the  program  sets  the  correspondi ng  logical  value  in  the 
separate  array  BNDW()  to  .TRUE,  for  nondivisional.  Array  RNDX()  is  the  Red 
counterpart  of  Blue  array  BNDX ( ) . 
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22 

23 

24 

25 

26 

27 

28 

29 

3  C 
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32 

33 

34 

35 

3c 

37 

38 

39 
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43 

44 

45 

46 

47 

48 

49 
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SUBROUTINE  TARTY 

15  JUN  £3  —  G  .  E  .  C  . 

COMBINES  COMBAT  MODULE  OUTPUT  WITH  CS/CSS  FACTORS 
12  APR  83  —  CHANGE  MODULI  8  OUTDUT  ID'S  --  G.C.C. 

ALGORITHM  AND  MOST  OF  CODE  BY  G.  COOPER.  MODIFIED  BY  J. WARREN 
AND  S.  BRAVY 

EXTENDED  24-28  OCT  83  BY  G.E.C.  TO  PROVIDE  GLOBAL 
RQW-VISf  g  COLUMN-VISE  EXCHANGE  RATIOS  -- 
EPOW  KX LIS]/E«QW  LOSSES! 

[COLUMN  KILLS/COLUHN  LOSSES] 

EXTENDED  4  NO V  83  T 0  JPP L  Y  G  F  N  t  G  A  L I  JED  CATEGORY 
WEIGHTS  THREE  NE.  'STOPPING'  CRITERIA  ** 

*  3*5-LIFE  fop  DIRECT  fire  CR0UNE3  SYSTEMS 

*  B*£IC  LOAD  DEPLETION  FOR  SA*S 

-  FORTNIGHT  DURATION  FOP  MQRTlft  $*  A*RTYt 
EXTENDED  53^a4  FOR  (WALSH  OPTION  T  V  A  L  0  N 
ELEMENTS  1-5 
PAR AMETEft  ITNTfl  =1 
INCLUDE  PARM^LIST 
INCLUDE  0E1 .LIST 
INCLUDE  BKSiLlST 

DIMENSION  ALbS5mi2t?l.BCA5U)£ftfASUl 

fiTi'f  a  J  tflALfioi  .baa  nos  ,rm(103 

a  C5 *2  J*0>  .  k < 5  *2 ,60)  «  A  n  T  QT ( 6  C  3 f ARTOT (£0) 

C  S  C  S  S t  2 r  6C  ,  60  3 
USCOFrf2*ftC,*J,MSCOH<2160fAl 

UC  IP t 2 ,iut 4)  ,“CIP  f 2  f 6C t  *J 
UCQP(2jAJ  ,  MCO'P<  2  ,  4  3  T  $  I  2ES  (  2  3 


IN  POTENTIALS 


SNDJrttO.fihCXfiOJtBSDWtltQJ.SMSrffia) 
O-EGAEfS^.iC.SJtOKEGACrSii.JltZLOSStiD.i) 
aT^(;).i5hO(4,rj,sT4BT(to,j3^TTPSf2i 


DIM-ENSICN 
DIMENSION 
DIMENSION 
□  I^ChiSlON 
DIMENSION 
5 1 M  E  N  S  I  0  * 

DIMENSION 
DIMENSION 
DIMENSION 

HEAL  '*5C0?t“CIp.*CDtl 
INTEGER  CC« 90, BNCtfflNDXtCASF, SIZES 

DEFINE  FILE  I  LI  T1  (  N  FM1.  ,  ISSZl  1  ,  F,  (it»T1  1  ) 
DEFINE  FILE  ILrl2CNB121IHSZl2,F,N€lfTT2; 

CHARACTFR-3  K  THIS  iLthTft 
C  W  A  R  A  C  T  F  ft  ±  5  ATHTR(lThTR) 

LOGICAL  TEST, ?l^(Dta, KNOW.  TV  ALON 

3(1, J  T  K  3  BLUE  KILLS 


I  - 

T 

PERSONNEL+OTHEP 

2 

LT  VEHS 

3 

HVY  VEHS 

4 

AIRCRAFT 

5 

SCALAR 

J  = 

1 

UNMODULATED 

2 

MODULATED 

K  = 

1  ,M 

KTH  WEAPONS  TYPE 

Figure  F-9.  Source  Listing  of  the  Main  Subprogram  (TARTY  in  Element 
6GGTARTY)  and  Several  Subroutines  of  the  CBT/CS/CSS  Merge  Module 
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5  1 

52 

53 

54 

55 

56 

57 

5  S 

59 

60 

6  1 
62 

63 

64 

65 

66 
67 
6c 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

20 

6  1 
22 

33 

34 

55 
a  a 

57 
52 
59 
9  Q 

91 

92 

93 

94 

95 

96 

97 

98 

99 
!00 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 

c 

c 

c 

c 


R (  I  ,  J  .K  )  BED 

BAL(I)  BLUE 

RAL  (  I  )  RED 

3  A  A ( I )  ELUE 

R  A  A ( I )  BED 

OMEGAE  ( I  , J  , K  ,LJ 
1*1  t  5 

J  =  1  ,4 

K  =1  , NTYPS  (IS) 
L*1  ,2 

OKEGAC ( 1 1  J  v  K ) 

1=1  9  5 
J  =  1  ,  2 
<  =  1  ,2 

Z  LOS  S (  I  ,  J) 

1=1  , NTYPS  (  IS  ) 

J  =  1  t  2 


KILLS  SUBSCRIPTS  LIKE  5(1, J,K) 

ARTY  LOSSES,  TYPE  LIMD+I 
ARTY  LOSSED,  TYPE  LIMD+I 
ARTY  STARTING  STRENGTH,  TYPE  LI"D+1 
ARTY  STARTING  STRENGTH,  TYPE  L I M  D  *  1 
GLOBAL  SCORES  &  CIPS 
PERS  +  OTHER,  ••  •♦SCALAR 
USCOREfUCIPtMSCORE.MCIP 
In  PN  T  Y  P  c 
BLUE , RE  D 
GLOBAL  COPS 

PPRS+OTHEP,  •  •  •, SCALAR 
UCOP  ,*COP 
BLUE  ,  RED 

DIRECT  S  INDIRECT  LOSSES 
y pn  t  y p  c 
BLUE  ,  RE  D 


COMMON/ CIM1/DUM (240)  ,  EXTLOS  (2 ,60) 

CCMMON/SO R/ ISOR 

COMMCN/GLOBAL/IBFOR,IRFOR,JCA$E 

COMMON/AWRK/IVRK,ISCNT,JTHTRZ, JTPDZ, JVISZiJPQSZ, JDAYZ 

COMMON/  char/kthtr 

COm^ON/CATVAL/CVALS(5,6Q,2) 

C  0  M  M  G  N  /  FRACTS/FRAX  (60,2) 

DATA  ATHTR/'  E'  / 

DATA  IDIM/14/,NTYP$/2*60/,IUIN8/14/ 

DATA  ZTOL/0.2/ ,  M  ,  N  /  2  *  6  0  / 

DATA  FRACLF/0.5C/,ND/2/ 

DATA  LI*D/5C/  ,  IPOS/4/ , IDAY/2/ 

DATA  CSCSS/7ZCC*1 -0/ 

DATA  3NDW60*«FALSE./,RNDW/6C*,FALSE./ 

DATA  AL0S$/56*0.0/ 

DATA  I S  N  0 / 1 0 , 70, 50, 70, 20, 40,60, 80/ 


1  N  F  0  RECORD  FORMAT 

1  F0RMAT(I5,A3,I4,3I3,I5,5F1C,3,2!o,I5) 

FOR  OUTPUT  OF  I  SC  NT f J THTR , J TPD , J VIS i J POS f J 0  A Y , I WI P , XPERS , 
X  LV  E  H , XHVEH,XACFT  fXSCLR ,I9F0R , IRFOR , J  C  A  S  E 
CALL  OUTPAR 
R  E  A  D  (  5 , 2 )  TVALON 

2  FORMATCIOX, L5) 

K  L  I  M  =  5 

K  S  T  E  P  =  1 

IF  (TVALON)  THEN 
K  L  I  M  =  1 
KSTEP=4 
END  I  F 
I  S  0  R  =6 
I  w  R  K  =3  0 


Figure  F-9.  Source  Listing  of  the  Main  Subprogram  (TARTY  in  Element 
GGGTARTY)  and  Several  Subroutines  of  the  CBT/CS/CSS  Merge  Module 
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101 

102 

1  03 

IQ* 

105 

106 

107 

106 

109 

110 

1  1  1 

112 

1  1  3 

1  1  4 

1  1  5 

1 1  6 

1  1  7 

118 

119 

120 

121 

122 

123 

12* 

125 

126 

127 

128 

129 

130 

1  3  1 

132 

133 

134 

135 

136 

137 

13c 

139 

1  4  C 

141 

142 

143 

144 

145 

1  4£ 

147 

148 

1  4  9 
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c 

c 


c 

c 

c 

1  3 

c 


c 

c 

1  5 

2  3 


5  0 
C 

C 

C 

C 

C 

C 


I  B  F  0  R  =  1 
I R  FOR  =1 
CV0PT=1  .C 
CALL  ZEROCBT.IO) 

CALL  ZER0(RT,10) 

CALL  ZER0(6,6CC) 

READ  IN  THE  CSCSS  DATA 


8 


READ(5,13)  CO^BO, JTPD,JTHTR,JVIS,JOAT,JPOS 
FORMAT ( ) 

KTHTR=ATHTR OTHTR) 

CASE  =  ( J VIS-1) *IDAY*IPOS  +  < J DAY-1 ) *  IPOS* ( JPOS-1) 
JCASE=CASE 
PRE  FI =0 
PR  E  F  Z  =0 

PREF3=(JTHTR-1)*ICASE+CASE 


PREF4=(C0MB0-1)*ITHTR*ITPD*ICASE+(JTPD-1)*ITHTR*ICASE+PREF3 
READ(IUIN8,23,ENC=50)  LSCNT,lTHTR,lTPD,LVIS,LPOS,LDAY 
, Lew  I D , X3M0D * LR* I D , XRMOO 
FORMATCI6,A3,I4,I3,I3,I3,I5,F10.3,I5,F10.3) 

TEST=(LSCNT  ,EQ.  200  )  .AND.  (KTHTR  .EQ.  LTHTP) 


TES  T=TES  T 

.AND. 

(  JTPD 

.  FQ  . 

LTPD  ) 

TEST  =TEST 

.  AND  . 

( J  VIS 

.  EQ  . 

LVI  S  ) 

TEST=TEST 

.  AND  . 

(  JPOS 

.EQ. 

LPOS  ) 

TEST=TEST 

.  AND  . 

(  J  D  A  Y 

.  EQ. 

LDA  Y  ) 

IF  (  TEST 

)  THEN 

C  S  CSS  ( 1  , 

LBW  I  D  , 

LRWID  ) 

=X9MOD 

CSCSS(Z,LR*ID,LBWID)=XRMOD 
ENDI  F 
SOTO  15 
COST  INUF 


NUMBER  OF  BLUE  AND  RED  DIVISIONS 
RFAO  (5  ,1 3  )  DIVS  (1)  ,  DIVS  (2) 

D I  VS ( 1 ) *NB  D I  V 
DIVS (2)=NRDIV 

READ  THE  BLUE  NON-DIVISIONAL  WEAPON  COUNT  AND 
RE  AD  (  5 , 1 3 )  N3NDIV,  (9NDX(I)  ,  1=1  ,N5NDIV) 

READ  THE  RED  NON-DIVISIONAL  WEAPON  COUNT  AND 
READ(5,13)  NRNDIV,  (RNDX  (  I  )  ,  1=1  ,NRNDIV) 


INDICES 

INDICES 


CALL  Z  E  RO ( R , oOC 1 
CALL  ZERO CA9T0T ,H) 

CALL  ZERO(ARTOT.N) 

CALL  ZEC0(BAA,1C) 

CALL  ZERO(RAA,10) 

CALL  ZEC0(BAL,10) 

CALL  ZEPO(RAL,10) 

CALL  ZEP0(0*E0AE ,2400) 
CALL  Z EPO (OMfc GA C , 20 ) 


Figure  F-9.  Source  Listing  of  the  Main  Subprogram  (TARTY  in  Element 
GGGTARTY)  and  Several  Subroutines  of  the  CBT/CS/CSS  Merge  Module 
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1  5  1 

CALL  ZER0(ZL0SS  ,120) 

152 

C 

SET  UP  POINTERS  TO  N 0 N - 0 I V  I  S I O N A L  RESOURCES 

153 

DO  6  G  I=1,N9NDIV 

154 

cNDW ( 9  N  D  X (I  )  )  =  .TRUE  . 

155 

60 

CONTINUE 

156 

DO  7C  1  =  1  ,NRND  IV 

157 

RNDW(RNDX(I)  )  =  .  TRUE  . 

15  8 

70 

CONTINUE 

159 

C 

160 

c 

GET  CATEGORY  VALUES 

1  o  1 

CALL  GETCAT 

162 

c 

163 

c 

GET  FRACTIONAL  LIFE  ADJUSTERS 

1  64 

c 

165 

CALL  GET 

166 

c 

167 

c 

GET  ARTY  STARTING  STRENGTHS 

16  8 

call  getart  <3*a,raa,limd,w,ni 

169 

c 

DIRECT  FIRE  ENGAGEMENTS  ARE  ANALYZED  AS  TYFE-0N-TYPE 

170 

c 

exchange  patios  k  allocations,  mortars  5  arty  are 

171 

c 

ANALYZED  AS  (GLOBAL  TOTAL  KILLS ) /(GLOBAL  total  LOSSES!. 

1  72 

c 

LOOP  OVER  BLUE  VPN  TY^lS 

173 

DC  ID  19  =  1  ,iNT  YPS  <  1  1 

174 

c 

BLUE  external  loss  factor 

175 

exe=EXTLOsci,ia) 

176 

c 

LOOP  OVER  RED  WPS  TYPES 

177 

DO  zt  I P  = 1  pNTYpSfS! 

178 

c 

GET  BLUE  VPN  CASUALTY  VALUES 

179 

call  GETC A  12, IS ,  IB , BC AS! 

UC 

c 

GET  RED  -PN  CASUALTY  VALUES 

1  8  1 

CALL  GETCA(T,TB,IP,RCAS) 

122 

c 

RED  EXTERNAL  LOSS  FACTOR 

183 

ts H =E*  UCS  (  2,  IR  ) 

1  8  4 

c 

GET  C  3  T  MODULE  RESULTS  FOR  THIS  MATCHUP 

185 

CALL  GETLOS < 13  ,  TR  ,  ALOSS  ,  I D I w  ,  ND ) 

186 

c 

get  glue  red  cs/css  factors  for  this  pair 

187 

5M0D  =  :SC5$M.I5,I  =  > 

1  88 

AMQD=CSCSS(2,IR,ID) 

189 

c 

190 

3  S  U  H  =  0  .  P 

191 

R  S  U  M  =0  •  0 

192 

c 

LOOP  OVER  DAYS 

193 

c 

GLOBAL  KILL  ACCUMULATORS  OVER  ND  DAYS 

194 

GBN  E  T  =0  .  G 

195 

GRNET=G.O 

196 

DO  1000  ID=1,ND 

197 

c 

ALLOCATIONS 

198 

AB  =  ALOSS (1 ,1  ,  ID) 

199 

AR  = ALOS  S (1  ,2,  ID) 

2GG 

c 

PARTICIPATIONS 

Figure  F-9.  Source  Listing  of  the  Main  Subprogram  (TARTY  in  Element 
GGGTARTY)  and  Several  Subroutines  of  the  CBT/CS/CSS  Merge  Module 
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201 

202 

203 

204 

205 

206 
207 
206 

209 

210 
21  1 
212 

213 

214 
21  5 
216 
217 

21  3 
219 
2  2  C 
221 
222 

223 

224 

225 
2  2  6 
227 

22  6 

229 

230 

231 

232 

233 

234 

235 

236 

237 
2  3  £ 
2  3  9 

240 

241 

242 

243 

244 

245 
24c 
24  7 
24d 

249 

250 


C 

C 

c 


c 


90 


95 

100 


PB=AL0SS (2,1 ,  ID) 

PR=AL0$S  C,2,  ID) 

DIRECT  L  0  S  S  c  S 
DB  =  AL0SS  (3,1  ,  ID) 

DR=ALOSS (3  ,2,  ID) 

EXTERNAL  LOSSES 

E3=UX8/(1.C-exe))*ALOS$(1,1*ID5 
ER=(EXR/(1 •  0-E  X  R ) )*ALOSS(1 , 2  ,  ID) 

THRU  100,  SUM  INDIRECT  LOSSFS  ALSO  CREDIT  INDIRECT  WPNS 

31=0.0 
R I =0 . 0 

DO  100  l  *  5  ,  I  D  I  M 

L X  =L  +  L I M  D- 4 

XB  =  AL0SS ( L  ,  1  ,  I  D  ) 

XR  =  ALOSS (L.2,  ID) 

IF (  (XP.LE.O.Jl )  .AND  .  < XR.LE  .0.01  ))  GOTO  IOC 

3i=ei*xe 


RI =R  I  *X  R 

6M0D1 =C$C$S (1  ,15,  LX) 
RM0D1=CSCSS(2,LX,I3) 

3M0D2=CSCSS  (1  ,LX  ,  IR) 
RMOD2=CSCSS(2,IP,LX) 

CREDIT  KILLS  TO  INDIRECT  WEAPONS 

DO  9  0  I V  =  1  ,4 

CV=CVAL$(IV,IP,2) 

I F (TVALON)  CVOPT=CV 
5  U  =  R  C  A  S (IV)*XR 

5<lVv1vLX)=B(IV,1vLX)+cU+CV0PT 
3(5,1, LX) =6(5,1 ,LX)+£U*CV 
3M=6U*9*0D2 

6( IV, 2, LX ) =9 ( I  V ,2, LX) +3M  +  CV0PT 
B(5,2,LX)=8(5,2,LX)4BM*CV 
CV  =  CV ALS  (  IV,  I?  ,  1  ) 

IF (TVALON )  CvOPT  =  C  V 
RU  =  SC AS (  I  V  )  *a9 


R  (  I  V  ,  1 ,LX)=R(IV,1,LX)*RU*CV0PT 

R(5,1,LX)=R(5,1,LX)+RU*CV 

RM=RU*RMODl 

R(lV,2fLX)=R(IV,2,LX)^RM*CVOPT 

R(5,ZtLX)=R(5,2,LX)+RW*CV 


CONTINUE 

DO  95  I  1 5 =KLI M , 5 , KSTEP 

9(115,1  fLX)=3(I15,1  ,LX)+XR*CVALS(5,IR,2) 
B(I15,2,LX)=3(n5,2,tX)+XQ*9*0D2*CVALS(5,IR,2) 
R(I15,1,LX)=R <115, 1,LX)4X9*CVALS(5, 13,1) 
R(I15,2,LX)=R(I15,2,LX)4X3*PM0D1*CVALS(5,IB,1) 

CONTINUE 

CONTINUE 

FOR  INDIR  F I R  c  WPN,  IGNORE  THE  TYPE-ON-TYPE  ALLOCATION 
IF(I£.GT.LIWD)  A  8  =  1  .0 
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F  -  35 


CAA-D-84-14 


251 

252 

253 

254 

255 

256 

25  7 
2  5  S 
259 
2  6  G 

26  1 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
26  1 
232 
2^3 
284 
235 
286 
287 
2  5  3 
289 
2  9  C 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 


IFCIR.6T.LIMD)  AR  =  1 .0 
AS  TOT (10) =ABTCT < ie ) 4 AB 
ART3T(IP)=ART0T(IP)4Ao 

IF  (ID.EQ.1)  THEN 

START  (15,1 )  =  S  T  A  R  T ( I  B  ,  1 )  +  A  8 
STARTUP, 2)=START(IR,2)+AR 
EN  D  I  F 

3T0T  =  CB  +  E6  +  3 I 
RTOT=DR+ER+RI 
3  N  E  T  =  D  B 
X  =0  3  +  S  I 

IF  (X  .  GE. ZTOL)  BN6T  =  BNET+E3*DB/X 

ft  N  E  T  =  0  R 

X=DR4RI 

IFCX.GE.ZTOU  RN0T=PNBT4£R*OR/X 
IF (BTOT.GE. ZTOL)  THEN 
BXR=RNET/BTOT 
ELSE 

9XR=RNET 

ENOIF 

C  FOR  INDIR  FIRE  WPN,  TAKE  KILLS,  NOT  XCHANGE  RATIO 

I  F  (  I  B  .  GT  .  LIMD  )  B  X  R  =  RN  E  T 
IF(RTOT.GE.ZTOL)  then 
RXR=9NET/RTOT 
ELSE 

R  X  R  =9N  ET 
ENDIf 

C  FOR  INDIR  FIRE  WPN,  TAKE  KILLS,  NOT  XCHANGE  RATIO 

IF  (  IR  .  G  T .  L  I  v  D  )  RXR=0NET 
BSUM=BSUM4AB*0X  P 
R$UM=RSUM4AR*RXR 

IF(IE.GT.LIMD)  0AL(I8-LlMD)=0AL(IB-LI*D)+0TOT 
IF (IR •GT.LI*D)  RAL(IR-LlHD)=RAL(IR-LI^D)+RTOT 

c 

C  UPDATE  GLOBAL  ROy /COLUMN  EXCHANGE  ARRAYS 

C 

ZLOSS  (I?  ,  1 )=ZLOSS (IB,1 )+0TOT 
ZLOSS  <IR  ,2)=ZLOSS(IR ,2) +RTOT 
GBN  ET=G3NET>3NET 
GRNET=GPNET4RNET 
C 

1000  CONTINUE 

3S  CORM  =  BSUM*0MOD 
RSCOR"=RSUM*RMOD 

C  UPDATE  *AIN  ACCUMULATOR  ARRAYS 

DO  1800  I V -1 ,4 
CV=CVALS(IV,IR,2) 

I  F  (  TVALON )  CVOPT  =  C V 
C  UNMODULATED 

B  U  =  R  C  A  S ( IV) *  3  S  U  M 
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301 

302 

303 

304 

305 

306 

307 
3  0  c 

309 

310 

31  1 

312 

313 

314 

315 

316 

317 
313 
319 

32  0 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

33  1 
332 
3  33 

334 

335 

336 

337 

338 

339 

340 

34  1 

342 

343 
3  4  4 

345 

346 

347 

348 

349 

350 


GBU=RCA$ (IV)*GRNET 
C  MODULATED 

5  M - R  C  A  S  (  IV) *3SCCF* 

C  COMPONENT  OF  4-VECTOR 

B ( I V  1 1 9  IB)-8(IVt1 *IS)+dU*CVOPT 

OMEGAEClVtl »IB,1 )=OM£GAE (  I  V  *  1 »  I  *?  f  1  ) ♦GBU*CVOPT 
C  SCALAR 

a<5,1,IB)=BC5,1,ie)+8U*CV 

0MEGAE(5,1,l3,1)=0ME6AE(5,1,IB,'')+G8U*CV 
B(IV, 2, 16)  =8 (IV, 2, IB)+6M*CV0PT 

OMEGAE(IV,3,ie,1)=GMEGAE(IV,3,IS,1)+GBU*BMOD*CVOPT 

B(5,2,IB)=B(5,2,I9)+BV*CV 

0MEGAE(5,3,I3,1)=0MEGAE(5,3,I9,1)+68U*8M0D*CV 
C  SIMILAR  SCHEME  AS  FOR  SLUE  ABOV^ 

CV  =  CVALS (  IV, 19 , 1 ) 

IF (TVALON)  CVOPT=CV 

RU=BCAS  (-IV)  *  R  S  U  M 

GRU=BCAS ( IV)*GBNET 

R  M  =  B  C  A  S  (IV)  *  R  S  C  OR  M 

R(IV,1,IR)=R(IV,1,IR)+RU*CV0PT 

OMEGAE( I V,1 , 1 R , 2) =OMEGAE ( I  V , 1 , 1 R ,2) *GRU*CVOPT 
R( 5 , 1 , IP ) =R (5 , 1 , IR ) ♦RU*CV 

OMEGAE(c,1,IR,2)=OMEGAE(5,1,IR,2)+GRU*CV 

R(IV,2,IR)=R(IV,2,IR)-*RM*CVOPT 

OMESAE(IV,3,IR,2)=OMEGAE(IV,3,IR,2)+GRU*RmOO*CVOPT 

R(5,2,IP)=R(5,2,IP)+RM*CV 

OMEGAE(E,2,IS,2)=CMEGAE(3,3,IR,2)+6RU*RMOD*CV 
1800  CONTINUE 
C 

CVRS=CV*  LS(5,ISt!) 

CvBS-CVALS (5,10,1) 

50  1810  I  1  5 -KL I H , 5 , K  STEP 
=  (115,1, I°1=0(M5,T,ISI‘*BSUM*CV‘'5 
0'tEGAE(I1511,!“t'n=0M£oAE(lT;,1,f?,1)+G»NET*CVH5 

au  1 5 ,2 ,  i«5  =e  f  n  5  ,i ,  is  j  ■‘sscosf-r vb5 

O4'E':Ae(I-tri3,IE.f)=CMEGAE(I1S,3,I“,1)*0PNfT»P1'OD*CVP; 
a  (  I  1  5  ,  1  ,I?3=R(I15,1 ,IR)  +  PSU**CV0S 

0MEGAE(iI3,1,  IRjJj  -OWE  G  A  E  ( 1  T  ?  ,  1  ,IF,2J+GBNET*CVH5 
R(I15,aiI’)=RUl5,2,I!tI*RSCOSi'i*Cvn5 

0-EGAF(  IIS ,3,  !  R . 2  )  =  ChEGAeH IS ,1 , I*, 21 *G3NET « F *OD*C V? ' 
1  &  1 2  CONTINUE 
C 

2  'T  CONTINUE 

TO  CONTINUE 

C 

F=FRACLF 
XND  =N0 
C 

C  FILL  GLOBAL  ARRAY  FOR  CIPS,  DIRECT  EIRE. ..AND 

C  NORMALIZE  SCOPES  TO  FRACTIONAL  LIVES 
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351 

352 

353 

354 

355 

356 

357 
3  5  8 
359 
3  6  C 
361 
36  2 

363 

364 

365 

366 

367 
3  6  6 
36  9 

370 

371 

372 

373 

374 

375 

376 

377 
3  7  6 
379 
3SG 

361 

362 
333 
364 
385 
366 
387 
7  3  8 
389 
3  9  C 

391 

392 
T9  3 

394 

395 

396 

397 
7  9  5 
7  9  9 
400 


2600 
2  70G 
2  8  0G 

C 

C 

c 


2  3  7G 
2380 
2890 


C 

C 


DO  1*00  15=1 *2 
D  D  -  0  I  V  %  f  1  $  J 
JO  2  700  1h  =  1,  LI*0 
QZ L05=lLOS5t:y,TS) 

1F(GIL05 *  L  £  *  j  *  0  3  GZLO5=1.0 
GZ  =F /OZLOS 
00  2tZ2  I  v  =  1 . 5 

OP,EBAE(rvf11lutJSJ=Ol"CG*e(IV*1TJtffIS)*eZ*STaRT(T^tisWOD 

j  *  £  I?  A  ?  if  v  «  4  ,  ;  W  T  I  5  )  =  0  M  E  G  a  €  <  I  V  *  3  *  I  ii  ,  I  5  J  *  G  z 

OPEGAE  <  rv  iltiu  tIS  >=Dr*FGAe  (  I  V  ,  1 1  1 ,  1  S  3  *&Z*STAFT<  JhJSW&O 

CONTINUE 

CONTINUE 

CON  T  I  NUT 


fill  global  array  for  indirect  fire 


DO  2890  l$=1,2 
DO  2680  IW=LIM0+1 fNTYPS(IS) 
IIW=IW-LI¥D 
I  F  (  IS  .EG  .  1 )  THEN 
GZL0S=3AA (I IW ) 

G  A  A  =8  A  A <II» ) /DI VS (1  ) 

ELSE 

GZLO£=RAA (l iw) 

6 AA=R A  A ( I  In ) /D IVS (2 ) 

END  I  F 

IF(GZLOS.LE.O.O)  GZL0S=1 .0 
GZ=F/GZLOS 
DO  2870  IV=1tc 
I  F  (I  s . E o  .  n  THEN 
2S=3  f  rv , 1 1 I w) *Ql 
G«EGAM  I  V  ,  1  ,  i  M  rT  )  =Z.G*6AA 
CwEGAE|jVl^|lB,t']=jG 
£G»B  (  TV  *GZ 

OUE.GAE  t  IV,  3,  IW,  1  )  =ZG*GAA 
O^EGAE  lWt1  )  -IG 

ELSE 

ZG=RCTv,1,lw)*6Z 
0MEGAE(.IV11,IW,2)=ZG*GAA 
OMEGAE ( I  V , 2 , I W , 2 ) =Z  G 
Z  G  =  R ( I  V , 2 , IW ) *GZ 

OTEGAE (IVt5tIW,2)=ZG*GAA 
0  M  E  G  A  E <  IV, 4  T  IW,2) =ZG 
E  N  D  I  F 
CONTINUE 
CONTINUE 
CONTINUE 
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F-38 
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40  1 

402 

403 

404 

405 


40  6 
4  C  7 


408 

409 
4  1  0 
41  1 

41  2 
413 
4  1  4 

415 

416 

417 

418 

419 

420 

421 

422 

423 

42  4 
425 
42c 

427 

428 

429 

430 

43  1 
432 


433 

434 

435 

436 

437 

438 

439 
4  4  Q 
44  1 


4  4  2 
442 
4  4  4 


445 

446 

447 
44  £ 
44  9 
450 


C  FILL  ARPAY  FOR  COPS 

C 

DO  2CCO  19=1 , NTYRS (1 3 
C  SKIP  IF  A  N  ON  -  D IVISIONAL  BLUE  WEAPON 
IF  (  3NDWCI93  3  GOTO  3G00 
FU  Z  Z  =  1 .0 

IFUB.GT.LIMD)  THEN 
BALX=e*L ( ie-LIMD 3 
I  F  (6ALX  .  LE .0 . 5  3  9ALX=1 .0 
FUZZ=XND*BAA(ie-LIMD)/PALX 
END  I  F 

DO  2  9G0  IV=1,e 

BTUV,1)=9TUV,1)*8UV,1,I33*FU7Z*FRAXU3,1) 

aTUV,2)=3TUV,2)+3UV,2,I3)*FUZZ*FRAX(I3,1) 

2900  CONTINUE 
3000  CONTINUE 

DO  4000  IR=1 , NT YPS (2 3 
C  SKIP  IF  A  RED  N ON -D I  V  I S I  0 N A L  TYPE 
IF  (  PNDi(IP)  3  GOTO  4000 
FUZZ=1 .C 

IFUS.GT.LIMD)  THEN 
RALX=RAL(IR-LIMD) 

I  F  (RALX  .  LE  .0 . 5  3  RALXU.C 
FUZZ=XND*RAA ( I R-LIMD)  /  RALX 
EN  D  I  F 

DO  3900  I V=1 ,5 

RT(IV,1)=RT(IV,1)+fi(IVf1,IR)*FUZZ+FRAX(IR,2) 

RT(IV,2)=RT(IV,2)+R(IV,2,IR)*FUZZ*FRAX(IR,2) 

2900  CONTINUF 
4000  CONTINUE 
C 

C  FILL  GLOBAL  ARRAY  FOR  COPS  —  DIRECT  g  INDIRECT  FIRP 

C 

DO  2760  I  S  =  1  ,  2 
DO  3750  IW=1 , NTYPS (IS) 

IF((IS.FQ.1).4ND.BND'«(1W)3  GOTO  3750 
IF(  (IS. E9.2). AND. RNDW (I U 3)  GOTO  3750 
DO  3740  I V=1 , 5 

OMEGAC (IV , 1 ,IS )=OMEGAC ( I  V, 1 » IS) fOMEGAE ( IV , 1 . IW,  IS  3  * 

1  F  R  A  X  (  I  W  ,  I  S  3 

OMEGAC(IV,2»IS)=OM£GAC(IV,2.IS)*OMEGAF(IVt3,IW,IS)« 

1  FR  AX  < IW,  IS ) 

3740  CONTINUE 
2750  CONTINUF 
3760  CONTINUE 
C 

C  OUTPUT  RECORDS  TO  MINFO 

C 

C  FACX=F/XND 

C  DO  5CCC  I B  =  1  ,  NTYPS ( 1 3 
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F-39 
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FRX=FRAX (13,1) 

FAC=FACX 
FAC1 =ABTOT(IB) 

IF  I  NO IR  WPN  ,  SET  GLOBAL  ALLOC  (BAA)  5  LOSS  (SAL) 
I  F  (  IB  .  GT  .  L  IMD )  THEN 
F  A  C 1 =1  .0 

9ALX=8AL(I3-LIMD) 

I F (BALX  .LE  .  0 . 5  )  3ALX=1.0 

FAC=BAA(IB-LIWD)*F/9ALX 
END  I  F 

IF (FAC1 .IE. 0.01 )  GOTO  5000 
FAC=FAC*FRX/DIVS (1 ) 

UNMOD  9LUE  SCORES  FOR  WPN 
CALL  F I LL ( 1 , ie  ,USC0R , 1  ,  B  ,  FAC  ) 

CALL  OUTREC ( 1 0  ,  IB , B ( 1 , 1 , IB )  ,  FA C ) 

UNMOD  BLUE  CIP  FOR  WPN 
FAC2=F/ FAC1 

IF(IB.GT.LIMD)  FAC2=F/BALX 
FACZ=FAC?*FRX 

CALL  F  I  LL (1  ,  IB  ,UC  IP  ,  1  ,9  ,  F AC2) 

CALL  OUTREC(3C,I3,B(1,1,IB) ,FAC2) 

MOD  BLUE  SCORES  FOR  WPN 
CALL  FILLO  ,  I  B  ,  M  S  C  0  R  ,  2 . 3  ,  F  A  C  ) 

CALL  OUTPEC ( 50  ,  IB ,e ( 1 , 2 , 13 )  ,  FA C ) 

MOD  BLUE  CIP  FOR  *  P  N 

CALL  F  ILL ( 1 ,I8,MCIP,2,B,FAC2) 

CALL  0UTR=C(70,I6,B(1,2,IS)  ,FAC2) 

5000  CONTINUE 

DO  5100  IR  =  1  ,NTYPS (2) 

FRX=FRAX(IR,2) 

FAC=FACX 
F  AC  1 =AR  TOT ( IR ) 

IF  INDIR  WPN,  SET  GLOBAL  ALLOC  (PAA)  S  LOSS  (RAL) 
IF(IR.GT.LIMD)  THEN 
F  A  C 1 = 1  .0 

RALX=PAL(IR-LIMD) 

IF(PALX.LE.0.5)  RALX  =  1  .0 
FAC=RAA(IR-LIMD)*F/RALX 
EN  D  I  F 

I  F  (  F AC  1  .  LE  .0 .01  )  GOTO  5100 
FAC=FAC*FRX/DIVS (2) 

UNMOD  RED  SCORES  FOR  «PN 
CALL  FILL(2, IR,USCOR,1 ,R,FAC) 

CALL  CUTREC(20,IR,R(1,1,IR),FAC) 

UNMOD  RED  CIP  FOR  WPN 
FACZ=F/FAC1 

IF(IR.GT.LIMO)  FAC2=F/RALX 
FACZ=FAC2*FRX 

CALL  F  ILL  (2 ,  IR  ,UCIP  ,  1  ,  R , FAC2 ) 

CALL  0UTREC(4C,IR,R(1,1,IR),FAC2) 
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45  1 

c 

452 

c 

453 

c 

454 

c  c 

455 

c 

454 

c 

457 

c 

458 

c 

459 

c 

460 

c 

461 

c 

462 

c 

463 

c  c 

464 

c 

465 

c 

466 

c  c 

467 

c 

466 

c 

46  V 

c 

470 

c 

471 

c 

472 

c  c 

473 

c 

474 

c 

475 

c  c 

476 

c 

477 

c 

478 

c 

479 

c 

4  C  0 

c 

48  1 

c 

482 

c 

483 

c  c 

4  8  4 

c 

485 

c 

486 

c 

487 

c 

4  S  8 

c 

489 

c 

4  9  G 

c 

491 

c 

492 

c  c 

493 

c 

494 

c 

495 

c  c 

496 

c 

497 

c 

496 

c 

499 

c 

500 

c 

Figure 

F-! 

F-40 
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501 

502 

503 

504 

505 
5  0  6 
507 
5  0  £ 
509 
5  1  C 

511 

512 

513 

514 
51  5 

516 

517 
516 

519 

520 

521 

522 

523 

524 
q  2  5 
c  2  6 

527 

528 

529 
5  3  C 

531 

532 
c  3  3 

534 

535 

536 

537 

7  3 

539 

540 
54  1 

542 

543 

544 

545 

546 

547 

548 

549 

550 


C  C 
C 

c 

c  c 

c 

c 

C  5100 

c 

c  c 
c 

c  c 

c 

c 

c  c 
c 

c  c 

c 

c 

c 

c 


5170 

51*0 

5190 

C 


c 

c 

c 

c 

c 


5800 


WOO  RED  SCORES  FOR  WPN 

CALL  FILL(2,IR,MSC0R,Z,R,FAC) 

CALL  0UTREC(60tIRfR(1f2fIR) ♦  F  A  C  ) 

MOD  RED  CIP  FOR  WPN 

CALL  FlLL(2,IR,MCIPt2,R,EAC2) 

CALL  OUTP5C(80,IRfR<1f2fIR>tFAC2) 

CONTINUE 

FACB-FACX/OIVS  (1  ) 

UNMGD  PLUE  COP 

CALL  OUTREC (1 1 ,Q,5T(1 , 1 ) , FACB) 

WOD  BLUE  COP 

CALL  OUTREC (51  ,C,BT(1  ,2)  ,  FACB) 

FACR=F ACX/DIVS  ( 2 ) 

UN WOO  RED  COP 

CALL  OUTREC  (2  1  ,C  ,  RT  (  1  t  1  )  ,  F  AC  R  )’ 

WOO  RED  COP 

CALL  0UTREC(61  ,C,RT(1  ,2)  , FACR) 

OUTPUT  GLOBAL  SCORES, CIPS,  &  COPS 
1.  SCORES  &  CIPS 
DO  5190  IS*1,2 
DO  5  1  PO  IW=1 , NTYPS ( I S) 

00  51  70  I R E C - 1  *  4 

CALL  OUTGLO  (ISNOdREC  ,  IS)  ,  IWf  OWEG*E  ( 1  » I  RECf  I  W  f  I  S  )  f  FR  AX  (  I  W  ,  I  S  )  ) 

CONTINUE 

CONTINUE 

CONTINUE 

2 «  COPS 

A.  BLUE  UCOP 

CALL  OUTGLO  <11 ,0 ,OME«AC (1 , 1  , 1 > , 1 .0) 

P.  BLUE  WCOP 

CALL  OUT GL 0(51, 0,OMEGAC<1f2,1)f1.0) 

C.  RED  UCOP 

CALL  0UT6L0(21,C,CMEGAC(1,1,2),1.C) 

D .  RED  MCOP 

CALL  OUTGLO  <6l  , 0, OMEGAC  <1 , 2,2  )  ,  1  .0) 

OUTPUT  RAW  KILLS  $  LOSSES 

DO  6C00  I S  =  1 ,2 
DD  =  D I  VS ( I S ) 

DO  5800  IW  =  1 , LIWD 

IF(START(Iw,IS).LE.C.01)  GOTO  5  *  C  0 
GZLOS=ZLOSS  (IWf  IS) 

IF(GZLOS.LE.G.OI)  G2 LOS =1.0 
3Z=(GZL0S*DD)/(FRACLF*START(IW,IS)) 

CALL  OUTRAW (IS  f IW  f OMEGAE  <1 , 1 f IWf IS)  f GZ , ZLOSS  <1* , IS)  ) 

CONTINUE 

DO  59CQ  IW  =  LIWD  +  1  , NTYPS (IS) 

IF(CIS.EQ.I). AND. (BAA(IW-LI^O).LE. 0.01))  GOTO  5900 
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55  1 

552 

553 

554 

555 

556 

557 

5  5  8 

559 

5900 

5  6  0 

60  0  G 

56  1 

C 

562 

c 

563 

c 

564 

c 

565 

c 

566 

C  5  2  00 

567 

c 

56c 

c 

569 

c 

570 

C  5  300 

571 

c 

572 

c 

5  73 

c 

574 

c 

575 

c 

576 

c 

577 

C  1  0000 

575 

c 

579 

c 

5  3  G 

c 

561 

c 

582 

c 

583 

c 

5S4 

c 

555 

c 

586 

c 

587 

C  2 C 000 

538 

c 

569 

C201GC 

590 

c 

591 

c 

592 

C  2C200 

^93 

c 

594 

c 

595 

c 

596 

c 

597 

c 

598 

c 

599 

c 

600 

c 

IF ( (IS.EQ.21 .and. (RAA( IW-LIMD) .LE.0.01) )  GOTO  5R00 
I F ( IS  .EQ  .  1  )  THEN 
GZL0S=5AL( IW-LIMD) 

ELSE 

GZ10S=RAL (IW-LIMD) 

END  I  F 

GZ=DD/ FPACLF 

call  0UTRAW(IS,IW,0MSSAE(1,1,IW,IS)  , GZ , GZ  LOS  ) 

CONTINUE 

CONTINUE 

DO  5200  IC  =  1  ,  I  C  I  D  T  P 

UC0P(1,IC)=9T(IC,1)*FACB 

UC0P(2,IC)=RT(IC,1)*FACR 

CONTINUE 

DO  5  3  00  IC  =  1  *  I  C  I  P  T  P 

"COP ( 1 ,  IC ) =BT ( I C , 2 ) *  FAC3 
MC0P(2,IC)=RT(IC,Z)*FACR 
CONTINUE 
SIZES (1 )=M 
SIZES  (2)=N 
I0PTR9=1 

I0PTRS=I0PTRB+PREF4*ICIPTP 

WR  I  TE( I U11 'IOPTRB , 10000, ERR  =  200CC) 

S  ( ( (UCIP(I.J.K) ,  K  =  1 , ICIPTP) ,  J  =1 ,SIZES (I) ) *1*1 ,25 
FORM  AT  (SCO (500F1 0 .3 )) 

I0PTRB=2 

I0PTRB=I0PTR9+PREF4*ICIPTP 
WRITECIUll'IOPTRB, 10000, ERR=20C0P) 

5  <(<USC0R(I,J,K),K  =  1, ICIPTP), J  =  1,SIZES(I)5, 1*1, 2) 
I0PTRB=4 

I0PTRB=I0PTR9+PREF4*ICIPTP 
WR I TE ( IU1 1 'IOPTRB , 100C0,ER  R  =  200CC) 
a  <(UC0P(I,K),K*1, ICIPTP), 1  =  1,  2) 

GOTO  20200 
CONTINUE 

wRITE(6.20130)  IOPTRB 

FORM  AT ( 1 X  ,33 ( 1 H*  )  ,  5X , 'UNMOD I f I CD  4-VECTOR  WRITE  ERROR' 
a  ,1X,'I0PTRF=  ',11 ,5X,3C(1H*)) 

STOP 

CONTINUE 

I0PTRC=1 

I0PTRC=I0PTRC>PREF4*ICIPTP 
WRITE(IU12'I0PTRC ,10000 ,ERR=300C0) 
a  ( ((MCIP(I  ,  J  ,  K  ) ,K=1, ICIPTP)  ,J=1 , SIZES (I) )  ,1=1,2) 

I0PTRC=2 

I0PTRC=I0P'rRC  +  PREF4*ICIPTP 
WRITE(  Iul 2'IOPTRC , 10000, ERR=30C00) 

6  (((MSC0R(I,J,K),K=1, ICIPTP), J=1,SIZES(I)J,  1=1,  2) 
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6  C 1 
6  0  2 

603 

604 

605 

606 
607 
60  £ 

609 

610 
611 
612 
613 
6  1  4 
61  5 
616 
617 
615 

61  v 
620 
621 
A  2  2 

62  3 

62  4 
625 


625 

629 

630 

63  1 

632 

633 

634 

635 
4  3  6 
637 
635 
639 
6  4  0 

64  1 
642 
6  4  3 

644 

645 
6  4  6 
647 
6  4c 
6  4  9 
650 


C  I0PTRC=4 

C  IOPTRC=IOPTROPREF4*ICIPTP 

C  WRITE(IU12'IOPTRC,1GQGO,ERR=30COC) 

C  &  ((yCOP(I,K)  #K  =  1fICIPTP)  ,1=1,2) 

C  GOTO  3020C 

C  3 C DOC  CONTINUE 

C  WP ITE (  6 ,301  00  )  IOPTRC 

C3C1G0  FORMAT (1x,33(lH*) ,5X, 'MODIFIED  4-VECTOR  WRITE  ERPOR' 
C  &  ,1X,'I0PTRC=  ",  II  ,5X  ,30(1H*)) 

C  STOP 

C  3  0  2uG  CONTINUE 
RETURN 

C  DEBUG  SUBCHK,  INIT, SUBTRACE 

C  AT  2 

C  TRACE  ON 

END 
C 
C 
C 

c  c 
c 

C 

c 
c 
C 

c  c 

C 

c 

C  5  C 

c 
c 

C  100 

c 

c  c 

c  200 
c 
c 

C  C 

C  1 

c 

c  c 


SUBROUTINE  OUTREC (ISCNT ,IDW,R, FACTOR) 

DIMENSION  R ( 5 )  *  S ( 5 ) 

CHARACTER*3  kthtr 

COMMON/AWRK/IWRK,IDU%JTHTR,JTPD,JVIS,JPOS,JDAY 
COMMON/GLOBAL  /  IBFOR  ,  IRFOR, JCASE 
COMMON/CHAR/KTHTR 

DO  50  1=1,5 
S  ( I  ) =R ( I ) *  FACTOR 
CONTINUE 
DO  100  1=1,5 

IF(Sm.GT.J.O)  GOTO  2CQ 

CONTINUE 

RETURN 

*RITE(IWRK,1)ISCNT,KTHTR.JTPD,JVIS,JP0S,JDAY,IDw, 
1  S  (1  )  ,S(2)  ,S(3)  ,S(4)  *  S  C  5  5  ,IBFOP, IRFOR, JCASE 
RETURN 

FORMAT  (15,  A3, 14,313, 15, 5  FIG. 3, 216. 15) 

END 


C  SUBROUTINE  F  ILL(  I  ,  J , A ,K ,9 , FAC ) 

DIMENSION  A(2,6C, 4) ,8(5,2,60) 

CC  I  =  SIDE  ID 

CC  J  =  WEAPON  ID 

CC  A  =  ARRAY  TO  3  E  FILLED 

CC  K  =  1  IF  UNMODIFIED  AND  2  IF  MODIFIED 
CC  =  =  ARRAY  CONTAINING  NUMBER 

CC  FAC  =  "ULTIPLICATION  FACTOR 
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65  1 

C  C 

6  5  Z 

C 

DO  ICO  I  C  =1  *  4 

653 

C 

A  <  I  ,  J  ,  IC ) =B  <  IC  ,K  ,  J  3  *FAC 

654 

C100 

CONTINUE 

655 

c 

RETURN 

656 

c 

END 

657 

c 

658 

SUBROUTINE  ZEROCX.N) 

65^ 

DIMENSION  X (N) 

660 

DO  100  1*1, N 

661 

X ( 1 3  =0  -  0 

6  6  2 

100 

CONTINUE 

463 

RETURN 

664 

EN  D 

665 

c 

SUBROUTINE  OUTGLO(ISCNT,IDW,R,FRX) 

666 

667 

DIMENSION  R (S )  ,  S  (5  ) 

663 

CHARACTER *3  KTHTR 

669 

C0'"10N/AWRK/IWRIC,IDU«,JTHTR,JTPD,JVIS, 

670 

COMI*ON/Gl03AL/IBFOR,IRFOR,JCASE 

671 

C0MM0N/CHAR/KTHTR 

672 

c 

673 

DC  5  C  1=1,5 

674 

IF(Rd).GT.C.O)  GOTO  100 

675 

50 

CONTINUE 

676 

RETURN 

677 

c 

673 

ICQ 

DO  2  CO  1*1,5 

679 

S ( 1 3  =FRX*R  (I 3 

6  8  0 

200 

CONTINUE 

631 

c 

632 

WRITE(2°,1)  ISCNT,KTHTR,JTPO,JVTS,JPOS 

633 

1  SCI)  ,S  (2)  ,  S  C  3  ,  S  (  4  )  ,S(5)  ,IBFOR,IPFOR, 

6  3  4 

RETURN 

6  6  5 

c 

4  5  6 

1 

F0RMAT(I5,A3,I4,3l3,l5,5Fl0.3,2!ft,l53 

6  o  7 

END 

6  S  8 

c 

639 

SUBROUTINE  GETCAT 

690 

CCMMON/CATVAL/CVALS(5,cO,2) 

69  1 

c 

692 

CALL  ZEROCCVALS  ,600) 

693 

c 

6  9  4 

100 

READ  (5,1  ,END  =  1CC0)  ISIDE,IDW,(CVALS(J, 

695 

1  1,5) 

696 

GOTO  100 

697 

1 

FORMAT ( 2 13 , 5  F7 . 3 ) 

6  9  8 

c 

699 

1000 

RETURN 

70Q 

c 

j  = 
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"G 1 
702 
70  5 
7C4 
7Q  5 
7  G  6 
"07 
7  0  8 

70  9 

710 

711 

71  2 
71  3 

714 

715 
71  6 
71  7 
7 1  8 
719 
"2  0 
"2  1 
722 
"23 
"24 
725 
7  2  6 

727 

728 

729 
73  0 
7  3  1 
732 
"33 

734 

735 

736 

737 
736 
7  3  9 
740 


END 

C 

SUBROUTINE  OUTRAV(IS,I*,RtGZ,GZLO$) 

DIMENSION  R(5)  ,  S  (5) 

C 

DO  ICC  1=1,5 
S  < I ) =R ( I ) *GZ 
100  CONTINUE 
C 

WR ITE (6 , 1 )  ISflWf(SCl)  ,1=1,5)  ,G2L0S 
RETURN 
C 

1  FORMAT ( '  SID£  =  ",I2,"  I DWPN= '  ,  I  3  ,  '  K I L L S = ' , 5 F  1  C  .  3  , 

1  '  LCSSES=', F1C.3) 

C 

END 

C 

SUBROUTINE  GETFRX 
COMMON/ FRACTS/FRAX  (60,2) 

C 

CALL  ZEFOCFRAX, 1201 
C 

100  READ(5,1,END=10C0)  IW,FRAX(Iw,1 ) , FRAX(IW, 2) 

GOTO  ICO 

1  FORMATO 
C 

^000  RETURN 
C 

END 

C 

SUBROUTINE  OUTPAR 

COMMON/ AURK/IWRKfI$CNT ,JTHTR ,JTPD,JVIS,JPOS  ,JDAY 
COMMON/GL09Al/IBFOR,IRFOR,JCASE 
COMMON/ CHAR/KTHTR 
CHARACTERS  KTHTR 

REA  D  (  5  ,  1  )  IC0M90  ,  J  T  P  D  ,  1C  T  H  T  R  ,  J  V  I  S  ,  J  D  A  Y  ,  J  P  0  S  ,  IBFOR  ,  IR  FOP 
RETURN 

1  FORMAT (213, A3, 313, 216) 

END 
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(e)  BNDW(60).  The  logical  array  BNDW()  identifies  Blue  weapons  as 
nondivisional  assets  as  appropriate.  The  array  is  initialized  to  .FALSE, 
throughout.  Then,  depending  on  input  to  array  BNDX( )  described  in  (4) 
immediately  above,  elements  of  BNDW( )  are  reset  to  .TRUE,  for  those  Blue 
weapons  earmarked  as  nondivisional.  Array  RNDW( )  is  the  Red  counterpart  of 
Blue  array  BNDW().  An  array  element  BNDW(I)  is  indexed  1=1  to  60  for  the 
60  Blue  weapons  types. 

(f)  RNDX(60).  The  array  RNDX()  receives  and  stores  the  weapon 
indices  of  any  Red  weapons  which  are  nondivisional.  If  there  are  only  N 
nondivisional  Red  weapon  types,  then  only  the  first  N  elements  of  RNDX() 
are  filled.  For  example,  during  AFP  system  development,  only  Red  weapon 
type  41  was  nondivisional.  Hence,  N=l,  and  RNDX(1)=41.  As  a  result  of 
entries  in  RNDX( ) ,  the  program  sets  the  corresponding  logical  value  in  the 
separate  array  RNDW( )  to  .TRUE,  for  nondivisional  weapons.  Array  BNDX( )  is 
the  Blue  counterpart  of  Red  array  RNDX(). 

(g)  RNDW(60).  The  logical  array  RNDW()  identifies  Red  weapons  as 
nondivisional  assets  as  appropriate.  The  array  is  initialized  to  .FALSE, 
throughout.  Then,  depending  on  input  to  array  RNDX ( )  described  in  (6) 
immediately  above,  corresponding  elements  of  RNDW( )  are  reset  to  .TRUE,  for 
those  Red  weapons  earmarked  as  nondivisional.  Array  8NDW( )  is  the  Blue 
counterpart  of  Red  array  RNDW( ) .  An  array  element  RNDW(I)  is  indexed  1=1 
to  60  for  the  60  Red  weapon  types. 

(h)  CVALS(5,60,2).  The  array  CVALS()  receives  and  stores  target 
values  described  in  paragraph  F-2.b(l).  An  array  element  CVALS ( I , J ,K )  is 
indexed; 

1.  1=1  to  5  for  the  correspondi ng  weapon  type's  target  value  in 
terms  of:  personnel,  light  armored  vehicle,  heavy  armored  vehicle,  air¬ 
craft,  or  anything  else. 

2.  J=1  to  2  for  the  two  sides:  Blue=l,  Red=2. 

3.  K=1  to  2  for  the  two  sides:  Blue=l,  Red=2. 

(i)  FRAX(60,2).  The  arrayFRAX()  receives  and  stores  lifetime 
adjustment  factors  described  in  paragraph  F-2.b(2).  An  array  element 
FRAX(I,J)  is  indexed — 

.1.  1=1  to  60  for  the  60  weapon  types  on  the  corresponding  side. 

2.  J=1  to  2  for  the  two  sides:  Blue=l,  Red=2. 

(j)  DIVS(2).  The  array  D I V S ( )  receives  and  stores  the  number  of 
divisions  involved  on  each  side.  The  array  element  DIVS(l)  is  indexed  I  = 

1  to  2  for  sides:  Blue=l,  Red=2. 


F -46 


CAA-D-84-14 


(k)  ISN0(4,2).  The  array  ISNO()  stores  the  record  type  identifiers 

that  must  appear  in  program  output  files  to  assure  correct  interpretation 
of  output  in  terms  of  unmodulated  and  modulated  scores  and  CIPs.  An  array 
element  ISN0(I,J)  is  indexed; 

L.  1=1  to  4  for:  unmodulated  score,  unmodulated  CIP,  modulated 
score,  modulated  CIP. 

2.  J=1  to  2  for  side:  Blue=l,  Red=2. 

(2)  The  contents  of  some  small  scratch  arrays  are  frequently  changed 
completely  during  program  execution. 

(a)  BCAS(4).  The  array  BCAS()  specifies  how  many  losses  are  to  be 
charged  to  each  target  category  for  a  loss  of  one  of  the  Blue  weapon  type 
currently  under  examination.  Every  time  program  control  shifts  to  a 
different  Blue  weapon  type,  array  BCAS()  is  filled  with  the  values  corre¬ 
sponding  to  the  current  Blue  weapon  type.  Typically,  no  more  than  two 
elements  of  BCAS()  are  nonzero  for  any  one  weapon  type.  Array  RCAS()  is 
the  Red  counterpart  of  Blue  array  BCAS ( ) .  An  element  BCAS(I)  is  indexed 
1=  1  to  4:  personnel  lost,  light  armored  vehicles  lost,  heavy  armored 
vehicles  lost,  aircraft  lost. 

(b)  RCAS(4).  The  array  RCAS()  specifies  how  many  losses  are 
charged  to  each  target  category  for  a  loss  of  one  of  the  Red  weapon  types 
currently  under  examination.  Every  time  program  control  shifts  to  a  dif¬ 
ferent  Red  weapon  type,  array  RCAS()  is  filled  with  the  values  correspond¬ 
ing  to  the  current  Red  weapon  type.  Typically,  no  more  than  two  elements 
of  RCAS()  are  nonzero  for  any  one  weapon  type.  Array  BCAS()  is  the  Blue 
counterpart  of  Red  array  RCAS().  An  element  RCAS(I)  is  indexed  I  =1  to  4: 
personnel  lost,  light  armored  vehicles  lost,  heavy  armored  vehicles  lost, 
aircraft  lost. 

(c)  AL0SS(14,2,2) .  The  array  AL0SS()  collects  in  one  place 
critical  information  about  engagements  between  a  specific  Blue  weapon  type 
and  a  specific  Red  weapon  type.  Whenever  program  control  shifts  to  con¬ 
sideration  of  a  different  Blue/Red  weapon  matchup,  array  ALL0SS()  is 
completely  refilled  with  the  corresponding  results  from  the  Combat  Module. 
Combat  Module  results  related  to  both  direct  fire  and  indirect  fire  and 
entered.  An  array  element  AL0SS(I,J,K)  is  indexed; 

1.  1=1  to  14  for  the  type  of  Combat  Module  result  (some  "result" 

may  be  a  throughput  of  Combat  Module  input). 

•  1=1.  The  number  of  weapons  of  the  current  type  allocated 
to  the  current  type-on-type  engagement. 

•  1=2.  The  number  of  weapons  of  the  current  type  partici¬ 
pating  in  the  current  type-on-type  engagement. 
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t  1=3.  The  number  of  weapons  of  the  current  type  lost  to 
direct  fire  by  the  opposing  type. 

•  1=4.  The  number  of  weapons  of  the  current  type  regarded  as 
lost  to  external  causes.  Although  this  value  continues  to 
be  extracted  from  Combat  Module  information,  the  estimate 
of  external  losses  applied  within  the  CBT/CS/CSS  Merge 
Module  is  computed  differently. 

•  1=5  to  14.  The  number  of  weapons  of  the  current  type  lost 
opposing  indirect  fire  weapons  of  indirect  fire  weapon  type 
1-4  or  general  weapon  type  W  =  HMD  +  1-4,  where  LIMD  =  50, 
the  number  of  direct  fire  weapon  types. 

2.  J=1  to  2  for  side:  Blue=l,  Red=2. 

3.  K=1  to  2  for  day.  All  applications  of  the  AFP  System  to  date 
have  been  confined  to  consideration  of  2-days  of  Combat  Module  activity.  A 
change  to  some  other  number  of  days,  ND,  implies  that  array  AL0SS()  be 
redimensioned  to  AL0SS(14,2,ND) . 

(3)  The  principal  working  arrays  for  accumulating  results  may  be 
updated  frequently  during  execution  as  program  control  loops  over  Blue 
weapon  types.  Red  weapon  types,  and  days. 

(a)  B(5,2,60).  The  losses  inflicted  by  Blue  weapon  types  are 
accumulated  in  B()  in  accordance  with  the  LER  method  of  projecting  losses. 
Array  R()  is  the  Red  counterpart  of  Blue  array  B().  An  array  element 
B(I,J,K)  is  indexed: 

1.  1=1  to  5  for  the  components  of  the  five-valued  form  of  losses 
inflicted:  personnel,  light  armored  vehicles,  heavy  armored  vehicles, 
aircraft,  and  the  weighted  (in  accord  with  target  values)  rolled-up  scalar. 

2.  J=1  to  2  for  the  unmodulated  and  modulated  losses  inflicted. 
AFP  terms,  the  losses  are  closely  related  to  scores.  That  is,  the  losses 
are  those  achieved  by  all  weapons  of  the  given  type.  At  this  stage,  it  is 
not  necessary  to  accumulate  CIPs.  The  calculation  of  CIPs  can  occur  much 
later  simply  by  division  of  the  scores  by  the  numbers  of  weapons  subject  to 
adjustment  for  lifetime  factors.  In  other  words,  it  is  not  necessary  for 
the  index  J  to  vary  from  1  to  4. 

3_.  K=1  to  60  for  the  60  different  Blue  weapon  types  permitted. 

(b)  R(5,2,60) .  The  losses  inflicted  by  Red  weapon  types  are  ac¬ 
cumulated  in  R()  in  accord  with  the  LER  method  of  projecting  losses.  Array 
B()  is  the  Blue  counterpart  of  Red  array  R().  An  array  element  R(I,J,K)  is 
indexed  similarly  to  the  scheme  described  for  B()  in  F-5.c.(3)(a)  above 
with  the  obvious  difference  that  the  K  index  for  R()  references  a  Red 
weapon  type. 
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(c)  BT(5,2).  The  array  BT()  serves  as  a  Blue  accumulator  array  for 
losses  inflicted  by  Blue  weapons  over  all  Blue  weapon  types  in  the  deter¬ 
mination  of  Blue  COPs  in  accord  with  the  LER  method  of  projecting  losses. 
BT(I,J)  may  be  considered  as  the  result  of  summing  B(I,J,K)  with  respect  to 
all  60. values  of  index  K.  Array  RT()  is  the  Red  counterpart  of  Blue  array 
BT().  The  array  element  BT(I,J)  is  indexed  in  accord  with  the  scheme 
described  for  the  I  and  J  indices  under  (a)  above. 

(d)  RT(5,2).  The  array  RT()  serves  as  a  Red  accumulator  array  for 
losses  inflicted  by  Red  weapons  over  all  Red  weapon  types  in  the  deter¬ 
mination  of  Red  COPs  in  accord  with  the  LER  method  of  projecting  losses. 
RT(I,J)  may  be  considered  as  the  result  of  summing  R  (I,J,K)  with  respect 
to  all  60  of  the  values  of  index  K.  Array  BT()  is  the  Blue  counterpart  of 
array  RT( ) .  The  array  element  RT ( I , J )  is  indexed  in  accord  with  the  scheme 
described  for  the  I  and  J  indices  under  (a)  above. 

(e)  BAL(IO).  The  array  BAL()  serves  as  a  Blue  accumulator  array 
for  losses  suffered  by  Blue  mortar  and  artillery  weapon  types.  In  the 
current  standard  version  of  the  AFP  System,  both  Blue  and  Red  inventories 
may  include  10  types  of  indirect  firers  as  weapon  types  51-60.  The  first 
50  weapon  types  on  each  side  are  considered  direct  fire  weapons  only;  this 
program  limit  is  represented  by  the  constant  HMD  =  50.  Hence,  the  Ith 
indirect  fire  weapon  type  is  the  (LIMD  +  Ith)  weapon  type  within  the  full 
weapon  sequence  of  types  1-60.  Array  RAL( )  is  the  Red  counterpart  of  Blue 
array  BAL( ) . 

(f)  RAL(IO).  The  array  RAL()  serves  as  a  Red  accumulator  array  for 
losses  suffered  by  Red  mortar  and  artillery  weapon  types.  Array  RAL( )  is 
the  Red  counterpart  of  Blue  array  8AL(),  and  the  remarks  about  BAL  in 
F-5.c. (3) (e)  immediately  above  with  respect  to  the  relation  of  weapon  type 
indexing  apply  to  RAL()  as  well. 

(g)  ABT0T(60).  The  array  ABT0T()  serves  as  an  accumulator  of  Blue 
weapon  allocations  by  type  over  all  days.  Array  ARTOT ( )  is  the  Red 
counterpart  of  Blue  array  ABT0T( ) .  An  element  of  array  ABT0T( I )  is  indexed 
1=1  to  60  for  the  60  different  Blue  weapon  types. 

(h)  ART0T(60).  The  array  ART0T()  serves  as  an  accumulator  of  Red 
weapon  allocations  by  type  over  all  days.  Array  ABT0T ( )  is  the  Blue 
counterpart  of  Red  array  ARTOT ( ) .  An  element  of  array  ARTOT ( I )  is  indexed 
1=1  to  60  for  the  60  different  Red  weapon  types. 

(i)  START(60,2).  The  array  START()  serves  as  an  accumulator  of 
Blue  and  Red  weapon  allocations  by  type  only  for  the  first  day  represented 
within  the  AFP  Combat  Module.  The  information  accumulated  within  START ( ) 
is  used  in  accord  with  the  GER  method  of  estimating  partial  combat 
potentials.  An  array  element  START(I,J)  is  indexed: 

1. »  1=1  to  60  for  the  60  weapon  types  on  the  correspondi ng  side. 

2.  J=1  to  2  for  side:  Blue=l,  Red=2. 
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(j)  0MEGAE(5,4,60,2).  The  array  OMEGAE( )  accumulates  information 
on  losses  inflicted  with  later  modification  by  the  losses  suffered  as 
accumulated  in  another  array,  ZLOSS ( ) -  The  array  0MEGAE()  is  the  principal 
array  used  in  the  develop  of  scores  and  CIPs  in  accord  with  the  GER  method 
of  estimating  partial  combat  potentials.  An  array  element  0MEGAE( I, J,K,L) 
is  indexed; 

1=1  to  5  for  the  five  components  of  five-valued  potentials: 
personnel,  light  armored  vehicles,  heavy  armored  vehicles,  aircraft,  and 
weighted  (in  accord  with  CVALS()  target  values)  scalar. 

2.  J=1  to  4  for:  unmodulated  score,  unmodulated  CIP,  modulated 

score,  modulated  CIP.  All  these  are  partial  in  the  sense  of  relating  to 
only  one  combat  environment. 

3 K=1  to  60  for  the  60  weapon  types  on  the  correspondi ng  side. 

4.  L=1  to  2  for  side:  Blue=l,  Red=2. 

(k)  0MEGAC(5,2,2) .  The  array  OMEGAC  accumulates  information  in  the 
determination  of  COPs  in  accord  with  the  GER  method  of  estimating  partial 
combat  potentials.  An  array  element  OMEGAC ( I , J , K )  is  indexed: 

1.  1=1  to  5  for  the  five  components  of  five-valued  potentials: 

personnel,  light  armored  vehicles,  heavy  armored  vehicles,  aircraft,  and 

weighted  (in  accord  with  CVALS()  target  values)  scalar. 

2.  J=1  to  2  for:  unmodulated  COP,  modulated  COP. 

3.  K=1  to  2  for  side:  Blue=l,  Red=2. 

(l)  ZL0SS(60,2).  The  array  ZL0SS()  accumulates  the  losses  suffered 
to  both  direct  and  indirect  fire  for  use  in  the  determination  of  partial 
combat  potentials  in  accord  with  the  GER  method.  An  array  element 
ZL0SS(I,J)  is  indexed; 

1.  1=1  to  60  for  the  60  weapon  types  suffering  losses  on  a 
corresponding  side. 

2.  J=1  to  2  for  the  side  suffering  the  loss:  Blue=l,  Red=2. 

(4)  Several  arrays  were  defined  for  use  in  a  currently  abandoned 

method  for  rolling  up  partial  combat  potentials  over  the  16  combat  environ¬ 
ments.  Although  the  arrays  are  retained  and  updated  within  the  current 
version  of  the  program,  the  arrays  need  not  be  mentioned  here  beyond  their 
i dent if i cation: 

(a)  USC0R(2,60,4). 

(b)  MSC0R(2,60,4) . 
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(c)  UCIP (2, 60,4) . 

(d)  MCIP (2,60,4) . 

(e)  UC0P(2,4) . 

(f)  MC0P(2,4) . 

d.  The  GGGTARTY  source  listing  in  Figure  F-9  includes  some  intral inear 
comments.  The  following  paragraphs  provide  some  additional  commentary. 

(1)  Lines  17  through  75  provide  the  needed  declarative  statements, 
many  to  establish  the  arrays  described  above.  Some  scalar  character  and 
logical  variables  are  also  declared.  Many  lines  begin  with  "C."  Some  such 
lines  are  ordinary  comments,  but  many  others  contain  deactivated  code. 

(2)  Lines  77  through  84  initialize  a  number  of  arrays  and  variables 
with  values  and  identifiers  needed  throughout  processing. 

(3)  Line  90  begins  the  executable  statements.  Line  90  calls  sub¬ 
program  OUTPAR  to  read  the  values  of  several  indices  and  parameters  to  be 
included  in  the  module's  output  records  of  partial  combat  potentials. 

Lines  91  through  103  initialize  several  variables.  TVAL0N  controls  whether 
target  values  are  to  be  included  in  the  output  partial  combat  potentials' 
first  four  elements  and  whether  other  weapons  (e.g.,  small  arms  and  SAMs) 
are  to  be  counted  (at  their  target  values)  with  personnel. 

(4)  Lines  104  through  106  zero  some  of  the  accumulator  arrays. 

(5)  Line  110  reads  several  case  and  combat  environment  identifiers 
against  which  records  in  the  CS/CSS  moduli  file  will  later  be  checked.  It 
is  essential  that  the  values  read  at  this  point  from  the  runstream  be 
identical  to  the  values  that  appear  in  the  CS/CSS  file.  However,  in 
current  AFP  practice,  some  values  used  have  no  particular  significance.  As 
noted  elsewhere,  most  AFP  data  control,  relative  to  division  type  or  period 
and  to  combat  environment,  is  provided  at  the  higher  level  of  file  name 
conventions . 

(6)  Line  113,  largely  for  reference,  computes  the  combat  environment 
index  (1-16)  from  the  visibility  (clear,  degraded),  day  (daytime, 
nighttime),  and  posture  (defense  intense,  defense  light,  delay,  attack) 
indices  just  read.  If  the  actual  indices  are  included  in  both  the 
runstream  and  the  CS/CSS  moduli  file,  the  following  logic  will  apply  a 
meaningful,  precise  test. 

(7)  Lines  119  and  120  read  a  single  record  from  the  CS/CSS  moduli 
file.  An  end-of-file  transfers  control  to  just  beyond  the  CS/CSS  moduli 
input  sequence. 
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(8)  Lines  122  through  130  apply  the  test  to  indices  within  a  record 
from  the  CS/CSS  moduli  file,  and,  provided  that  the  record  satisfies  the 
test,  store  the  moduli  with  the  corresponding  pair  of  elements  within  array 

cscss(). 

(9)  Line  134  reads  and  stores  the  numbers  of  Blue  and  Red  divisions 
given  in  the  runstream.  The  numbers  should  be  equal  to  the  numbers  of 
divisions  implied  by  the  weapon  inventories  as  they  were  input  to  the 
Combat  Module.  Recall  that  the  Combat  Module  "knows"  inventory  quantities 
but  never  "knows"  that  those  quantities  are  equivalent  to  NBDIV  and  NRDIV 
Blue  and  Red  divisions,  respectively.  The  CBT/CS/CSS  Merge  Module  needs 
the  numbers  of  divisions  so  tnat  later  it  can  normalize  total  achievements 
to  the  partial  potentials  "per  division's  worth." 

(10)  Lines  138  and  140  read  the  identifying  numbers  of  the  nondivi- 
sional  weapon  types  within  the  Blue  and  Red  inventories. 

(ID  Lines  142  through  151  zero  a  number  of  working  and  accumulator 
arrays. 

(12)  Lines  153  through  158  use  the  previously  read  identifiers  of 
nondivisional  weapon  types  to  set  the  corresponding  nondivisional  program 
flags  to  .TRUE,  within  arrays  BNDW()  and  RNDW(). 

(13)  Line  161  calls  subroutine  GETCAT  to  reads  weapon  target  values 
into  the  common  array  CVALS(). 

(14)  Line  165  calls  subroutine  GETFRX  to  read  fractional  lifetime 
factors  in  common  array  FRAX(). 

(15)  Line  168  calls  subroutine  GETART  to  obtain  the  starting  strengths 
of  Blue  and  Red  mortar  and  artillery  weapons. 

(a)  Argument  BAA  is  the  address  of  array  BAA()  where  Blue  starting 
strengths  are  to  be  stored  for  later  reference. 

(b)  Argument  RAA  is  the  address  of  array  RAA( )  where  Red  starting 
strengths  are  to  be  stored  for  later  reference. 

(c)  Argument  LIMD  is  the  number  of  direct  fire  weapon  types  in  each 
of  the  Blue  and  Red  inventories.  The  direct  fire  weapon  types  are  always 
the  first  LIMD  of  all  the  weapon  types.  In  all  AFP  work  to  date,  there 
have  been  50  direct  fire  weapon  types;  hence,  LIMD  =  50,  and  the  10  in¬ 
direct  fire  weapon  types  have  been  the  51st  through  60th  among  all  weapon 
types. 


(d)  Argument  M  is  the  total  number  of  Blue  weapon  types.  In  all 
work  to  date,  M=60. 

(e)  Argument  N  is  the  total  number  of  Red  weapon  types.  In  all 
work  to  date,  N=60. 
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(16)  Lines  173  through  344  define  the  limits  of  the  major  processing 
loop  within  GGGTARTY.  All  possible  direct  fire  engagements  are  processed 
with  this,  the  outer  loop,  being  over  all  the  Blue  weapon  types  =  NT YP S ( 1 ) 

=  60.  (The  next  inner  loop  is  over  all  the  Red  weapon  types.  And  within 
that  loop  is  yet  another  loop  over  Combat  Module  days.) 

(17)  Line  175  sets  the  scratch  variable  EXB  to  the  external  loss 
factor  appropriate  to  Blue  weapon  type  IB  by  means  of  a  function  reference 
to  EXTLOS . 

(a)  Argument  "1"  identifies  the  side  as  Blue. 

(b)  Argument  IB  is  the  index  of  the  current  Blue  weapon  type. 

(18)  Lines  177  and  343  define  the  outer  limits  of  the  program  loop 
over  all  Red  weapon  types  =  NTYPS(2)  =  60.  Because  this  loop  lies  inside 
the  Blue  weapon  type  loop,  all  Red  weapon  types  are  checked  for  each  Blue 
weapon  type.  At  this  stage,  both  Blue  and  Red  weapon  type  indices  are 
defined.  Hence,  the  program  now  must  examine  the  type-on-type  engagements 
between  Blue  IB  and  Red  IR  weapons. 

(19)  Line  179  calls  subroutine  GETCA  to  fill  scratch  array  BCAS() 
with  how  many  losses  are  to  be  charged  to  each  target  category  for  a  loss 
of  one  of  Blue  weapon  type  IB. 

(a)  Argument  "2"  is  the  target  side.  Blue. 

(b)  Argument  IR  is  the  index  of  the  Red  shooting  weapon  type. 

(c)  Argument  IB  is  the  index  of  the  current  Blue  tarqet  weapon 

type. 

(d)  Argument  BCAS  is  the  address  of  the  scratch  array  to  be  filled. 

(20)  Line  181  calls  subroutine  GETCA  to  fill  scratch  array  RCAS() 
with  how  many  losses  are  to  be  charged  to  each  target  category  for  a  loss 
of  one  of  Red  weapon  type  IR. 

(a)  Argument  "1"  is  the  target  side,  Red. 

(b)  Argument  IB  is  the  index  of  the  Blue  shooting  weapon  type. 

(c)  Argument  IR  is  the  index  of  the  current  Red  target  weapon  type. 

(d)  Argument  RCAS  is  the  address  of  the  scratch  array  to  be  filled. 

(21)  Line  183  sets  the  scratch  variable  EXR  to  the  external  loss 
factor  appropriate  to  Red  weapon  type  IR  by  means  of  a  function  reference 
to  EXTLOS. 

(a)  Argument  "2"  identifies  the  side  as  Red. 
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(b)  Argument  IR  is  the  index  of  the  current  Red  weapon  type. 

(22)  Line  135  calls  subroutine  GETLOS  to  fill  the  scratch  array 
AL0SS()  with  Combat  Module  results  for  the  engagements  between  Blue  weapon 
type  IB  and  Red  weapon  type  IR. 

(a)  Argument  IB  is  the  Blue  weapon  type. 

(b)  Argument  IR  is  the  Red  weapon  type. 

(c)  Argument  ALOSS  is  the  address  of  the  scratch  array. 

(d)  Argument  I  DIM  (always  14  in  current  AFP  work)  is  the  number  of 
pieces  of  data  to  be  returned  for  each  weapon  type  for  each  Combat  Module 
day. 

(e)  Argument  ND  (always  2  in  current  AFP  work)  is  the  number  of 
Combat  Module  days  for  which  data  are  to  be  returned. 

(23)  Lines  187  and  188  put  the  corresponding  CS/CSS  moduli  into 
scratch  variables  BMOD  and  RMOD. 


(24)  Lines  190  through  195  zero  some  scratch  variables  before  enter¬ 
ing  the  day  loop. 


(25)  Lines  196  through  292  define  the  limits  of 
ber  of  days  represented  in  the  Combat  Module.  In  all 


a  loop  over  the  num- 
work  to  date  ND  =  2. 


(26)  Lines  198  through  205  put  some  of  the  data  from  scratch  array 
AL0SS()  into  scratch  variables  with  names  intended  to  have  some  mnemonic 
val ue. 


(a)  AB  and  AR  are  the  numbers  of  Blue  and  Red  weapons  allocated  to 

the  type  IB  on  type  IR  engagement  at  the  beginning  of  Day-ID. 

(b)  PB  and  PR  are  the  numbers  of  Blue  and  Red  weapons  participating 

in  the  type  IB  on  type  IR  engagement  at  the  beginning  of  Day-ID. 

(c)  DB  and  DR  are  the  numbers  of  losses  suffered  on  Day-ID  by  types 

IB  and  IR  to  direct  fire  by  IR  and  IB  types,  respecti vely.  DB  and  DR  must 
be  the  raw  losses  as  determined  by  the  Combat  Module.  Note  that,  in 
general,  those  losses  may  be  the  result  of  duels  at  as  many  as  six  ranges 
in  each  of  four  (the  current  standard)  conflicts  on  Day-ID. 

(27)  Lines  207  and  208  set  scratch  variables  E8  and  ER  to  the  ex¬ 
ternal  losses  to  weapon  types  18  and  IR  on  Day-ID.  If  EXB  and  EXR  are  0.0, 
then  there  are  no  external  losses. 


(28)  Lines  210  and  211  zero  scratch  variables  BI  and  RI  before  a  loop 
over  indirect  fire  weapon  types. 
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(29)  Lines  212  and  248  define  the  outer  limits  of  a  loop  involving 
indirect  fire  weapons.  The  loop  has  two  major  purposes.  The  simpler 
purpose  is  to  total  the  losses  suffered  on  Day-ID  by  weapon  types  IB  and  IR 
to  indirect  fire  weapons  firing  on  the  type  IB  on  type  IR  direct  fire 
engagement.  The  somewhat  more  involved  purpose  is  to  credit  the  indirect 
fire  weapons  with  their  kills  of  weapon  types  IB  and  IR.  Toward  this 
purpose,  accumulator  arrays  must  be  updated.  Some  of  the  updates  require 
application  of  CS/CSS  moduli.  Note  that  the  loop  index  in  line  212  is 
defined  over  a  subset  of  indexed  references  to  array  AL0SS(). 

(a)  Line  213  sets  the  scratch  variable  LX  to  the  general  weapon 
index  of  the  corresponding  indirect  fire  weapon  types.  Both  Blue  and  Red 
indirect  fire  weapons  of  the  same  index  are  processed  concurrently. 

(b)  Li  nes  214  and  215  set  scratch  variables  XB  and  XR  to  the  losses 
suffered  on  Day-ID  to  Red  and  Blue  indirect  firers  of  type  LX  from  the  cor¬ 
responding  elements  of  AL0SS().  If  both  XB  and  XR  are  less  than  1.0,  line 
216  jumps  to  the  end  of  the  indirect  fire  loop. 

(c)  Lines  217  and  218  update  the  scratch  summation  variables  BI  and 
RI  by  adding  the  losses  on  Day-ID  inflicted  by  the  currently  considered 
indirect  fire  weapon  types  LX.  When  the  indirect  fire  loop  is  finally 
exited,  BI  and  RI  will  contain  the  total  losses  inflicted  by  indirect  fire 
on  weapon  types  IB  and  IR  on  Day-ID  during  the  direct  fire  engagement 
between  types  IB  and  IR. 

(d)  Lines  219  through  222  set  four  scratch  variables  to  the  CS/CSS 
moduli  corresponding  to  the  pairings  of  the  currently  considered  direct  and 
indirect  fire  weapons.  The  moduli  are  needed  in  the  next  steps  where  the 
kills  inflicted  by  the  indirect  fire  weapons  must  be  credited  to  the 
indirect  fire  weapons. 

(e)  Lines  224  and  241  define  the  limits  of  a  loop  in  which  the 
kills  inflicted  by  the  indirect  fire  weapons  will  be  credited  to  those 
weapons  in  the  appropriate  target  categories  (i.e.,  components  of  five¬ 
valued  partial  combat  potenti al s--incl udi ng  the  weighted  scalar  component). 
The  loop  treats  both  Blue  and  Red,  unmodulated  and  modulated,  and  "local" 
and  "global"  exchange  ratio  methods.  (For  indirect  fire  weapons,  there  is 
no  distinction  between  "local"  and  "global"  exchange  ratio  methods.) 

1.  Line  225  sets  scratch  variable  CV  to  the  target  category 
(personnel,  light  armored  vehicles,  heavy  armored  vehicles,  and  aircraft) 
weight  in  category  IV  corresponding  to  a  kill  of  a  Red  weapon  type  IR. 

Line  226  sets  CVOPT  TO  CV  IF  TVALON=.TRUE. ,  i.e.,  if  target  values  are  to 
be  included  in  the  first  four  elements  of  potentials. 

2.  Line  227  sets  scratch  variable  8U  to  the  number  of  kills  to  be 
credited  to  Blue  indirect  fire  weapon  type  LX  in  target  category  IV  for  XR 
kills  of  Red  weapon  type  IR. 
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3_.  Line  228  updates  the  Blue  accumulator  array  B()  by  adding  the 
CVOPT-weighted  unmodulated  kills  of  Red  type  IR  to  the  credit  of  Blue 
indirect  fire  weapon  type  LX  in  target  category  IV.  CVOPT  =  1.0  if 
TVAL0N=. FALSE. ;  otherwise,  CVOPT  =  target  value. 

4.  Line  229  updates  the  Blue  accumulator  array  B()  by  adding  in 
the  weighted  credit  for  kills  of  Red  type  IR  to  the  scalar  component  B 

(5,.,.). 


5.  Line  230  sets  scratch  variable  BM  to  the  modulated  kills  of 
Red  type  IR. 

6.  Line  231  updates  the  Blue  accumulator  array  B()  by  adding  the 
modulated  kills  of  Red  type  IR  to  the  credit  of  blue  indirect  fire  weapon 
type  LX  in  target  category  IV.  See  (29)(e)l.  and  3.  above  for  comments 
about  CVOPT. 

7.  Line  232  updates  the  Blue  accumulator  array  B()  by  adding  in 
the  weighted  credit  for  kills  of  Red  type  IR  to  the  scalar  component 
B(5, . , . ) . 


8.  Lines  233  through  240  apply  the  logic  of  lines  225  through  232 
to  give  the  corresponding  credit  to  Red  indirect  fire  weapon  type  LX  for 
kills  of  Blue  weapon  type  IB.  Of  course,  for  the  Red  weapon,  the  approp¬ 
riate  elements  of  Red  accumulator  array  R()  are  updated. 

9.  Lines  242  through  247  update  the  Blue  and  Red  accumulator 
arrays  B()  and  R()  for  the  indirect  fire  weapons  of  type  LX  in  those  cases 
where  the  above  kills  do  not  fall  in  the  normal  target  categories:  light 
armored  vehicles,  heavy  armored  vehicles,  or  aircraft.  Elements  of  the 
form  CVALS(5, . , . )  represent  the  target  category  weights  or  values  for 
targets  which  do  not  fall  into  the  normal  target  categories--e.g. , 
dismounted  machineguns.  The  loop  parameters  were  set  in  accord  with  TVALON 
in  lines  93  through  98.  If  TVALON=.TRUE . ,  the  elements  of  the  form 
(CVALS(5, . , . )  also  affect  the  first  elements  (originally  personnel  only)  of 
combat  potential. 

(30)  At  this  point,  attention  shifts  from  the  indirect  fire  updates 
back  to  updating  for  the  direct  fire  weapons  of  types  IB  and  IR  involved  in 
the  direct  fire  engagement.  One  possibly  confusing  aspect  of  the  Combat 
Module  and  the  treatment  of  its  results  here  is  when  mortars  and  artillery 
engage  one  another  in  counterbattery  duels.  Those  counterbattery  actions 
are  considered  direct  fire  engagments.  But  just  as  for  any  other  direct 
fire  engagements,  some  indirect  fire  falls  on  the  dueling  weapons.  Recall 
that  part  of  the  input  to  the  Combat  Module  splits  the  total  inventories  of 
mortars  and  artillery  between  indirect  and  direct  (counterbattery)  roles. 
Hence,  while  the  fraction  of  mortars  and  artillery  devoted  to  counter¬ 
battery  roles  may  be  firing  at  one  another,  the  fraction  of  the  same  type 
weapons  devoted  to  indirect  fire  may  be  firing  on  the  counterbattery  duels. 
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(31)  Lines  250  and  251  reset  scratch  variables  AB  and  AR,  the  numbers 
of  weapons  of  types  IB  and  IR  allocated  to  the  IB-on-IR  direct  fire  duel  to 
1.0  for  any  type  that  is  greater  than  LIMD—i.e.,  for  any  mortar  or  artil¬ 
lery  weapon.  This  step  is  needed  to  assure  that  mortars  and  artillery  be 
treated  correctly  in  terms  of  global  exchange  ratios  for  both  the  overall 
local  and  global  exchange  ratio  methods  or  estimating  partial  combat 
potentials.  The  two  methods  are  named  in  accord  with  the  ways  in  which  the 
direct  fire  weapons  are  treated. 

(32)  Lines  252  and  253  update  the  counts  of  weapons  allocated  in 
arrays  ABT0T()  and  ART0T()  for  use  in  the  local  exchange  ratio  method. 

(33)  Lines  254  through  257  update  the  counts  of  weapons  allocated 
only  on  the  first  day  in  array  START(). 

(34)  The  following  sequence  through  line  277  generates  the  Blue  and 
Red  estimates  of  local  exchange  ratio  for  the  IB-on-IR  pairing  on  Day-ID. 
The  objective  is  to  estimate  a  ratio  in  the  form: 

(local  exchange  ratio)  =  (net  target  kills)/(total  shooter  losses) 

where: 


(a)  The  net  target  kills  include  the  targets  killed  by  the  direct 
fire  opponents  (shooters)  plus  a  pro  rata  share  of  the  external  losses 
suffered  by  the  targets.  The  pro  rata  share  of  external  target  losses 
attributable  to  the  shooter  is  taken  to  be: 

(total  external  losses)  *  (direct  losses) 
(pro  rata  external  losses)  =  - - 

(direct  losses)  +  (indirect  losses) 

(b)  The  total  shooter  losses  include  shooter  losses  to  both  direct 
and  indirect  fire  and  the  external  losses. 

(35)  Lines  258  and  259  set  scratch  variables  BTOT  and  RTOT  to  the 
sums  of  direct,  external,  and  indirect  losses  suffered  by  weapon  types  IB 
and  IR  on  Day-ID,  but  only  with  respect  to  the  IB-on-IR  type  engagement. 
The  losses  of-  types  IB  and  IR  in  their  direct  fire  engagements  with  other 
type  weapons  are  not  represented  here.  These  are  the  losses  of  types  IB 
and  IR  considered  as  shooters. 

(36)  Lines  260  through  262  leave  scratch  variable  BNET  set  to  the 

number  of  losses  of  Blue  type  IB  considered  as  a  target  of  Red  type  IR. 

Line  260  first  sets  BNET  to  the  direct  losses  suffered  by  Blue  type  IB. 
Line  261  sets  scratch  variable  X  to  the  sum  of  direct  and  indirect  losses 
suffered  by  Blue  type  IB.  If  Blue  type  IB  did  indeed  suffer  direct  or 

indirect  losses,  line  262  adds  to  BNET  the  pro  rata  share  of  external 

losses  suffered  by  Blue  type  IB. 
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(37)  Lines  263  through  265  apply  logic  similar  to  that  described  in 
paragraph  (34)  immediately  above  to  set  scratch  variable  RNET  to  the  number 
of  losses  of  Red  type  IR  considered  as  a  target  of  Blue  type  IB. 

(38)  Lines  266  through  270  calculate  the  local  exchange  ratio  for 
Blue  shooter  type  IB  with  Red  type  IR  as  a  target.  An  underlying 
difficulty  of  the  local  exchange  ratio  method  surfaces  here.  If  the 
shooter  suffers  no  direct,  indirect,  or  external  losses,  straightf orward 
estimation  of  exchange  ratio  would  involve  a  division  by  zero.  Hence,  the 
division  is  performed  only  if  Blue  type  IB  does  suffer  loss.  Otherwise, 
Blue  type  IB  is  implied  to  have  lost  one  weapon.  The  difficulty  is 
compounded  by  the  numerous  Combat  Module  engagements  involving  small 
numbers  of  weapons  subject  to  stochastic  detection,  SSPKs,  and  refire 
times.  Zero  shooter  losses  are  a  frequent  Combat  Module  result.  Just  such 
practical  considerations  led  to  addition  of  the  GER  method  to  the 
CBT/CS/CSS  Merge  Module.  If  the  shooter  is  a  mortar  or  artillery  type,  the 
exchange  ratio  is  set  to  kills  without  explicit  reference  to  losses, 
although  the  effect  is  as  though  one  loss  were  assumed  at  this  point. 

.  (39)  Lines  272  through  277  calculate  the  local  exchange  ratio  on  Day- 
ID  for  Red  shooter  type  IR  with  Blue  type  IB  as  target.  The  logic  is 
similar  to  that  described  in  paragraph  F-5.d.(36)  immediately  above  for 
Blue  type  IB  as  shooter. 

(40)  Lines  280  and  281  update  scratch  variables  BSUM  and  RSUM  with 
Day-ID's  weighted  estimates  of  the  exchange  ratios.  The  weights  are  simply 
the  numbers  allocated  shooters.  Hence,  the  dimension  of  BSUM  is  really 
"Red  kills,"  and  the  dimension  of  RSUM  is  "Blue  kills."  Neither  variable 
is  dimensioned  as  an  exchange  ratio  after  all. 

(41)  Lines  282  and  283  update  the  accumulator  arrays  BAL()  and  RAL() 
with  the  losses  of  types  IB  and  IR  only  if  the  types  are  mortar  or  artil¬ 
lery,  i.e.,  greater  than  LIMD. 

(42)  Lines  287  and  288  update  the  accumulator  array  ZLOSS  with  the 
direct,  indirect,  and  external  losses  of  types  IB  and  IR  for  use  in  the  GER 
method. 

(43)  Lines  289  and  290  update  the  scratch  variables  GBNET  and  GRNET 
with  the  net  losses  attributed  to  the  opposing  direct  fire  weapons  for  use 
outside  the  day  loop  in  the  GER  method. 

(44)  Line  292  ends  the  day  loop  for  a  specific  direct  fire  pair  of 
weapon  types  IB  and  IR. 

(45)  Lines  293  through  341  update  the  main  accumulator  arrays  for  the 
direct  fire  pair  of  weapon  types  IB  and  IR  based  on  the  results  of  ND  days 
of  engagements  between  those  two  weapon  types.  Recall  that  kills  scored  by 
indirect  fire  weapons  have  already  been  credited  to  the  indirect  weapons 
within  the  above  loops  for  some  of  the  same  accumulator  arrays--but  for 
weapon  indices  other  than  IB  and  IR,  of  course. 
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(46)  Lines  293  and  294  set  scratch  variables  BSCORM  and  RSCORM  to 
modulated  versions  of  the  scores  achieved  by  types  IB  and  IR  in  their 
engagements  over  the  preceding  ND  days. 

(47)  Lines  296  and  328  define  the  outer  limits  of  a  loop  over  the 
first  four  components  of  five-valued  partial  combat  potentials. 

(48)  Line  297  sets  scratch  variable  C V  to  the  IVth  component  of 
target  category  value  of  weight  for  weapon  type  IR  considered  as  a  target. 
Line  298  sets  CVOFT  to  CV  4  TVALON=.TRUE. 

(49)  Line  300  sets  scratch  variable  BU  to  the  unmodulated  IVth 
component  of  the  score  to  be  credited  to  Blue  IB  in  accord  with  the  LER 
method. 

(50)  Line  301  sets  scratch  variable  GBU  to  the  unmodulated  IVth 
component  of  the  score  to  be  credited  to  Blue  type  IB  in  accord  with  the 
GER  method. 

(51)  Line  303  sets  scratch  variable  BM  to  the  modulated  IVth 
component  of  the  score  to  be  credited  to  Blue  type  IB  in  accord  with  the 
LER  method. 

(52)  Line  305  updates  the  LER  accumulator  array  B()  with  the  incre¬ 
ment  for  the  unmodulated  IVth  component  of  score  earned  by  Blue  type  IB  in 
its  engagements  with  Red  type  IR.  CVOPT  is  1.0,  or  as  a  target  value 
depending  on  TVALON. 

(53)  Line  306  updates  the  GER  accumulator  array  0MEGAE()  with  the 
increment  for  the  unmodulated  IVth  component  of  score  earned  by  Blue  type 
IB  in  its  engagements  with  Red  type  IR. 

(54)  Lines  308  and  309  update  the  arrays  B()  and  0MEGAE( )  for  the 
unmodulated  scalar  (fifth)  components  of  score. 

(55)  Lines  310  through  313  complete  the  updates  of  arrays  B()  and 
0MEGAE()  for  the  modulated  components.  See  comments  about  CVOPT  in  (48) 
and  (52)  above. 

(56)  Lines  315  through  327  update  the  accumulator  arrays  R()  and 
0MEGAE()  for  the  unmodulated  and  modulated  components  of  score  earned  by 
Red  weapon  type  IR  against  Blue  weapon  type  IB  just  as  lines  297  through 
313,  as  discussed  above,  do  for  Blue  weapon  type  IB  against  Red  weapon  type 


(57)  Lines  330  through  340  complete  the  update  of  the  scalar  (and 
first  if  TVALON=.TRUE . )  components  of  accumulator  arrays  B(),  R(),  and 
0MEGAE()  for  those  Red  and  Blue  weapon  types  which  do  not  belong  to  the 
regular  light  armored  vehicle,  heavy  armored  vehicle,  or  aircraft  target 
categories. 
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(58)  Line  343  bounds  the  loop  over  Red  weapon  types  IR  considered  as 
direct  fire  weapons  in  the  type-on-type  engagements. 

(59)  Line  344  bounds  the  loop  over  Blue  weapon  types  IB  considered  as 
direct  fire  weapons  in  the  type-on-type  engagements. 

(60)  At  this  point,  all  information  needed  from  Combat  Module  output 
for  this  combat  environment  have  been  accepted  by  the  CBT/CS/CSS  Merge  Mod¬ 
ule.  Within  the  GER  method,  it  remains  to  divide  the  contents  of 
accumulator  array  OMEGAE()  by  global  losses  for  the  corresponding  weapon 
types  and  to  apply  fractional  lifetime  modifiers.  It  remains  to  sum  the 
contents  of  accumulator  arrays  built  at  the  weapon-type  level  over  weapon- 
types  to  compute  COP  totals.  As  usual,  indirect  fire  weapons  require  some 
special  handling.  And  finally,  the  contents  of  the  accumulator  arrays  are 
fed  five  values  at  a  time  to  the  output  routines  for  final  modification,  if 
appropriate,  and  for  output  to  the  partial  combat  potentials  files. 

(61)  Line  346  sets  scratch  variable  F  to  the  standard  fractional 
lifetime  (0.5)  subject  to  later  modification  on  a  weapon-by-weapon  basis  in 
accord  with  the  contents  of  the  reference  array  FRAX(). 

(62)  Line  347  sets  scratch  variable  XND  to  the  number  of  days  repre¬ 
sented  in  the  Combat  Module. 

(63)  Lines  351  through  364  bound  a  triply-nested  loop  structure  that 
makes  all  but  one  final  adjustment  to  unmodulated  and  modulated  scores  and 
CIPs  of  direct  fire  weapons  in  accord  with  the  GER  method.  The  fractional 
lifetime  modifiers  are  applied  later.  This  loop  structure  does  divide 
accumulated  kills  by  accumulated  losses  to  provide  global  exchange  ratios. 
The  structure  multiplies  scores  by  starting  strengths  and  divides  scores  by 
the  numbers  of  divisions.  To  avoid  division  by  zero,  zero  losses  are  set 
to  1.0,  arbitrarily,  of  course.  Looping  is  perfomed  over  side,  weapon 
type,  and  potential  component--from  outer  to  inner  loops. 

(64)  Lines  368  through  398  bound  a  triply-nested  loop  structure  that 
makes  all  but  one  final  adjustment  to  unmodulated  and  modulated  scores  and 
CIPs  of  indirect  fire  weapons  in  accord  with  the  GER  method.  As  above  for 
direct  fire  weapons,  the  fractional  lifetime  modifiers  are  applied  later. 
Because  the  GER  method  applies  to  artillery  in  all  cases,  the  mortar  and 
artillery  parts  of  the  0MEGAE()  array  can  be  constructed  from  the  otherwise 
LER  arrays  B()  and  R()  and  the  availability  arrays  BAA( )  and  RAA(). 
Regardless  of  the  losses  to  indirect  fire  weapons  estimated  by  the  Combat 
Module,  the  CBT/CS/CSS  Merge  Module's  GER  implies  1.0  losses  to  each 
indirect  fire  weapon  type.  To  avoid  division  by  zero,  zero  availabilities 
are  set  to  1.0.  Looping  is  performed  over  side,  weapon  type,  and  potential 
component--from  outer  to  inner  loops. 

(a)  Line  370  sets  scratch  variable  to  the  indirect  fire  weapon 
type,  which  is  always  the  general  weapon  type,  minus  LIMD,  the  number  of 
direct  fire  weapon  types. 
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(b)  Because  Blue  and  Red  weapon  availabilities  are  in  different 
arrays  BAA()  and  RAA( ) ,  an  IF — ENDIF  block  is  applied  in  lines  381  through 
395. 


(c)  Line  378  guards  against  subsequent  division  by  zero. 

.  Line  379  sets  scratch  variable  GZ  to  the  standard  fractional 

lifetime  (0.5)  divided  by  the  weapon  availability. 

(e)  Lines  380  and  396  define  the  limits  of  a  loop  over  the  five 
components  of  five-valued  partial  combat  potentials. 

(f)  Because  Blue  and  Red  weapon  kills  are  in  different  arrays  B() 
and  R(),  an  IF— ENDIF  block  is  applied  in  lines  381  through  395. 

1.  Lines  382  and  389  set  scratch  variable  ZG  to  the  unmodulated 
kills  component  from  arrays  B()  and  R(). 

2.  Lines  383,  384,  390,  and  391  put  the  unmodulated  partial  score 
and  CIP  components  in  array  0MEGAE(). 

3.  Lines  385  and  392  set  scratch  variable  ZG  to  the  modulated 
kills  component  from  arrays  B()  and  R(). 

4.  Lines  386,  387,  393,  and  394  put  the  modulated  partial  score 
and  CIP  components  in  array  0MEGAE(). 

(65)  Lines  403  through  430  fill  the  LER  partial  COP  arrays  BT()  and 
RT().  Adjustments  for  fractional  lifetimes  are  applied  as  the  COP  arrays 
are  filled. 

(a)  Lines  403  and  416  define  the  bounds  of  a  doubly-nested  loop 
structure  for  computation  of  Blue  partial  COPs.  The  outer  loop  is  over 
Blue  weapon  types;  the  inner  loop  is  over  the  five  components  of  five¬ 
valued  potentials. 

(b)  Line  405  checks  whether  the  current  weapon  type  is  nondivi- 
sional .  If  so,  the  weapon's  results  are  not  included  within  Blue  COP. 

(c)  Line  406  sets  scratch  variable  FUZZ  to  1.0. 

(d)  Lines  407  through  411  apply  only  if  the  Blue  weapon  is  an  in¬ 
direct  fire  type.  In  the  LER  method,  a  nontrivial  global  exchange  ratio  is 
computed  for  indirect  fire  weapons.  As  usual,  to  avoid  division  by  zero, 
zero  losses  are  arbitrarily  set  to  1.0. 

(e)  Lines  412  through  415  loop  over  the  five  components  of  five¬ 
valued  potentials  and  update  the  Blue  partial  COP  accumulator  array  BT() 
with  unmodulated  (line  413)  and  modulated  (line  414)  increments  adjusted  by 
the  fractional  lifetime  modifiers. 
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( f )  Lines  417  through  430  define  the  bounds  of  a  doubly  nested  loop 
structure  for  computation  of  Red  partial  COPs.  The  structure  is  similar  to 
that  already  described  for  lines  386  through  399  for  Blue  weapons. 

% 

(66)  Lines  434  through  445  define  the  bounds  of  a  tri ply-nested  loop 
structure  for  filling  the  accumulator  array  0MEGAC()  with  partial  COPs  by 
summation  over  weapon  types  from  values  contained  in  the  weapon  accumulator 
array  0MEGAE().  Adjustments  for  fractional  lifetimes  are  made  during  the 
summation.  Looping  is  performed  over  side,  weapon  type,  and  potential 
component--from  outer  to  inner  loops. 

(a)  Lines  436  and  437  check  for  nondi visional  weapon  types.  Values 
corresponding  to  nondivisional  weapons  are  skipped. 

(b)  Lines  439  and  440  accumulate  the  unmodulated  components  of 
partial  COPs. 

(c)  Lines  441  and  442  accumulate  the  modulated  components  of 
partial  COPs. 

(d)  Line  445  marks  the  end  of  the  GER  method  COP  computation. 

(67)  Lines  449  through  536  output  the  score,  CIP,  and  COP  files  for 
both  LER  and  GER  methods.  An  output  routine  is  called  each  time  an  output 
record  is  to  be  output.  The  routines  that  output  to  the  LER  method  file 
may  apply  some  factor(s)  before  output.  The  routines  that  output  to  the 
GER  method  file  make  no  further  modifications  prior  to  output.  Both  sets 
of  routines  do  check  the  components  of  five-valued  potentials.  If  no 
component  is  nonzero,  output  of  a  record  is  suppressed.  That  is,  only 
weapons  with  nonzero  partial  combat  potential  are  included  in  files  output 
by  the  CBT/CS/CSS  Merge  Module. 

(a)  Deactivated  lines  449  through  517  would  output  to  the  LER 
method  file. 

1_.  Line  449  sets  scratch  variable  FACX  to  the  standard  fractional 
lifetime  divided  by  the  number  of  days  represented  in  the  Combat  Module. 

2.  Lines  450  and  478  define  the  bounds  of  a  loop  over  Blue  weapon 

types. 


a.  Lines  451  sets  scratch  variable  FRX  to  the  fractional  life¬ 
time  factor  corresponding  to  Blue  weapon  type  IB. 

b.  Lines  452  and  453  set  scratch  variables  FAC  and  FAC1  to  values 
used  in  setting  final  adjustments,  if  any,  to  the  contents  of  the 
accumulator  array  B()  before  output  by  the  output  routines.  Different 
modifiers  are  applied  to  a  single  five-vector  from  array  B()  to  generate  a 
partial  score  and  a  partial  CIP. 
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c.  Lines  455  through  460  reset  scratch  variable  FAC  if  the  Blue 
weapon  is  an  indirect  fire  type.  The  instructions  apply  the  global  losses 
of  Blue  type  IB.  However,  if  IB  suffered  no  losses,  its  losses  are  set  to 

1.0. 


•  d.  Line  461  checks  whether  any  of  weapon  type  IB  were  avail-able 
in  the  first  place.  If  not,  there  is  no  need  to  compute  or  output  anything 
for  this  weapon  type. 

e.  Line  462  resets  FAC  by  multiplying  its  former  value  by  the 
fractional  lifetime  factor  and  dividing  by  the  number  of  Blue  divisions. 

FAC  is  now  the  appropriate  modifier  for  use  in  generating  a  partial  score 
from  array  B(). 

f.  Ignore  the  lines  which  call  subroutine  FILL. 

£.  Line  465  calls  subroutine  OUTREC  to  output  a  five-valued 
unmodulated  partial  score  for  Blue  weapon  type  IB.  Argument  "10"  identi¬ 
fies  the  record  type.  Argument  IB  is  the  identifier  of  the  Blue  weapon 
type.  Argument  B(l,l,  IB)  is  the  address  of  the  appropriate  five-vector 
within  array  B().  Argument  FAC  is  the  multiplier  that  makes  the  five 
vector  a  partial  score. 

ji.  Line  467  sets  scratch  variable  FAC2  to  the  tentative  value 
needed  as  the  multiplier  of  the  same  five-vector  from  B()  to  convert  the 
five-vector  to  a  partial  CIP. 

U  But  if  weapon  type  IB  is  an  indirect  fire  weapon,  line  468 
resets  FAC2  to  mortar/arti  11 ery  form. 

j.  Line  469  resets  FAC2  by  multiplying  the  last  value  by  the 
fractional  lifetime  factor. 

k.  Line  471  calls  subroutine  OUTREC  to  output  a  five-valued 
unmodulated  partial  CIP  for  Blue  weapon  type  IB.  Argument  "30"  identifies 
the  record  type.  Argument  IB  identifies  the  weapon  type.  Argument 

B( 1 , 1, IB ) ,  the  same  as  in  the  preceding  call,  is  the  address  of  the 
appropriate  five-vector  within  array  B().  Argument  FAC2  is  the  multiplier 
that  makes  the  five-vector  a  partial  CIP. 

_]_•  Line  474  calls  subrouting  OUTREC  to  output  a  five-valued 
modulated  partial  score  for  Blue  weapon  type  IB.  Argument  "50"  identifies 
the  record  type.  Argument  IB  identifies  the  weapon  type.  Argument 
6(1,2,  IB)  is  the  address  of  the  appropriate  five-vector  within  the  array 
B().  Argument  FAC  is  the  multiplier  that  makes  the  referenced  five-vector 
a  partial  score. 
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m.  Line  477  calls  subrouting  OUTREC  to  output  a  five-valued 
modulated  partial  CIP  for  Blue  weapon  type  IB.  Argument  "70"  identifies 
the  record  type.  Argument  IB  identifies  the  Blue  weapon  type.  Argument 
B(1,2,IB),  the  same  as  in  the  preceding  call,  is  the  address  of  the 
appropriate  five-vector  within  the  array  B().  Argument  FAC2  is  the 
multiplier  that  makes  the  five-vector  a  partial  CIP. 

3.  Lines  479  and  507  define  the  bounds  of  a  loop  over  Red  weapon 
types.  The  logic  is  the  same,  with  references  to  different  arrays  and  with 
a  different  identifier,  as  described  for  the  output  of  Blue  scores  and  CIP 
by  lines  433  through  461  and  as  described  in  2.  immediately  above. 

4.  Lines  508  through  517  output  the  partial  COPs. 

a.  Line  508  sets  scratch  variable  FACB  to  the  value  appropriate 
as  the  multiplier  of  five-vectors  in  array  BT( )  to  make  them  partial  COPs. 

b.  Line  510  calls  subroutine  OUTREC  to  output  a  five-valued 
unmodulated  partial  COP  for  the  Blue  division.  Argument  "11"  identifies 
the  record  type.  Argument  "0"  identifies  the  "weapon  type"  as  a  division. 
Argument  BT(1,1)  is  the  address  of  the  appropriate  five-vector  within  array 
BT().  Argument  FACB  is  the  multiplier  of  the  five-vector. 

c.  Line  512  calls  subroutine  OUTREC  to  output  a  five-valued 
modulated  partial  COP  for  the  Blue  division.  Argument  "51"  identifies  the 
record  type.  Argument  "0"  identifies  the  "weapon  type"  as  a  division. 
Argument  BT(1,2)  is  the  address  of  the  appropriate  five-vector  within  array 
BT().  Argument  FACB  is  the  multiplier  of  the  five-vector. 

d.  Line  513  sets  scratch  variable  FACR  to  the  value  appropriate 
as  the  multiplier  of  five-vectors  in  array  RT()  to  make  them  partial  COPs. 

e.  Line  515  calls  subroutine  OUTREC  to  output  a  five-valued 
unmodulated  partial  COP  for  the  Red  division.  Argument  "21"  identifies  the 
record  type.  Argument  "0"  identifies  the  "weapon  type"  as  a  division. 
Argument  RT (1,1)  is  the  address  of  the  appropriate  five-vector  within  array 
RT().  Argument  FACR  is  the  multiplier  of  the  five-vector. 

f.  Line  517  calls  subroutine  OUTREC  to  output  a  five-valued 
modulated  partial  COP  for  the  Red  division.  Argument  "61"  identifies  the 
record  type.  Argument  "0"  identifies  the  "weapon  type"  as  a  division. 
Argument  RT(1,2)  is  the  address  of  the  appropriate  five-vector  within  array 
R;t().  Argument  FACR  is  the  multiplier  of  the  five-vector. 

(b)  Lines  521  through  536  output  to  the  GER  method  file  of  partial 
scores,  CIPs,  and  COPs. 

_1.  Lines  521  and  527  define  the  bounds  of  a  triply-nested  loop 
structure  for  the  output  of  scores  and  CIPs  for  Blue  and  Red  weapons.  The 
scores  and  CIPs  without  final  adjustment  for  fractional  lifetimes  already 
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exist  in  accumulator  array  0MEGAE().  Looping  is  performed  over  side, 
weapon  type,  and  record  potential  type  (unmodulated  score,  unmodulated  CIP, 
modulated  score,  and  modulated  CIP)  from  outer  to  inner  loops).  Line  524 
calls  subroutine  OUTGLO  to  output  a  five-valued  partial  potential  type. 

a.  Argument  ISN0( IREC, IS)  is  the  identifier  of  the  record  type. 
The  identifier  depends  on  both  the  potential/record  type  (IREC)  and  side 


b.  Argument  IW  is  the  identifier  of  weapon  type. 

c.  Argument  OMEGAE  ( I ,REC, IW, IS)  is  the  address  of  the  appropriate 
type  of  five-vector.  The  five- vector  is  indexed  to  its  first  component 
(1),  the  potential/record  type  (IREC),  the  weapon  type  (IW),  and  the  side 
(IS). 


d.  Argument  FRAX(IW,IS)  is  the  fractional  lifetime  multiplier 
appropriate  for  weapon  type  IW  on  side  IS.  Multiplication  of  the  five- 
vector  addressed  by  0MEGA(1,IREC,IW,IS)  by  FRAX(IW,IS)  yields  the  desired 
type  partial  potential  five-vector. 

2.  Lines  530  through  536  output  the  unmodulated  and  modulated 
COPs  for  Blue  and  Red  divisions.  Lines  530,  532,  534,  and  536  each  make  a 
call  to  subroutine  OUTGLO.  The  first  call  outputs  the  Blue  unmodulated 
partial  COP.  The  second  call  outputs  the  modulated  Blue  partial  COP.  The 
third  call  outputs  the  unmodulated  Red  partial  COP.  And  finally,  the  fourth 
call  outputs  the  modulated  Red  partial  COP. 

a.  The  first  argument  of  OUTGLO  is  the  identifier  of  the  record 

type. 


b.  The  second  argument  of  OUTGLO,  here  "0",  is  the  "weapon  type" 
identifier  for  a  division. 

c.  The  third  argument  of  OUTGLO  is  the  address  of  the  appropriate 
five-vector  within  the  partial  COP  accumulator  array  0MEGAC( ) .  The  indexing 
of  an  element  OMEGAC(I,J,K)  is  to:  1=1  for  the  first  com-ponent  of  a  five- 
vector;  J=1  for  unmodulated,  J=2  for  modulated;  and  K=1  for  Blue,  K=2  for 
Red. 

(68)  L  ines  540  through  560  output  a  recapitulation  (with  some  exten¬ 
sions)  of  some  of  the  "raw"  results  of  the  Combat  Module.  Note  that  if 
TVAL0N= .TRUE . ,  all  elements  of  0MEGAE()  are  no  longer  "raw"  inasmuch  as  all 
raw  kills  are  then  weighted  by  target  values;  also,  the  original  "personnel" 
elements  then  include  other  weapons.  The  report  is  described  in  paragraph 
F-3.b.  and  is  illustrated  in  Figure  F-5.  The  report  is  intended  to  provide 
for  quick  checks  of  numbers  before  they  have  been  modified  extensively  by 
the  CBT/CS/CSS  Merge  process.  That  the  report  is  printed  late  in  the 
execution  of  the  CBT/CS/CSS  Merge  Module  is  no  cause  for  worry  unless  the 
module  aborts  beforehand.  The  sequence  of  instructions  loops  over  side. 

Blue  and  Red,  as  usual.  For  a  given  side,  the  logic  loops  over  direct  fire 
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weapon  types  (lines  542  through  548)  and  then  over  indirect  fire  weapon 
types  (lines  549  through  559).  The  separate  loops  for  direct  and  indirect 
fire  weapons  are  used  because  information  about  losses  is  retrieved 
differently  for  those  two  weapon  classes.  Weapon  types  at  zero  inventory 
levels  are  skipped.  The  information  pertaining  to  a  single  weapon  type  is 
output  by  a  call  to  subroutine  OUTRAW.  The  arguments  of  OUTRAW  are: 

(a)  IS  identifies  the  side. 

(b)  IW  identifies  the  weapon  type. 

(c)  0MEGAE(1,1,IW,IS)  is  the  address  of  an  unmodulated  partial 
score  five-vector  corresponding  to  weapon  type  IW  on  side  IS  from  which 
"raw  kills"  can  be  recovered  by  simple  arithmetic. 

(d)  GZ  is  the  factor  by  which  the  five-vector  is  to  be  multiplied 
within  subroutine  OUTRAW  to  recover  a  five-vector  of  "raw  kills"  by  the 
standard  target  categories  and  their  weighted  scalar. 

(e)  ZL0SS( IW, IS)  or  GZLOS  is  the  losses  suffered  by  weapon  type  IW 
on  side  IS. 

(69)  Deactivated  lines  563  through  611  may  be  ignored. 

(70)  Line  612  returns  program  control  to  the  main  program  for  termi¬ 
nation  of  execution  of  the  CBT/CS/CSS  Merge  Module,  i.e.,  the  real  work  of 
the  module  is  complete  at  this  point. 

e.  Several  of  the  subroutines  called  by  the  GGGTARTY  version  of  TARTY, 
the  principal  subprogram  of  the  CBT/CS/CSS  Merge  module,  described  in 
paragraphs  F-5.c.  and  d.  above  are  also  listed  in  Figure  F-9,  beginning  at 
line  619.  Some  of  the  subroutines  have  been  deactivated. 

(1)  Subroutine  OUTREC.  This  deactivated  subroutine  outputs  a  five¬ 
valued  partial  potential  type  record  in  accord  with  the  LER  method.  It  is 
called  four  times  for  each  weapon  type--for  unmodulated  score,  unmodulated 
CIP,  modulated  score,  and  modulated  CIP,  respecti vely.  If  all  five 
components  of  a  partial  potential  are  zero,  no  record  is  output.  The 
subroutine  is  called  four  times  to  output  the  partial  COPs. 

(a)  The  formal  arguments  of  subroutine  OUTREC  are: 

1.  ISCNT  identifies  the  type  of  record  by  type  of  potential  and 

side. 

2.  IDW  identifies  the  "weapon  type,"  currently  1  to  60  for  actual 
weapons  and  "0"  for  a  division. 

3.  R  is  the  address  of  the  appropriate  five-vector  to  be  output 
after  that  vector  has  been  multiplied  by  FACTOR. 
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4.  FACTOR  is  the  multiplier  by  which  the  given  five-vector  must 
be  multiplied  before  output.  FACTOR  itself  may  reflect  the  prior  result  of 
adjusting  for  the  fractional  lifetime  factor,  the  number  of  days,  and  the 
number  of  divisions. 

(b)  Lines  627  through  629  put  the  product  of  scalar  FACTOR  and  the 
given  five-vector  in  scratch  vector  S(). 

(c)  Lines  630  through  632  check  whether  any  component  of  the  five- 
vector  is  greater  than  zero.  If  so,  control  goes  to  the  output  statement 
(line  635). 

(d)  Otherwise,  control  is  transferred  back  to  the  calling  sub¬ 
program  (line  633)  without  output  of  a  record. 

(e)  Lines  635  through  636  output  a  record.  Only  ISCNT,  IDW,  and 
S()  are  significant.  The  other  members  of  the  output  list  are  identifiers 
not  used  in  AFP  work  to  date. 

(2)  Subroutine  FILL.  This  subroutine,  lines  642  through  656,  may  be 
ignored. 

(3)  Subroutine  ZERO.  This  trivial  subroutine,  lines  658  through  664, 
is  called  to  zero  a  real  array.  It  is  called  several  times  during 
initialization  within  the  main  subprogram  for  arrays  of  different 
dimensions  and  lengths. 

(4)  Subroutine  0UTGL0.  This  subroutine  outputs  a  five-valued  partial 
potential  type  record  in  accord  with  the  GER  method.  It  is  called  four 
times  for  each  weapon  type— for  unmodulated  score,  unmodulated  CIP,  modu¬ 
lated  score,  and  modulated  CIP,  respectively.  If  all  five  components  of  a 
partial  potential  are  zero,  no  record  is  output.  The  subroutine  is  also 
called  four  times  to  output  the  partial  COPs. 

(a)  The  formal  arguments  of  subroutine  0UTGL0  are: 

1.  ISCNT  identifies  the  type  of  record  by  type  of  potential  and 

side. 


2.  IDW  identifies  the  "weapon  type,"  currently  1  to  60  for  actual 
weapons  and  "0"  for  a  division. 

3.  R  is  the  address  of  the  appropriate  five-vector  to  be  output 
after  that  vector  has  been  multiplied  by  FRX. 

4.  FRX  is  the  multiplier  by  which  the  given  five-vector  must  be 
multiplied  before  output.  FRX  itself  is  the  lifetime  adjustment  factor  in 
the  case  of  weapon  types.  It  is  1.0  in  the  case  of  COPs  because  the  life¬ 
time  adjustment  factors  have  to  have  been  applied  beforehand  during  the 
summing  of  weapon  types  over  the  entire  divisions. 
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(b)  Lines  673  through  675  check  whether  any  component  of  the  five- 
vector  is  greater  than  zero.  If  so,  control  goes  to  line  678  for  more 
processing. 

.(c)  Otherwise,  control  is  transferred  back  to  the  calling  program 
(line  659)  without  output  of  a  record. 

(d)  Lines  678  though  680  put  the  product  of  scalar  FRX  and  the 
given  five-vector  in  scratch  vector  S(). 

(e)  Lines  682  and  683  output  a  record.  Only  ISCNT,  IDW,  and  S() 
are  significant.  The  other  members  of  the  output  list  are  identifiers  not 
used  in  AFP  work  to  date. 

(5)  Subroutine  GETCAT.  Subroutine  GETCAT  is  called  once  from  the 
principal  subprogram  to  read  and  store  the  target  category  values  needed 
for  computation  of  the  weighted  scalar  component  of  five-vector  partial 
potentials.  The  values  are  stored  in  array  CVALS()  for  later  reference  by 
the  main  subprogram. 

(6)  Subroutine  OUTRAW.  Subroutine  OUTRAW  is  called  from  the  main 
subprogram  once  for  each  weapon  type  with  nonzero  inventory.  It  outputs  a 
line  within  the  CBT/CS/CSS  Merge  Module  report  recapitulating  (with  some 
extensions)  some  of  the  "raw"  output  of  the  Combat  Module.  As  noted  above, 
if  TVAL0N= .TRUE . ,  the  output  values  are  not  raw  but  are  weighted  by  target 
values. 


(a)  The  formal  arguments  of  OUTRAW  are: 

_1.  IS  identifies  the  side:  Blue=l,  Red=2. 

2.  IW  identifies  the  weapon  type. 

3.  R  is  the  address  of  the  appropriate  five- vector  giving  an 
unmodulate  score. 

4.  GZ  is  a  multiplier  to  be  applied  to  the  given  five-vector  in 
order  to  extract  the  "raw"  kills  and  weighted  scalar. 

5.  GZLOS  is  the  number  of  losses  suffered  by  weapon  type  IW. 

(b)  Lines  706  through  708  put  the  product  of  scalar  GZ  and  the 
given  five-vector  in  scratch  array  S(). 

(c)  Line  710  outputs  a  line  of  the  report. 

(d)  Line  711  returns  control  to  the  main  subprogram. 
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(7)  Subroutine  GETFRX.  Subroutine  GETFRX  is  called  once  from  the 
principal  subprogram  to  read  and  store  the  fractional  lifetime  factors 
needed  for  computation  of  partial  combat  potentials.  The  values  are  stored 
in  array  FRAX()  for  later  reference  by  the  main  subprogram. 

(8)  Subroutine  OUTPAR.  Subroutine  OUTPAR  is  called  once  from  the 
principal  subprogram  to  read  and  store  index  and  parameter  values  as 
identifiers  to  be  included  with  the  module's  output  records  of  partial 
combat  potentials. 

f.  Figure  F-10  provides  a  listing  of  the  MAP  element  for  collection  of 
the  program  elements  of  the  CBT/CS/CSS  Merge  Module. 


3  »  A  g  ,  E  ,  2  :  G  c  C  T  S  S  T  .  i  7  C  C  X  P  S 
I  3JOYV6Y5.CXPS 
I  N  300YVF.  Y5. INPUT 
IN  3uOYVEY5.CrlD=F 
IV  2GOYVEY5.CINIT 
1  ‘  3bt.ECTEST.PGG  TARTy 
IN  300YVEY5 . G  ?  T  L  C  c 
IN  300YVEY5 . G  T  T  C  A 
IN  300YVEY5.GETART 
IN  30OYVEYS.DIPLOS 
IN  3COYVEY5.INLLOS 
IN  ?30YVPYE.KFYCs,d 
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Figure  F-10.  Listing  of  the  MAP  Element  for  Collection  of  the  Program 
Elements  of  the  CBT/CS/CSS  Merge  Module 
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APPENDIX  G 

THE  AFP  ROLLUP  AND  STATS  MODULE 


Section  I.  OVERVIEW 

G-l.  The  AFP  Rollup  and  Stats  Module  is  designed  to: 

a.  Accept  intermediate  results  from  the  AFP  CBT/CS/CSS  Merge  Module  for 
an  organization  (division)  in  each  of  up  to  16  combat  environments  for  each 
of  one  or  more  random  number  seeds  in  the  form  of  a  separate  file  or 
separate  element  for  each  environment/seed  combination. 

b.  Accept  a  set  of  16  combat  environmental  weights  to  be  applied  in 
rolling  up  the  intermediate  results  from  the  CBT/CS/CSS  Merge  Module. 

c.  Calculate  the  weighted  sum  of  the  partial  combat  potentials 
contained  in  the  intermediate  result  files.  The  sums  of  weighted  partial 
combat  potentials  are  the  final  AFP  estimates  of  combat  potentials  of 
equipment  and  organization  (division)  for  both  Blue  and  Red--friend  and 
threat. 


d.  Output  a  new  file  containing  the  combat  potentials  for  both  sides' 
equipment  and  divisions. 

e.  Calculate  and  display  some  comparisons  of  partial  combat  potentials 
among  environments.  Simple  (unweighted)  arithmetic  means  are  provided  for 
each  type  of  equipment  within  each  of: 

(1)  The  four  postures:  RAPD,  STATIC,  RADE,  and  BAPO. 

(2)  The  two  times  of  day:  day  and  night. 

(3)  The  two  visibility  conditions:  clear  and  degraded. 

Each  of  (1)  through  (3)  provides  a  different  stratification  of  all  the 
intermediate  files.  The  simple  (unweighted)  means  and  standard  deviations 
across  all  files  are  also  provided. 

f.  Calculate  and  display  the  mean  modulated  scalar  CIPs  by  combat 
environment  for  each  weapon  type.  If  two  or  more  replications  are  rolled 
up,  standard  deviations  by  combat  environment  are  also  displayed. 

G-2.  The  relation  of  the  AFP  Rollup  and  Stats  Module  to  the  AFP  System,  in 
general,  is  portrayed  in  Figure  G-l.  There  the  module  is  highlighted  by 
being  enclosed  in  an  oval. 
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Figure  G-l.  Relation  of  the  AFP  Rollup  and  Stats  Module  to 
the  AFP  System  in  General 


Section  II.  INPUT 

G-3.  The  primary  input  to  the  AFP  Rollup  and  Stats  Module  are  the  files  of 
partial  combat  potentials  from  the  AFP  CBT/CS/CSS  Merge  Module.  A  separate 
file  for  each  combination  of  combat  environment  and  random  number  seed  is 
required. 
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a.  Figure  G-2  provides  an  example  of  the  form  of  the  files  from  the 
CBT/CS/CSS  Merge  Module.  The  fields  are  described  in  paragraph  14  of 
Appendix  B.  Note,  however,  that  the  identifiers  in  field  1  in  Figure  G-2 
are  all  less  than  100,  thereby  identifying  the  contents  of  Figure  G-2  as 
partial  combat  potentials.  Figure  G-2  corresponds  to  Figure  B-7  of 
Appendix  B.  As  noted  in  Appendix  B,  files  containing  partial  and  final 
combat  potentials  have  the  same  format  with  different  identifiers  in  field 
1.  Those  identifiers  are  described  in  paragraph  12  and  Figure  B-3  of 
Appendix  B. 
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b.  As  a  minimum,  the  Rollup  and  Stats  Module  requires  four  files  in  the 
format  of  Figure  G-2.  A  separate  file  is  required  for  each  of  the  combat 
environments.  The  module  will  accept  more  than  one  file  for  each 
environment.  The  feature  is  provided  to  permit  rollup  (and  analysis)  for 
one  or  more  sets  of  files  corresponding  to  different  random  number  seeds 
used  by  the  Combat  Module.  However,  the  number  of  files  should  be  the  same 
for  each  environment.  Although  the  module  can  accept  different  numbers  of 
files  for  different  environments,  the  results  produced  would  not  be 
correct,  simple,  and  weighted  means.  The  AFP  operator  must  provide  the 
number  of  complete  sets  of  files  as  part  of  input  to  the  module.  If  two  or 
more  sets  of  intermediate  files  exist,  the  AFP  operator  may  apply  the 
Rollup  and  Stats  Module  to  different  combinations  of  those  sets.  If 
intermediate  results  exist  for  each  of  two  seeds,  the  module  may  be  applied 
to  the  seed  1  set,  the  seed  2  set,  and  the  combined  seeds  1  and  2  set  in 
three  separate  runs.  Each  run  will,  in  general,  yield  somewhat  different 
results.  Therefore,  the  "final  combat  potential"  files  should  be  uniquely 
named. 


c.  Of  course,  correct  file  names  must  be  provided  to  the  Rollup  and 
Merge  Module.  The  AFP  operator  is  responsible  for  supplying  the  correct 
names  within  the  module's  runstream.  An  aid  to  runstream  generation  is 
described  in  paragraph  G-9.  Provided  that  file  names  are  consistent  with 
the  suggested  naming  conventions,  the  operator  can  easily  generate 
runstreams  for  one  or  more  random  number  seeds  per  environment. 

G-4.  Important,  but  only  secondary,  input  required  by  the  Rollup  and  Stats 
Module  consists  of  the  16  environmental  weights.  The  weights  are  usually 
supplied  by  the  AFP  customer.  Weights  should  be  nonnegative  and  sum  to 
1.0.  The  module  accepts  unformatted  records  containing  the  environmental 
weights.  An  example  of  environmental  weight  input  is  included  in  the 
sample  runstream  described  in  G-ll. 


Section  III.  OUTPUT 

G-5.  The  AFP  Rollup  and  Stats  Module  is  designed  to  generate  only  two 
forms  of  output.  The  principal  product  is  a  file  containing  final 
equipment  and  division  combat  potentials  for  both  friendly  and  threat 
forces.  The  secondary  output  is  a  stratified  analysis  of  potentials  by 
posture,  time  of  day,  and  visibility. 

G-6.  Figure  G-3  portrays  extracts  from  a  sample  output  file  containing 
final  combat  potentials.  The  format  of  the  output  file  is  the  same  as  that 
of  all  the  input  files.  As  noted  above,  field  1  contains  record 
identifiers.  In  an  output  file  from  the  Rollup  and  Stats  Module,  all  these 
identifiers  are  greater  than  100.  In  an  input  file  to  the  Rollup  and  Stats 
Module,  all  the  identifiers  in  field  1  are  less  than  100. 
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Figure  G-3.  Example  Extract  Records  from  File  of  Final  Combat 
Potentials  (for  all  16  combat  environments)  as 
Output  by  the  AFP  Rollup  and  Stats  Module 


G-7.  Figure  G-4  displays  an  extract  of  the  printed  statistical  analysis 
across  postures,  time  of  day,  and  visibility.  Field  1  contains  the  same 
identifiers  used  in  the  file  of  final  combat  potentials.  However,  the 
statistical  analysis  may  contain  10  or  12  lines  for  every  record  in  the 
final  combat  potentials  file.  The  extract  in  Figure  G-4  is  for  just  one 
weapon  type.  Each  statistical  stratification  shown  in  Figure  G-4  is  per¬ 
formed  over  the  full  set  of  input  to  the  Rollup  and  Stats  Module.  If  one 
file  (corresponding  to  a  single  random  number  seed  input  to  the  Combat 
Module)  is  input  for  each  of  the  16  combat  environments,  then  each  of  the 
postures  shown  in  Figure  G-4  is  averaged  over  four  environments,  each  of 
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the  times  of  day  is  averaged  over  eight  environments,  each  of  the  visibil¬ 
ities  is  averaged  over  eight  environments,  and  the  lines  labelled 
"WTD. MEANS"  and  WTD. STD. DEVS. "  are  suppressed.  The  columns  through 
"SCALAR"  in  Figure  G-4  need  no  new  explanation.  The  last  three  columns  do 
require  some  comment. 
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Figure  G-4.  Example  Extract  Records  from  Report  of  Stratified  Partial 
Combat  Potentials  as  Output  by  the  AFP  Rollup  and  Stats  Module 


a.  The  column  "OPP.LOSS"  translates  scalar  scores  by  posture  into  the 
implied  losses  per  opposing  division.  In  the  Figure  G-4  example,  Blue 
scores  are  converted  to  Red  losses  by  division  of  the  corresponding  Red  to 
Blue  division  ratios.  Because  Posture  2  is  at  1:1  division  ratio,  the 
SCALAR  and  OPP.LOSS  entries  are  equal.  For  Posture  1,  the  OPP.LOSS  values 
are  one-third  the  SCALAR  values  because  Posture  1  is  "fought"  at  3:1  Red  to 
Blue  division  ratio. 
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b.  The  column  "REL.P0S2"  gives  values  for  all  postures  based  on  Posture 
2  under  the  assumptions  that  Blue  weapons  are  in  defilade  and  Red  weapons 
are  in  the  open  (exactly  the  case  only  for  Postures  1  and  2)  and  that  the 
underlying  scalar  loss  law  is  Lanchester  linear. 

c.  The  column  "DIFF"  presents  the  difference:  REL.P0S2  -  OPP.LOS. 

DIFF  should  be  0.0  for  Posture  2,  the  base  posture.  In  results  to  date, 
DIFF  for  Posture  1  is  often  relatively  small  suggesting  that  the  AFP  Combat 
Module  is  often  consistent  with  the  above  assumptions  with  regard  to  many 
weapon  types.  DIFF  for  Postures  3  and  4  may  be  relatively  large  because 
Blue  weapons  are  in  the  open  in  both  postures  and  Red  weapons  are  in 
defilade  in  Posture  4.  DIFF  values  may  be  scanned  quickly  for  unusual 
results. 

d.  Figure  G-5  presents  an  example  of  a  report  produced  by  the  AFP 
Rollup  and  Stats  Module.  For  each  weapon  type  on  each  side,  the  report 
presents  the  mean  modulated  scalar  CIP  by  combat  environment. 

(1)  A  "CIP  line"  in  the  report  is  in  the  form 

1  16 

SIDE  =  (1  or  2)  WPN  =  (1  to  60)  n.nn. .  .n.nn. .  .n.nn 
SIDE  =  1  for  Blue,  SIDE  =  2  for  Red 

n.nn  in  column  i  is  the  mean  CIP  for  combat  environment  i 
n.nn  in  the  right  most  column  is  the  weighted  CIP  over  all  combat 
environments 

(2)  If  two  or  more  replications  are  rolled  up,  standard  deviations 
within  combat  environments  are  displayed  in  lines  of  the  form 

STD. DEVS.  1  16 

n.nn. . .n.nn 


n.nn  in  column  i  is  the  estimated  standard  deviation  for  the  CIP  in  the 
same  position  in  the  preceding  line. 
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Figure  G-5.  Extract  from  Example  Report  of  Modulated  Scalar  CIPs  and 
Corresponding  Standard  Deviations  as  Output  by  the  AFP 
Rollup  and  Stats  Module 


Section  IV.  RUNSTREAM 

G-8.  This  section  describes  a  generic  program  for  generating  AFP  Rollup 
and  Stats  Module  runstreams  and  provides  some  examples  of  generated  run- 
streams  for  a  few  of  the  most  interesting  and  useful  cases.  Familiarity 
with  the  UNIVAC  Symstream  language  and  SSG  processor  is  assumed. 

G-9.  Runstream  generation  is  intended  to  simplify  several  possible  problems 
in  applying  the  Rollup  and  Stats  Module. 

a.  The  module  must  be  "fed"  the  correct  set  or  sets  of  intermediate 
files  or  elements  from  the  AFP  CBT/CS/CSS  Merge  Module.  The  setting  of  a 
single  SGS  value  within  the  runstream  generator  determines  whether  the  re¬ 
sulting  runstream  will  be  setup  to  accept  partial  combat  potentials  from 
files  or  elements.  For  a  rollup  over  16  combat  environments  (normal  appli¬ 
cation)  and  two  replications  (typical  but  as  many  as  10  reps  may  be  included), 
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32  files  or  elements  are  correctly  assigned  or  copied  and  then  read  by  the 
module.  The  runstream  generator  creates  the  96  runstream  images. 

b.  If  several  different  sets  of  files  or  elements  (each  set 
corresponding  to  a  different  random  number  seed's  results  from  the  AFP 
Combat  Module)  exist,  the  appropriate  combination  of  sets  in  accord  with 
naming  conventions  must  be  applied,  and  the  number  of  sets  must  be 
specified.  The  runstream  generator  performs  these  tasks  from  a  few  SGS 
definitions.  If  fewer  than  two  sets  are  rolled  up,  some  of  the  standard 
statistical  measures  are  suppressed  because  one  "replication"  is 
insufficient  for  estimating  standard  deviations  within  a  single  combat 
environment. 


c.  The  16  weights  (summing  to  1.0),  one  for  each  combat  environment, 
must  be  provided  for  use  in  constructing  the  weighted  summations  of  partial 
combat  potentials  over  all  combat  environments  and  seeds. 

If  files  rather  than  elements  are  being  used  throughout  for  partial 
and  final  combat  potentials,  then  a  file  to  receive  the  final  combat  poten¬ 
tials  must  be  assigned  and  used.  The  runstream  generator  takes  care  of 
this  task  in  accord  with  the  same  SGS  mentioned  in  G-9a,  above. 

e.  In  the  event  that  the  intermediate  partial  combat  potential  files  do 

not  reflect  scores  of  single  divisions,  a  feature  is  provided  within  the 
Rollup  and  Stats  Module  to  permit  adjustments  to  single  division  scores. 

G-10. ^  It  is  certainly  an  advantage  to  apply  a  consistent  scheme  in  naming 

AFP  files  and  elements. _  The  runstream  generator  requires  that  a  consistent 

scheme  exist  from  division  to  division,  combat  environment  to  combat 
environment,  and  replication  to  replication.  The  Rollup  and  Stats  Module 
involves,  at  most,  just  two  classes  of  AFP  files.  In  the  case  in  which 
elements  (preferred)  instead  of  files  are  used  to  save  partial  and  final 
combat  potentials,  only  a  single  permanent  file  is  needed  for  a  run.  Very 
many  temporary  files  may  be  required  during  a  rollup  run,  however. 

a.  In  the  case  of  separate  files  for  each  environment/repl ication  pair, 
partial  combat  potential  files  input  should  have  names  of  the  form: 

(two-character  user  ID) (four-character  division  name)E(two-digit 
environment  ID)  R  one-  or  two-digit  replication  ID) 

e.g.,  H7HM80E01R1. 

i ne  final  combat  potential  output  file  should  have  a  name  of  the  form: 

(two-character  user  ID) (four-character  division  name)R16(R  or  X)(one-  or 
two-digit  indicator  of  number  of  replications  included) 

e.g.,  H7HM80R16X2. 
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b.  In  the  case  of  separate  elements  of  input  and  output  potentials  all 

within  a  single  file,  the  file  name  should  be  of  the  form: 

(two-character  user  ID) (four-character  division  name) 

e.g.,  H7HM80. 

The  input  elements  should  have  names  of  the  form: 

E(two-character  combat  environment  ID)R(one-  or  two-digit  replication  ID) 
e.g.,  E01R1. 

The  output  element  should  have  a  name  of  the  form: 

R16(R  or  X)(one-  or  two-digit  indicator  of  the  number  of  replications 
included) 

e.g.,  R16X2. 

G-ll.  Figure  G-6  displays  a  sample  generic  SSG  program  for  generating  a 

set  of  Rollup  and  Stats  Module  runstreams.  The  sample  is  set  up  for  a 

specific  application:  division  3M  in  year  84  for  all  16  combat  environ¬ 
ments  over  two  replications  with  combat  potentials  in  elements,  not  files. 

a.  SGS  Section.  The  order  of  SGSs  is  not  important;  their  contents  are 
critical . 

(1)  The  SGS  "FORCE"  provides  the  name  of  the  division  of  interest. 

(2)  The  SGS  "ENV"  defines  the  symbols  representing  the  16  combat 
environments. 

(3)  The  SGS  "REPS"  specifies  which  replications  are  to  be  included  in 
the  rollup.  A  "1"  would  limit  the  rollup  to  rep  1.  A  "1  2  3"  would 
include  reps  corresponding  to  the  first  three  seeds  supplied  to  the  AFP 
Combat  Module. 

(4)  The  SGS  "ESET"  defines  the  symbol  used  in  the  output  file  or 
element  to  record  the  number  of  combat  environments  included  in  the  rollup. 
ESET  should  be  16  for  a  full  rollup. 

(5)  The  SGS  "RESET"  defines  the  symbol  used  in  the  output  files  or 
element  to  record  the  number  of  replications  included  in  the  rollup.  Care 
must  be  taken  to  avoid  overwriting  prior  results  that  should  be  retained. 
For  example,  separate  rollups  over  reps  1  and  2  and  over  3  and  4  should 
not,  in  general,  both  have  RSET  at  X2. 

(6)  The  SGS  "USER"  specifies  the  user  ID,  H7  in  the  example. 

(7)  the  SGS  "KTHTR"  specifies  a  theater  symbol  to  be  included  in 
output  records.  The  example  E  signifies  Europe. 

G-10 


CAA-D-84-14 


1 

2 

3 

4 

5 

6 
7 
S 
9 

10 
1  1 
1  2 
1  3 
1  4 
1  3 
1  6 
1  7 
1  8 
1  9 
20 
21 


25 

26 

27 

28 

29 

30 

31 

32 

7  7 

34 

35 
3fc 

37 

38 

39 

40 
4  1 

42 

43 

44 

45 
4  t 

47 

48 

49 

50 


a  S  S  G  ,  6  K 
SGS 

FORCE  HM8C 

ENV  01  02  03  C 4  05  06  C7  C3  09  1  0  1  1  1  2  1  3  1  4  1  5  1  6 

REPS  1234567S910 

ESET  16 

RSET  X10 

KTHTR  ""  E  "  " 

JTPD  ""  SC""  .4 

IBFOR  ""  2C  0  1  "  "  .6 

IRFOR  ""  1000""  .6 

JCASE  "  "  8032""  .5 

USEFILES  N 

SNAME  H7HM8C 

INLIST  Y 

SORT  Y 

USER  H  7 

SSGLIST  N 

SEOF 

SKEL 

♦ERKPT  ,  K  G6GECTEST.GOROLCFORCE,1f1*1DCRFPS,13Z 
A  N  D  G  UNCLASSIFIED  AFP  [ F 0 R C E , 1  , 1  , 1 3  ROLLUP  R E P C R S E T , 1  , 1  ,  13 
♦IF  [SSGLIST  f 1  ,1,1]  =  Y 

A  E  L  T  ,  L  G6GECTEST .LGNGRQLLSSG/SKELOPTSX 

♦  ELT,  L  G6GECTEST.GUROLCFORCE,1,1tnCRcPSt1]Z 
♦END 

♦  I  F  [USEFILES  , 1  *  1  1 1 3  =  Y 
♦INCREMENT  IE  TO  IENV,1] 

♦INCREMENT  R  TO  [REPS  f  13 

A  A  S  G  ,  A  CUSERf1,1,1KFORCE,1f1f13ECENVf1fIEf1]RCPEPS*1fR*n. 
♦LOOP  •  R 
♦LOOP  .IE 

A  A  S  G  ,  A  [USER,  1,1,  1]CFORCE,1,1,1]RC£$ET, 1,1,1]]  CR  SET, 1,1,1]. 
AUS  E  30.,CUSERf1f1f1KFORCE*1f1f13RCESETt1f1#nCRSETt1,1»n. 
♦ELSE 

n ASG  ,  A  CSNAME  ,1,1,11. 

A ASG  ,  T  3  G  . 

A  A  S  6  , T  WARNING.  ,/// 10000 
n ASG  ,  A  G6RESULTS  . 

A^RS  G6RESULTS  • 

♦  END 

A ASG, T  IS. 

AERS  30. 

AXQT  G6R0LLUP • AFPST  ATSTRAT  /  TEST 


*.  IMAGE  GIVING  INDICES  IN  C  3  T  °OT  OUTPUT  RECORDS 
♦EDIT  ON 


[KTHTR  .  1 . 1  .  IIS 
[JT°Q,1,i,i]& 


0  0  OS 


[ I  5  F  0  R ,1,1,1]? 


Figure  G-6.  Example  of  SSG  Program  for  the  Generation  of  Runstreams 
for  Execution  of  the  AFP  Rollup  and  Stats  Module 
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(8)  The  SGS  "JTPD"  specifies  a  two-digit  year  symbol  to  be  included 
in  output  records.  The  example  84  corresponds  to  the  year  included  in  the 
division  name,  3M84. 

(9)  The  SGS  "IBFOR"  specifies  a  four-  to  six-digit  division 
identifier  to  be  included  in  output  records.  A  TPSN  is  a  logical  choice 
for  division  identifier. 

(10)  The  SGS  "IRFOR"  specifies  a  four-  to  six-digit  threat  identifier 
to  be  included  in  output  records. 

(11)  The  SGS  "JCASE"  provides  an  up  to  six-digit  identifier  of  the 
case  being  considered  for  inclusion  in  output  records. 

(12)  The  SGS  "USEFILES"  specifies  whether  the  rollup  is  to  be 
performed  using  input  and  output  files  (Y)  or  elements  (N). 

(13)  The  SGS  "SNAME"  specifies  the  name  of  the  file  containing  input 
elements  and  receiving  the  output  element.  SNAME  is  critical  only  if 
USEFILES  is  N,  as  in  the  example. 

(14)  The  SGS  "INLIST"  specifies  whether  the  input  partial  combat 
potentials  are  to  be  listed.  INLIST  set  to  Y  causes  the  potentials  for  all 
input  combat  environments  and  replications  to  be  listed.  N  suppresses  the 
listing  of  input. 

(15)  The  SGS  "SORT"  specifies  whether  the  output  final  combat 
potentials  are  to  be  sorted  and  listed  in  ascending  scalar  potential  order. 

(16)  The  SGS  "SSGLIST"  specifies  whether  the  SSG  program  and  generated 
runstream  are  to  be  listed  in  the  rollup  output. 

b.  SKELeton  Section.  The  SKEL  section  of  Figure  G-6  creates  names  of 
files  and  elements  in  accord  with  the  above  SGS  definitions.  The  SKEL 
logic  loops  over  combat  environments  and  replications  as  appropriate.  The 
generated  runstream  element  is  saved  for  inspection  prior  to  execution. 

The  SKEL  section  is  hardly  the  most  general  program  imaginable.  Special 
AFP  cases  or  conditions  may  require  modification  of  both  SGS  and  SKEL. 
However,  many  special,  one-time  variations  may  be  handled  most  easily  by 
editing  a  standard  generated  runstream. 

G-12.  RUNSTREAM  EXAMPLES.  Figures  G-7  through  G-9  provide  examples  of 
Rollup  and  Stats  Module  runstreams  generated  by  the  runstream  generator. 

a.  Figure  G-7  is  an  example  runstream  for  a  division  over  16  combat 

environments  and  1  replication  and  using  input  and  output  elements. 

b.  Figure  G-8  is  an  example  runstream  for  a  division  over  16  combat 
environments  and  6  replications  and  using  input  and  output  elements. 

c.  Figure  G-9  is  an  example  runstream  for  a  division  over  16  combat 

environments  and  2  replications  and  using  input  and  output  files  without 

listing  of  input  files. 
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Figure  G-7.  First  Example  of  an  SSG-generated  Runstream  for 
Execution  of  the  AFP  Rollup  and  Stats  Module 
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Figure  G-8.  Second  Example  of  an  SSG-generated  Runstream  for 
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i 

i 

i 

W7?*?4E16R1  • 

1  6 

i 

i 

i 

i 

H73*?4E16R2. 

n 

o 

i 

i 

i 

i 

DONE 

a*  D  A  T  A  ,  L  T  C  • 

Or  FN  D 

&  A  S  6 i T  SORTCUT. 

SSORT  f  S 

VCLUKE=$ v  ALL 

KFY=1f5,CHfA:*7f1C.CHfA 

F I LEI\=2C  . 

FILE0UT=S0RT0UT. 

clFOF 

3  D  A  T  A  f  L  SORTOUT. 

SEND 


Figure  G-9.  Third  Example  of  an  SSG-generated  Runstream  for 
Execution  of  the  AFP  Rollup  and  Stats  Module 
(page  2  of  2  pages) 
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Section  V.  PROGRAM 

G-13.  Apart  from  its  input  and  output  functions,  the  AFP  Rollup  and  Stats 
Module  is  nothing  more  than  a  stratified  adding  and  averaging  program  with 
the  side  role  of  computing  some  standard  deviations.  The  only  chance  for 
confusion  arises  because  the  program,  in  effect,  concurrently  adds  and  ave¬ 
rages  several  different  though  related  data  streams.  Figure  G-10  portrays 
the  basic  logic  of  the  AFP  Rollup  and  Stats  Module.  Logical  file  29  is 
used  repeatedly  as  the  source  of  intermediate  partial  combat  potentials. 

In  current  applications,  the  program  successively  attaches  16  or  32 
physical  files  to  unit  29.  Final  combat  potentials  are  output  to  unit  30. 
Most  of  the  arithmetic  performed  by  the  module  is  devoted  to  updating 
multidimensional  arrays  with  simple  and  weighted  partial  sums  of  potentials 
corresponding  to  different  shooters  by  side  with  their  unmodulated  and 
modulated  scores  and  CIPs.  Arrays  for  the  grand  totals  by  side  are  also 
updated  throughout.  Elements  of  several  of  the  arrays  are  divided  by 
appropriate  counters  to  yield  arithmetic  means.  Concurrent  with  the 
ordinary  summations,  some  sums  of  squares  are  maintained  for  use  in 
determination  of  standard  deviations. 
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Figure  G-10.  Flow  Diagram  of  the  Basic  Logic  of  the 
AFP  Rollup  and  Stats  Module 
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G-14.  AFPSTATSTRAT  is  the  current  version  of  the  source  program  for  the 
AFP  Rollup  and  Stats  Module.  The  AFPSTATSTRAT  source  program  is  listed  in 
Figure  G-ll. 

a.  The  principal  working  arrays  for  accumulating  results  are: 

(1)  WVAL(5,4,60,2).  Final  combat  potentials  of  weapons  are  developed 
within  this  array.  During  execution  of  the  program,  weighted  intermediate 
partial  combat  potentials  over  all  16  combat  environments  and  one  or  two 
random  number  seeds  are  accumulated  within  the  array.  An  array  element 
WVAL( I  ,J,K,L)  is  indexed: 

(a)  1=1  to  5  for  the  components  of  five-valued  form  of  combat 
potentials:  personnel,  light  armored  vehicles,  heavy  armored  vehicles, 
aircraft,  and  the  weighted,  rolled-up  scalar. 

(b)  J=1  to  4  for  the  four  kinds  of  potentials:  unmodulated  score, 
unmodulated  CIP,  modulated  score,  and  modulated  CIP. 

(c)  K=1  to  60  for  the  60  different  weapon  types  permitted. 

(d)  L=1  to  2  for  the  two  sides:  Blue  and  Red. 

(2)  C0P(5,2,2).  Final  combat  potentials  of  divisions  (COPs)  are 
developed  within  this  array.  During  program  execution,  weighted  partial 
COPs  over  all  16  combat  environments  and  one  or  two  random  number  seeds  are 
accumulated  within  the  array.  An  array  element  C0P(I,J,K)  is  indexed: 

(a)  1=1  to  5  as  in  a( 1) (a)  above. 

(b)  J=1  to  2  for  the  two  kinds  of  COPs:  unmodulated  COP  and  modu¬ 

lated  COP. 

(c)  K=1  to  2  for  the  two  sides:  Blue  and  Red. 

(3)  XVAL(5,4,60,2).  Simple  arithmetic  mean  combat  potentials  (scores 
and  CIPs)  for  weapon  types  are  developed  within  this  array.  XVAL  and  WVAL 
would  contain  exactly  the  same  results  if  the  combat  environmental  weights 
applied  in  developing  WVAL  were  all  1/16.  The  indexing  of  the  elements 
XVAL( I , J,K,L)  is  exactly  the  same  as  for  WV4L()  above. 

(4)  X2VAL(5,4,60,2) .  The  squares  of  the  intermediate  partial  combat 
potentials  are  accumulated  within  this  array  for  use  in  the  determination 
of  standard  deviations  across  all  16  combat  environments.  The  indexing  of 
elements  X2VAL(I, J,K,L)  is  exactly  the  same  as  for  XVAL()  and  WVAL()  above. 

(5)  XC0P(5,2,2) .  Simple  arithmetic  mean  combat  potentials  (COPs)  for 
divisions  are  developed  within  this  array.  XCOP  and  COP  would  contain 
exactly  the  same  results  if  the  combat  environmental  weights  applied  in 
developing  C0P()  were  all  1/16.  The  indexing  of  elements  XC0P(I,J,K)  is 
exactly  the  same  as  for  C0P()  above. 
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i 


u 

5 

6 
7 
l 
9 

10 
1  1 
i : 
13 
1  4 

1  5 
16 
17 
IS 
19 

2  0 


24 

25 
2c 
27 

2  c 
2  c 

3  C 
3  1 

32 

33 

34 

35 

36 

37 

3  S 
39 

4  C 
4  1 

42 

43 

44 

45 

46 

47 

4  3 
49 

5  G 


C  ROLLUP  TARTY  OUTPUT  OVER  ALL  ENVIRONMENTS 
C  a.  E .  C.  26  SEP  83 

C  WITH  MEANS  AND  STD.  DEVS.  4  OCT  83 

C  WITH  POSTURE  SUB-*EANS  13  OCT  *3 

C  WITH  DAY/NIGHT  SUBMEANS  21  OCT  83 

C  WITH  VISIBILITY  SUBMEANS  21  OCTOBER  83 

C  MODIFIED  TO  HANDLE  • LE •  16  ENVIRONMENTS  20  *  A R  84 

DIMENSION  WVAL(5,4,6G,2)fC0e<5,2,2),ENVWTS(16),ISCNTw(6,2), 

1  NTYPS  (2 )  , ISCNTS (12) , X (5) , I SCNTP  <6, 2) , ISCNTT  (12) , JRECS (1 2 )  , 

2  DIVM(2)»DIVD(2) 

DIMENSION  XVAL(5,4,6G.2),X2VAL(5,£,6Q,2), 

1  XCQPC5,2,2),X2COP<5,2,2) 

DIMENSION  PXVAL(5,4,60,2,4),PXC0P(5,2,2,4) 

DIMENSION  DXVflL(5,4,6C,2,2),DXCOP(5,2,2,2) 

DIMENSION  VXVflL(5,4,60,2,2),VXC0P(5,2,2,2) 

DIMENSION  MDAY(16)  ,ENVSW(16) 

DIMENSION  DAYCNT(2),VISCNT(2),PCSCNT(A) 

EQUIVALENCE  (ISC  NT W, ISCNTS),  (ISCNTR, ISCNTT) 

COMMCN/AWRK/IWRK,IDUM,KTHTR,JTPD,JVI$,JPO$,«JDAY 

COMMON/GLCSAL/IBFOR, IRFORfJCASE 

COMMON/NAME/FNAME 

CC**ON/FNV$/£WTTOT 

CCMMCN/STRAT/IREP,XSUM<5,4fl6,60,2)1XSQ(5,4f16,60»2), 

1  CSUM(5,2,16,2),CSG(5,2,16,2),XSTD(5,4,60,2),CSTD(5,2,2) 
CHARACTER*5C  INSTR 
CHARACTER*2C  FNAME  ,  0  N  A  M  E  ,  D  G  N  E 
CHARACTERS  XTHTR 
LOGICAL  AUS1,AUS2,ENVSw,ELTSU 
DATA  ISCNTW/ 

1  110,130,150,170,111,151, 

2  120,140,160,190,121 ,161/ 

DATA  NTYpS/2*60/ 

DATA  ISCNTR/ 

1  10,30,50,70,11 ,51 , 

2  20,40,60,80,21 ,61/ 

DATA  JRECS/ 

1  1  ,2, 3, 4,1  ,2, 

2  1  ,2,3,4, 1.2/ 

DATA  M  DAY/1. 1,1, 1,2, 2, 2, 2, 1,1, 1,1, 2, 2, 2, 2/ 

DATA  ENVS W/ 1 6*. FALSE./ 

DATA  DAYCNT/2*0.O/,VI$CNT/2*O.O/,POSCNT/4*O.O/ 

C 

C  READ  OUTPUT  RECORD  IDENTIFIERS 

R  E  A  D  (  5 , 4 )  KTHTR,JTPD,JVIS,JPQS,JDAY,IBFOR,IRFOR,JCASE  ■ 

4  FORM  AT (A3 , 14 , 3 13 ,216  ,  15  ) 

C 

N=C 

C  LOGICAL  DESTINATION  OF  ROLLUP  OUTPUT 

I W  R  K  =3  C 
IPRNT=1 8 


Figure  G-ll.  Source  Listing  of  the  Main  and  Subprograms 
of  the  AFP  Rollup  and  Stats  Module 
(page  1  of  12  pages) 
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51 

52 

53 

54 

55 

56 

57 

58 

59 

6  C 

61 

62 

63 

64 

65 

66 

67 

66 

69 

7  G 

71 

72 

73 

74 

75 

76 

77 

7  S 

7  V 

8  C 

6  1 

82 

63 

£4 

6  5 

86 

87 

c  £ 

39 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 
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c 


c 


c 


c 

c 


c 


LOGICAL  SOURCE  OF  TARTY  FILES 

I S  0  R  =2  9 

DON£='DONE' 


CALL  Z  E  0  f*VALf2  4QG3 
CALL  ZERO (COP, l?) 

CALL  rE0C  UVAL  ,  SiCGl 
CALL  ZERO  CSC  *L  *2^00 
CALL  2fcP0  (  ACOP,  20 
CALL  ZERO f K2C0F T2C3 
CALL  2£RQ<P*-ALf**00J 
call  lEfiafp^ccp.ioi 

CALL  2£ROID3fvAL  ,45003 

CALL  IEH'0  (VTVAL  .4“CCJ 
CALL  IERQ  <0*CQF  *403 
CALL  ZERO CVUCOP  ,403 
CALL  2ERO<JfSJPj3P40C) 

CALL  ZERO  f  XSG, 3  84003 
CALL  ZEP0<CSu'*tT20S 
call  ZERO rcS5 ¥Z2C> 
call  zeiumsTDtZtoo) 

CALL  Z  E  R  0  < C  5 I D  t £  Q 1 
READ  Tnp  E  NV  [  p  T  AL  MEIGHT5 

nEAD(!tTI  (  £  VVW  T  5  U  >  ,  I  =  1  ,  1  6  3 
1  FO&W  A  T  1 3 


READ  THE  NUMBER  OF  REPS  EXPECTED  &  E L T S *  SETTING 
READ(5,1)REPS.ELTSw 
IF (ELTSW3  I S  0  P  =  5 
IREP  =  I FIX  (REPS3 

IFCELTSW3  CALL  FACS  F  (  *  »  0  R  K  P  T  PRINTS/WARNING-') 

GOTO  95 


9 C  CLOSE  (ISOR) 

95  CALL  SETFIL(FNAPE'IENV«DIVM<1) 
I  F  (  FNAME  •  EQ . D ONE  3  GOTO  2000 
EWT=£NVVTS ( IENV) /REPS 
ENVSW ( I ENV ) =. TRUE . 

N  =  N  +  1 

LPOS  =  1  +f*OD  (  I  ENV-1  ;  4) 
IF<IENV*LT*9)  THEN 
L V  I S  =  1 
ELSE 
L VIS-2 
ENO  I  F 

LDAY=I"DA  Y  (  IENV) 

POS  CNT  CLPOS )=POSCNT (LPCS  3  +1 .0 
VISCNT  (LVIS)=VISCNT(LVIS)  +  1  *0 
DAYCNT(LDAY)*DAYCNT(LDAY)41.0 
ONAME  =  FNA.ME 


DIVD  (1)  »DIV^C2)  *  D I  V  0  (  2 )  ) 


Figure  G-ll.  Source  Listing 
of  the  AFP  Rollup 
(page  2  of 


of  the  Main  and  Subprograms 
and  Stats  Module 
12  pages) 
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101 
1  Q  2 

103 

104 
1  G  5 
106 

I  Q  7 

105 
109 
1  1  0 

I I  1 
112 
1  1  3 
114 
1  1  5 
116 
1  1  7 
1  1  8 
1  1  9 
12  0 
121 
122 

123 

124 

125 
12  6 
127 
12s 
129 
1  3  C 
1  3  1 

132 

133 

134 

135 

136 

137 
13  6 

139 

140 

141 

142 

143 

1  44 

145 

146 

147 

148 
1  49 
1  50 


wR I T  E (1 8  ,  3  )  FN  AME 
3  FORM  AT ( 1 X , A2C  ) 

IF(ELTSW)  THEN 

IN$TR='3ADD ,1  'fl ONAME 
ELSE 

IN$TR='3U$E  29.  # '//ONAME//'.' 

END  I  F 

CALL  FACSF(INSTR) 

C 

ICO  CALL  GETRECdSCNTviWPNfXtISOR) 

DO  200  1=1,12 

IFdSCNT.NE.ISCNTT(I)  )  GOTO  200 
I  S  =  I 

GOTO  300 
200  CONTINUE 

*RITE(IPRNT,2)  ISCNT 

2  FORMATC r  UNRECOGNIZABLE  RECORD  TYPE*',I5/) 

IERR1=IERR1+1 
I F ( I E  RR 1 .LT.10)  GOTO  100 
STOP  'IERR1' 

C 

300  IREC  =  JRECS  (IS) 

IFCIS.LT.7)  THEN 
I S I DE=1 
ELSE 
I  S I D  E  =  2 
END  I  F 
C 

IF (  (IS. EG. 5)  .OR, (IS.EQ.6)  .OR.(IS.FQ.II)  .0°.  (  IS.CQ*12))  GOTO  500 
C 

C  HERE  IF  WEAPON  RECORD  READ 

C 

C  CIPS  DO  NOT  NEED  ADJUSTMENT  FOR  NUMBER  OF  DIVISIONS 

C 

ZZ=1  .0 
ZZ2=1  .0 

IF(M0D(IS,2) • E  Q . C )  THEN 
XX  =EWT 
ELSE 

XX=EWT*DIVM(TSIDE)/DIVD(ISIDE) 

ZZ=DIVM(ISIDE)/DIVD(ISIDE) 

ZZ2=ZZ*ZZ 
END  I  F 
C 

DO  450  I =1 , 5 

X  Y  =  X  (  I  ) 

wVAL(I,IREC,IWPN,ISIDE)=WVAL(I,IREC,IWPN,ISIDE)4 
1  X  X  *  X  Y 

XVAL(ItIRECtIWPNfISIDE)*XVAL<If!RFCtIWPNfISIDP)+ZZ*XY 
X2VAL(IfIREC,IWPN,I$IDE)=X2VAL(I,IREC,lWPN,I$IDE)+  ZZ2*XY*XY 


Figure  G-ll.  Source  Listing  of  the  Main  and  Subprograms 
of  the  AFP  Rollup  and  Stats  Module 
(page  3  of  12  pages) 
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151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 
163 

1  64 

165 

166 
167 
16c 

169 

170 

171 

172 

173 

I  7  4 

175 

176 

177 
175 
179 
ISC 
1S1 
182 
163 
154 

I I  5 
16c 

157 

158 
189 
19C 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 


PJ'VALfltIHECiI-PNtISJPE*LPOSJ^P'r^iLfIfIRECTIpPS,ISIDEtLPCSJ 
1  +  T1 *  *  * 

T  L0  M 1 +7  Z • X  T 

v  x  v  a  l  r  i ,  1  r  e  c  ,  iwPNTisiJ>£TLvi&3=v^AL{iitiuc*r-pN,i5iDt* 

1  LV  [5  3  *22  -is  Y 

*  5  U  H f I,  lREC,ieKVTl-PNTISl3£3=xSU"fI  1  I*£CilENYiiyPNf  t □  1  D  ^  3  * 

T  2  I *X  T 

X5aCl,l0ECrlcNVftWPN,r5lDE}-X5flriiIflECiTENU,]UP‘4iT5T&E]  + 

1  JI2*-:<T*xr 

450  CONTINUE 
bOTO  1  CD 
C 

C  HERE  IF  COP  RECORD  READ 

500  ZZ"DIV^(I$IDt)/DIVO(I$IDE) 

ZZZ=ZZ*ZZ 

c 

00  550  1*1,5 

K  Y  ■  X  (  I  > 

CCP(IfIRCC,r&!DE)=CQPfi,iIRECilSlQE3^inf*EdT*2Z 
XC0P<IfrREC«ISIfi£3±XCQPriiIRECtISlDE)+ZZ*vv 
a  2  C  0  p  <  I  1  I  B  £  C  t  r  5  ]  D  €  3  =  x  2  C  3  P  f  1  T  I  ft  E .  C  ,  I  S  I  0  E  *  *  1 Z  2  *  X  y  *  *  if 
PXCQPtItIPtC4I5IDE,l.POS)-PXCOPtTiIHEt1ISlO£,UPOS]  + 

1  Z2  *xr 

^xCOPfEtiafCtlSIDP^DAYl-axCOPf!  iIHF£,I$IDE*LD*T)  + 

1  1 2  +  X  * 

VXC0P(I,IP£CTrSI0ElLWlS1=VXC0PM1lREC,ISSl>EiLVl5]  + 

1 

CSU,iCIit*EC,l?NVfISlDEa=£SU*(I,IflPC*IENV*I5IDcJ+IZ*<if 
C'0{I*IH£CtIt^yiISlDlElaCSia(!s18¥C,l£NV,ISla£l+Zl£*Xv*Xlf 
550  CONTINUE 

C  I  ST  NT  =  6  1  15  LAST  RECORD  OP  XN  E  N  V  I  R  ON  F*  E  V 1 

IfttI5CVT,6a**13.ANO,-LTSJ>  £ 0  T  0  ^  5 
GOTO  9b 

GOTO  ICC 
C 

C  OUTPUT  GRAND  REPORT 

2000  IF(ELTSW)  THEN 

CALL  FAC$F("£BRKPT  PRINTS"! 

CALL  FACSF("3BRKPT  PRINT$/G6RESULTS') 

CALL  FACSF("3FREE  WARNING*") 

END  I  F 

EWTTOT=C  .0 

DO  2 1 C  0  I E  = 1  ,16 

IF(ENVSW(IE))  EWTTOT=EkTTOT+£NVWTS(IE) 

2100  CONTINUF 

EWTTCT=1 .0/EwTTOT 

c 

C  FOR  -EAPQNS  3  Y  SIDE 

DO  5  C  CO  I  S  I  D  £  =  1  ,2 


Figure  G-ll.  Source  Listing  of  the  Main  and  Subprograms 
of  the  AFP  Rollup  and  Stats  Module 
(page  4  of  12  pages) 
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201 

:o2 

2  0  3 
2C4 

205 

206 
2  Q  7 
2  0  8 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

21  9 

22  G 
221 
222 

223 

224 

225 

226 
227 
225 
229 
2  3  G 

23  1 

232 

233 

234 

235 

236 

237 
236 
239 
2  4  C 

24  1 

242 

243 

244 

245 

246 

247 
245 
249 

per 


DO  4C0C  IWPN  =  1  ,  NTYPS ( I  SI DE ) 

DO  3CC0  IREC=1,4 

CALL  OUTREX(ISCNTW<IREC, ISIDE), I«PN,VVAL(1,IREC,1WPN, 
1  ISIDE)  ) 

3C00  CONTINUE 
ACOG  CONTINUE 
5000  CONTINUE 
C 

C  FOR  COPS  E  Y  SIDE 

C 

DO  7G00  IS  106*1 ,2 
DO  6 C C 0  I  R  E  C  =  1  ,2 

CALL  OUTREXIISCNTW (IREC+A, ISIDE), 0,COP(1,IREC, ISIDE)) 
8  GOG  CONTINUF 
7CC0  CONTINU' 

C 

c 


c 

c 

c 


WRITE (6,5) 

5  FORMAT!  1SCORES,  CIPS,  X  COPS  BY  POSTURE--'/) 
IF(IREP.GT.I)  CALL  STRATS(ENVWTS) 


OUTPUT  WEAPONS  BY  POSTURE,  DAY/NIGHT,  C L E A R  /  D E G R A  0 E D 


1 


7 


1 


DO  1C00C  I S I D  E  =  1 ,2 

DO  99CQ  IWPN=1 ,NTYPS (ISIDE) 

AUS2=. FALSE. 

DO  9800  I R  EC  =  1  ,  A 
AUS 1 = . FALSE . 

DO  9700  KPOS=1,4 

CALL  OUTPOS(ISCNTW(IREC,ISIDE),IWPN,PXVAL(1,IREC,I.PN 
ISIDE, KP0S),KP0S,P0SCNT,AUS1,AUS2,PXVAL(5,IREC,IWPN, 
ISIDE, 2)  .ISIDE) 

CONTINUE 

IF  (  A  U  S 1 )  WRITE (6 ,7) 

AUS1-  .f ALSf. 

DC  9720  KUAY  =  "i,2 

CALL  OGTDA  y  dSCNTW  d  R5C  ,  ISIDE).  IWPN.DXVALU.IPEC, 

I  W  F  N  ,  IS  IQ£,|t0AY)  ,PtDAY  .  D  A  Y  C  N  T  ,  A  U  S  1  ,  A  U  S  2  1 
CONTINUE 

I  F  <  A  L  5  T  I  KflITF(i,7) 

AUS1 FiLSE. 

DO  9740  ix.  v  I  5  -  T  ,2 

CALL  OU TV ISTISCNTWC1REC, ISIDE), I^PN.V XV ALC1, I^EC, 
I»pn, ISIDE  .AVIS)  t<YIStV1SCnT,aus'it*US2) 

COM  INL11 
1 F ( AUS1 )  THEN 
WRITE  d , 7) 

FORMAT  f  1  P  M - I 

call  ou tstt<ts:nt*(; pec, iside). iwpn,xv4lCi, 

1HIC,Iwpn, ISIDE)  ,XZV*L(1 ,IfEC  pIWPN.ISlDEJ ,N) 


Figure  6-11.  Source  Listing  of  the  Main  and  Subprograms 
of  the  AFP  Rollup  and  Stats  Module 
(page  5  of  12  pages) 
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25  1 

252 

253 

254 

255 

256 

257 

258 

259 
2  6  C 

26  1 
262 
263 
2  6  4 

265 

266 
267 
266 

269 

270 

271 

272 

273 

274 

275 

276 

277 
275 
279 
2  8  C 
251 
232 
253 

284 
265 

256 

257 

285 
289 
2  9  C 

291 

292 

293 

294 

295 

2  9  6 

297 

298 

299 

3  C  0 


IF(IRED*GT.1)  CALL  GUTWT(ISCNTW(IREC,ISIDE),I*PN, 

1  fcVALn*IRECfIWPNfISIDE)fXSTDOfIREC,IWPNfISIDEn 
W  R  I  T  E  <  6 , 6  ) 

END  I  F 

9  8  CO  CONTINUE 

IF(ALS2)  WfiITE(6,6) 

9  9  C  C  CONTINUE 
1CC0G  CONTINUE 
0  FORMATS 
C 

C  OUTPUT  COPS  5 Y  POSTURE*  DAY/NIGHT,  CLEAR  /DEGRADED 

C 

DO  11000  ISIDE=1,2 
DO  10  900  I R  E  C - 1  *2 
DO  1 CSGC  KPOS  =1  ,  4 

CALL  0UTP0S(ISCNTU(IREC+4,I$IDE),C,PXC0P(1,IREC*ISIDE, 

1  KPOS)fKPOS,POSCNTfAUS1fAUS2,PXCOP<5tIRECfI$IDE,2),ISIDE) 
1C8C0  CONTINUE 

WRITE (6,71 
DO  1C82C  KDA Y=1  ,2 

CALL  OUTDAY(ISCNTW(IREC*4#I$IDE)fC,DXCOP<1*IREC, 

1  I$IDE*KDAY)  ,  K  D  A  Y ,  D  A  Y  C  N  T ,  A  U  $  1 , A  US  ? ) 

1C82C  CONTINUE 

WRITE  (6*6) 

DO  1 C  840  KVIS=1  ,2 

CALL  0UTVIS(ISCNTW(IREC44?ISID6),0,VXC0PMfIRECf 
1  ISIDEfXVIS) ,<VIS,VISCNTfAUS1 ,  A  U  S  2  ) 

10840  CONTINUE 

WRITE(6«7) 

CALL  0UT$TT(ISCNTW(IREC*4,ISIDE),0, 

1  XC0P(1  tIREC*  I  S  I  D  c  )  *X2C0P(1  ,IREC,I$IDE)  ,  N  ) 

IF(XREP«GT«1)  CALL  0UT*T(ISCNTW(IPEC+4,ISIDE),Q, 

1  C0P<1.IREC'1SIDE)9CSTD(1«IPEC«ISIDE)) 
wRITE (6  *6  ) 

10900  CONTINUE 

-RITE  (6,6) 

11000  CONTINUE 

CALL  9YENV (WVAL  ,  COP) 

STOP  'OK" 

C 

SUBROUTINE  ZERO  (X  ,N) 

DIMENSION  X ( H ) 

DO  ICO  1=1, N 
X ( I ) =0*0 
1 OG  CONTINUE 
RETURN- 
END 
C 

SUBROUTINE  OUTREX(ISCNT,IDUPNfX) 

DIMENSION  A(5)  ,X(5) 
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301 
7Q  2 
3  03 

304 

305 

306 

307 
3GS 
7G9 
31  C 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 
7  2  2 

323 

324 

325 

326 

327 
323 

329 

330  * 

33  1 

332 

333 
734 

335 

336 

337 
733 

339 

340 

34  1 

342 

343 

344 

345 

346 

347 
343 
349 

35  0 


COMMON / E  N  V  S / E  W  T  T  OT 
C 

CHARACTER*3  KTHTR 

C0P"0N/AWRK/1WRK,IDUM,KTHTR,JTPD,JVIS,JP0S,JDAY 
COP WON/ GLOBAL/ IB  FOR, IRFCR, JCASE 
DO  ICO  1=1,5 

I  F  (  X  (  I  ) .GT.C.O)  GOTO  20 0 
100  CONTINUE 
RETURN 
C 

200  DO  3C0  1=1,5 
300  A (I ) =EWTTOT*X < I ) 

C 

WR I T  £  (  I W  R  K  9 1 )  ISCNT,KTHTR,JTPD,JVlS,JPOS,JDAY,IDWPN, 

1  A(1),A(2)fA<3)tA(4),A<5),I9F0R,IPF0R,JCASE 

RETURN 

C 

1  FORWAT(l5,A3,r4,3l3,I5,5F10.3,2l6,l5) 

END 

C 

SUBROUTINE  GETREC(ISCNT,IwPN,X,ISOR) 

DIPENSION  X ( 5 1 
COPPON/NAPE/ FNAPE 
CHARACTER*20  fn ape 

READ(IS0R,1,END=1G0,ERR=50,I0STAT=K)  ISCNT,<THTR, 

1  JTPD,JVI$,JPOSfJOAYfI*PNfX(1),X<2),X<3),X<4),X(5) 

40  I  R  =  I R  +  1 
RETURN 

1  FORPAT (15  ,A3, 14 ,3I3,I5,5F10.3,2I6,I5) 

5C  IERRsIOCO 

-fRITE(6,3)  IERR 

2  FORPAT('  IOERR  TYPE=',I6) 

IF(IERR.EQ.1015)  GOTO  40 
*R1TE(1P,2)  I R  ,  FNAPE 
STOP  'IERR3' 

C 

100  WRIT£(1*,2)  I R ,  FNAPE 
STOP  'IERR2' 

2  FORPAT  ('  LAST  RECORD  READ  =  I6,2x,A20) 

END 

C 

SUBROUTINE  GETFIL(FNAM£,IENV,DIVMl,DIVDl,DIVP2,DIVD2) 
CHARACTER*20  FNAPE 

READ  (  5  ,  1 )  I  E  N  V  ,DIVPl , DIVD1  ,DIVP?,DIVD2,  FNAPE 
RETURN 

1  FORPAT(I2,4F3.Q,2X,A201 
END 
C 

SUBROUTINE  OUTS TT ( I S CNT 9 I D WPN 9 A 9 B tN > 
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351 

DIMENSION  A(5)  VB(5)  «Xl(5)  ,X2(5) 

352 

C 

353 

DO  ICO  1=1,5 

354 

1 F ( A ( I ) . GT.0.C)  GOTO  20C 

355 

100 

CONTINUE 

356 

RETURN 

357 

C 

3  5  5 

2C0 

RN=N 

35  9 

SRN=SQRT(RN) 

3  6  G 

RN1  =  <RN-1  .01  *  R  N 

361 

DO  3  CC  1=1,5 

362 

XI  ( I ) =A (  I  )  /  RN 

363 

X2(n=SGRT(A6$(CRN*9<n-A(I)*A(T)n/RNl)/SRN 

364 

a 

o 

CONTINUE 

365 

C 

366 

xRITE(6,1)  ISCNT,'RA*  MEANS  * f  I  D WPN ,  (X  1  <  I )  ,  I  *1  ,  5 ) 

367 

W  R I T  E ( 6  f  1  )  ISCNT,'RAW  STD. DEVS.  ",IDWPN,(X2(I),I=1,5) 

368 

RETURN 

369 

1 

FOR^AT(I5,1X,A15,I5,5F1C.3) 

3  7  C 

END 

371 

c 

372 

SUBROUTINE  0uTP0SClSCNT,IDWPN,A.KP0$,RN4tAU$1,AUS2,REFfI$IDE) 

3  7  3 

DIMENSION  A(5)  ,X(5)  ,RN4C4)  ,RATS(4,2) 

3  7  4 

CHARACTERS  L0SC2) 

375 

LOGICAL  AUS1,AUS2 

376 

data  rats/ 

377 

1  0.333333.1 .0,0.25.3.0, 

378 

2  3.0,1  .  0,4.0,0.333333/ 

379 

data  los/'rlgs=','blos='/ 

3  6  C 

c 

38  1 

do  ICO  1=1,5 

3  S  2 

IF ( A ( I)  . G  T .0.0)  GOTO  2C0 

383 

ICO 

CONTINUF 

384 

RETURN 

385 

200 

xr=0.0 

356 

IF(RN4(2) .GT.O.C)  XR=REF/PN4(2) 

387 

DO  3C0  1=1,5 

338 

X ( I) =A  (  I  )  / RN4 (KPOS 1 

339 

3  CG 

CONTINUE 

3  9  G 

XLO$=X(5)*RATS(KPOS,ISIDE) 

391 

XRER=XR*RATS (  K  P  C  S , ISIDt) 

392 

DI f  =  xre  f-xlos 

393 

c 

394 

AUS1 =.TRUE . 

395 

AUS2=.TRUE . 

396 

WRITE  (6  v 1 )  ISCNT  *<POS,IDWPNf  (  X  < I  )  ,1  =  1  ,5)  ,LQS  C  I  S I D  E )  , 

3  9  7 

1  X  L  0  S ,XPEF,D1F 

79S 

RETURN 

399 

c 

400 

1 

FORyAT(l5,‘r  POSTURE  =  ",  12  ,  "  I  D  W  P  N  =  '  ,  I  3 , 5  F  1  0 . 3 , 1  X  ,  A  5  ,  F  1  0 . 3  , 
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4Q1 

402 

403 

C 

4  Q  4 

405 

406 

407 

402 

C 

4Q9 

41  0 

c 

41  1 

412 

413 

c 

414 

415 

100 

41  6 

c 

41  7 

412 

200 

419 

30U 

420 

-.21 

422 

423 

42  4 

c 

425 

c 

4  2  d 

1 

427 

42b 

c 

429 

430 

43  1 

432 

433 

c 

434 

435 

c 

436 

437 

432 

c 

439 

4  4  C 

1  CO 

44  1 

c 

442 

443 

200 

444 

300 

445 

44  c 

447 

442 

44  9 

c 

450 

c 

1  '  RE F*' , Fio. 3 , '  DIFF*' , F1C.3) 


END 

SUBROUTINE  OUTDAY(ISCNT,IDWPN,A,KDAY,PN8,AUSl,AUS2) 
DIMENSION  A(5)  ,X(5) ,RNfc(2) 

CHASACTFR*5  D  A  Y  (  2  ) 

LOGICAL  AUS1.AUS2 

DATA  DAY/'DAY  ',  'NIGHT'/ 

DO  ICO  1*1,5 

IF ( A( n  .GT.0.0)  GOTO  20C 

CONTINUE 

RETURN 

DO  3  CO  1=1,5 
X(I)=A(I)/RN8(KDAY) 

CONTINUF 

AUS 1  =  .  TPUE  . 

AUS  2  =  . TRUE . 

»  R  I  T  E  <  6 , 1  )  ISCNT,DAY(KDAY),IDWPM,(X(I),I=1,5) 

RETURN 

FORMATCI5,'  TIME*', AS,'  IDWPN=',l3,5F10.3) 

END 

SUBROUTINE  OUTVIS(ISCNT,IDHPN,A,<VIS,PN8,AUS1,AUS2) 
DIMENSION  A  <5 )  , X (5) , RN£  (2) 

CHARACTER*8  VIS  f  2  J 
LOGICAL  AUS1.AUS2 

DATA  VIS/'CLtAR  ' , ' D E G R A D E D  '  / 

DC  ICC  1*1,5 

1 F ( A ( I) . GT.O.C)  GOTO  200 

CONTINUE 

RETURN 

DO  300  1=1,5 
X ( 13  =A ( I ) /RN8 (KVIS ) 

CONTINUE 

AUS 1 *.TRUE  . 

AUS2=.TRUE. 

WRITE (6, 1 )  ISCNT,VIS(KVIS),IDWPN,(X(I),I=1,5) 

RETURN 
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45  1 

1 

452 

C 

453 

454 

C 

455 

45  6 

C 

457 

458 

459 

460 

46  1 

462 

463 

C 

4  6  4 

465 

466 

467 

468 

469 

470 

471 

472 

700 

473 

8  00 

474 

475 

476 

477 

900 

478 

1  00G 

479 

2G0G 

4  3  C 

481 

482 

483 

48  4 

2  70G 

455 

2  8  CO 

486 

487 

488 

25  5  0 

489 

2900 

490 

3000 

491 

492 

493 

C 

494 

495 

c 

496 

497 

c 

496 

499 

500 

100 

F0RMAT(I5,3X,A8,'  IDwPN=',I2,6F1C.I) 
END 


SUBROUTINE  STRATS (ENVWTS5 
6.  E  .  C  .  --  4/ 28/84 

COMMON/ STRAT/ I  REP.X  SUMS, 4,16, 60, 2),  XS3(5, 4, 16,60,25, 
CSUM<5,2,16,2),CSa(5,2,16,2),XSTD(5,A,60,2),CSTD(5,2, 
DIMENSION  ENVWTS(lt) 

R  =  F  L  0  A  T (IREP) 

R1=FL0AT ( IREP-1 I 
RR  1  =R  *R  1 


00  2C0Q  I S  *1 , 2 
20  2  C  CO  I E  =1  ,16 
c=ENVWTS ( IEI »*2 
DO  1C00  I  C  =  1  ,  S 
DO  8  CC  IREC=1,4 
DO  7C0  I W  =  1 ,60 

XSTD(IC,IREC,IW,ISJ=XSTD(IC,IREC,IW,IS)+E* 
(XS6(IC,IREC,IE,Iv.,ISJ-(XSUM<ICtIREC,IE,Ii»,I$)**2)/f<) 
CONTINUE 
CONTINUE 
DO  9CC  I C  CP  =  1  .  2 

CSTD(IC,ICOP,IS)=CSTD(IC,ICOP,IS)+E* 
<CSG(IC,IC0P,IE,IS)-<CSUM(IC,IC0P,IE,IS)**2)/R) 
CONTINUE 
CONTINUE 
CONTINUE 
DO  2500  I C  = 1  ,  5 
DO  2800  I  P  E  C  =  1  ,4 
DO  2700  IW=1 , 60 

XSTDCIC,IREC,IW,IS)=SQRT(A3S(XSTD(IC,IREC,IW,ISWRR1)) 

C  0  N  T I  NU  E 

CONTINUE 

DO  2  5  5 0  I  C  0  P  =  1 ,2 

CSTD(IC,ICOP,  IS1=$GRT(ABS(CSTD(IC,IC0P,IS)/RR1)  ) 

CONTINUE 

CONTINUE 

CONTINUE 

RETURN 

END 

SUBROUTINE  OUTWT(ISCNT,ID!rfPNfAfB) 

G. E.C.  —  4/28/84 
DIMENSION  A  (  5  )  ,  B  <  5  ) 

DO  ICO  1=1,5 

IF(AU)  •  GT  •  0  •  0  )  GOTO  2CC 
CONTINUE 


21 
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501 

502 

503 

504 
c  0  5 

506 

507 
5  OS 
509 
5  1  C 

51  1 
C1  2 

513 

514 

515 

516 

517 

518 

519 
5  2  C 

521 

522 

523 

524 

525 

526 

527 
5  2  S 

52  9 
5  3  C 

531 

532 

KIT 

534 

535 

536 

537 
5  3  £ 
539 
5  4  G 

541 

542 

543 
54  4 
'45 

546 

547 
5  4  5 
549 
5  5  C 


RETURN 

200  nRITE(6f1)  ISCNT.'WTD.  P £  A N S 

W  R  I  T  E  (  6 , 1  )  ISCNT,"WTD. STD. DEVS. 
RETURN 

1  F0RMAT(I5,1X,A15,I5,5F10.3) 

END 


" , I  DWPN,  (A(  I)  , 1*1 , 5) 
",  I DWPN ,  (3(1), 1  =  1,5) 


SUBROUTINE  9YENV <WVAL,CCP) 

C  6.E.C.  •-  5/24/64 

C0MMON/$TRAT/IREP,XSU^(5, 4, 16,60,2)  ,  X  $  Q  (  5  ,4,  16,60,2)  , 

1  C SUM (5, 2, 16, 2)  ,CSGC5,2,16,2)  ,  X < T D < §  ,  4 , 6 0 | 2 5  ,  C$TD<5,2,2) 
DIMENSION  *VAL(5,4f60,2),SCRTCH(16)  ,VCRTCH(16),C0P(5,2,2) 
LOGICAL  SDEVS 
SDEVS=, FALSE. 

IF(IREP.GT.I)  $DEV$=.TRUE. 

R  2  =0  •  0 

REFLOAT ( I R  E  P ) 

R1=R-1 . C 

IF(SDEVS)  R2=1.C/(R*R1) 

CALL  FHFAD 
:  MCIPS 

DC  3CCC  IS *1 , 2 
DC  1000  IW=1,fO 
DC  900  16*1,16 
X=XSUM(5,4,IE,IW,IS) 

X2  =  XSQ (5 ,4 , IE , I W  ,  I  S  ) 

SCRTCH(IE)=X/R 

IF(SDFVS)  VCRTCH(IE)=SGRT(AQS(R?*IR*X2-X*X)  )  ) 

900  CONTINUE 

icn  ££E!jIEE*NE<SDEVS’I,"IS’SCRTCH*VCRTCH'WVAi-(5,4,iw,isn 

3C0G  CONTI  NUF 

:  mcops 

DO  4000  i s  =1  ,2 
DO  3500  I F  =  1  ,16 
X  =C  S IIM  <  S ,2, IE, IS) 

X2  =  CSG(F  ,2, IE, IS) 

SCRTCH(IE)=X/R 

IF(SDEVS)  VCRTCH(IE)=SGRT(APS(R‘,*(R*X2-X*xn) 

3900  CONTINUE 

,nnr  £  A  L  L  C  L  I  NE  <  S  D  E  V  S  ,  I  S  ,  S  C  R  T  C  H  ,  VC  R  TC  H  ,  C  0  P  C  5 , 2  ,  I  S  )) 

4000  CONTINUE 
RETURN 
END 

SUBROUTINE  E  H  E  A  D 
G.E.C.  —  5/24/84 
-RITE (6,1)  (I  ,1  =  1  ,16) 

RETURN 
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5  5  1 

1 

FORMAT  < "1 ' f 1 6X , 1 6 ( 12, 3X)) 

5  5  2' 

HMD 

552 

C 

5  5A 

SUBROUTINE  ELINE($DEVS,1W,IS,X,Y,Z) 

555 

C 

G.  E  .  C  .  --  5/24/64 

556 

DIMENSION  X  (16)  ,  Y  (  1  6  ) 

557 

LOGICAL  SDEVS 

558 

COMMON / L  I  N  E / N 

559 

DO  1  GO  1=1,16 

560 

IF  (X  (I)  .ST. 0.0)  GOTO  20C 

561 

ICO 

CONTINUE 

562 

RETURN 

563 

c 

56  4 

200 

NLIN2=NLINE42 

565 

IF(NLINE.GE.aO)  THEN 

566 

N  L  I  N  E  =  C 

567 

call  ehead 

5  6  8 

END  I  f 

569 

«RITE(6.1)  IS  ,IWf(X(I), 1=1.16) ,Z 

5  7  G 

1 

FORMAT (/ '  SIDE=',I2,'  *PN-,I2,17F6.2) 

571 

I  F  (  .NOT. SDEVS)  RETURN 

572 

NLINE=NLINE*1 

573 

-R I TE (6 , 2  )  (  Y  (  I  )  , I =1 , 1 6) 

574 

2 

FORMATC'  STD. DEVS.  '.16F6.2) 

575 

END 

576 

c 

577 

SUBROUTINE  C L  I  N E  (  S D E V S , I S , X  , Y , Z ) 

578 

c 

G.E.C.  ~  6/1/84 

579 

DIMENSION  X(16)  .  Y  (  1 6 ) ,  K  Y  ( 1  6  5 .  K  Y  (  1  6  ) 

5  3  C 

LCGICAL  SDEVS 

581 

COMMON/LINE/N 

5  3  2 

DC  ICC  1=1,16 

s  a  2 

IF  (X  (  I)  .ST. 0.0)  GOTO  2CC 

56  4 

1  GO 

CONTINUE 

585 

RETURN 

586 

c 

587 

2CQ 

NLINE=NLINE42 

5  b  8 

IF(NLINE.GE.6C)  THEN 

589 

N  L I N  E  =C 

c  9  0 

CALL  EHEAD 

591 

END  I  F 

c  9  2 

DC  1CC0  1=1,16 

5  o  t 

KX ( I ) =X (  I  ) 

594 

1  GC0 

CONTINUE 

5  9  5 

KZ  =Z 

596 

wR ITE  (6  ,  1 )  I$,(KX(I)tI  =  1f16),KZ 

597 

1 

F0RYAT(/"  $IDE=',I2,  M  C  0  P  =  ',1716) 

596 

I  F  (  .NOT  .SDEVS )  RETURN 

599 

NL I N  E  =NL I N  E  41 

600 

DO  2000  1=1,16 

6G1 

<Y  (  I ) =Y ( I ) 

602 

2Q0Q 

CONTINUE 

603 

*R I T  E  (  6  ,  2  )  (K Y (  I  )  , 1  =  1  ,  1 6 ) 

6  0  4 

2 

FORMATS  STj.DEVS.  ',1616) 

605 

end 

Figure  G-ll.  Source  Listing  of  the  Main  and  Subprograms 
of  the  AFP  Rollup  and  Stats  Module 
(page  12  of  12  pages) 


G-35 


CAA-D-84-14 


(6)  X2C0P( 5,2,2) .  The  squares  of  the  intermediate  partial  combat 
potentials  are  accumulated  within  this  array  for  use  in  the  determination 
of  standard  deviations  across  all  16  combat  environments  for  divisions. 

The  indexing  of  elements  X2C0P(I,J,K)  is  exactly  the  same  as  for  C0P()  and 
XC0P()  above. 

(7)  PXVAL(5,4,60,2,4) .  Stratified  simple  arithmetic  mean  combat 
potentials  for  each  weapon  type  for  each  combat  posture  are  developed 
within  this  array.  For  the  first  four  indices  I,  J,  K,  and  L,  the  indexing 
of  elements  PXVAL( I, J,K,L,M)  is  exactly  the  same  as  for  WVAL()  above. 
PXVAL()  possesses  a  fifth  index,  M.  M=1  to  4  for  the  four  combat  postures: 
RAPD,  STATIC,  RADE,  and  BAPD. 

(8)  PXC0P(5,2,2,4) .  Stratified  simple  arithmetic  mean  combat  poten¬ 
tials  for  each  division  for  each  combat  posture  are  developed  within  this 
array.  For  the  first  three  indices  I,  J,  and  K,  the  indexing  of  elements 
of  PXC0P()  is  exactly  the  same  as  for  C0P()  above.  PXC0P()  possesses  a 
fourth  index,  K.  K=1  to  4  for  the  four  combat  postures:  RAPD,  STATIC, 
RADE,  and  BAPD. 

(9)  DXVAL(5,4,60,2,2).  Stratified  simple  arithmetic  mean  combat 
potentials  for  each  weapon  type  for  each  of  daytime  and  nighttime  are 
developed  within  this  array.  The  indices  I,  J,  K,  and  L  have  the  same 
significance  as  for  WVAL()  above.  The  fifth  index  of  DXVAL( I , J,K,L,M)  is 
M.  M=1  to  2  for  the  two  diurnal  conditions:  daytime  and  nighttime. 

(10)  DXC0P(5,2,2,2) .  Stratified  simple  arithmetic  mean  combat  poten¬ 

tials  for  each  division  for  daytime  and  nighttime  are  developed  within  this 
array.  The  indices  I,  J,  and  K  have  the  same  significance  as  for  C0P() 

above.  The  fourth  index  of  DXC0P( I, J,K,L)  is  L.  L=1  to  2  for  the  two 

diurnal  conditions:  daytime  and  nighttime. 

(11)  VXVAL(5,4,60,2,2) .  Stratified  simple  arithmetic  mean  combat  po¬ 
tentials  for  each  weapon  type  for  each  visibility  condition  are  developed 
within  this  array.  The  indices  I,  J,  K,  and  L  have  the  same  significance 
as  for  WVAL()  above.  The  fifth  index  of  VXVAL ( I, J,K,L,M)  is  M.  M=1  to  2 
for  the  two  visibility  conditions:  clear  and  degraded. 

(12)  VXC0P(5,2,2,2) .  Stratified  simple  arithmetic  mean  combat  poten¬ 

tials  for  each  division  for  each  visibility  condition  are  developed  within 
this  array.  The  indices  I,  J,  and  K  have  the  same  significance  as  for  COP 

above.  The  fourth  index  of  VXC0P( I, J,K,L)  is  L.  L=1  to  2  for  the  two 

visibility  conditions:  clear  and  degraded. 

(13)  XSUM(5,4,16,60,2) .  For  weapons,  array  XSUM()  stores  sums  of 
partial  combat  potentials  by  combat  environment  for  use  in  computations  of 
weighted  stratified  variances  over  two  or  more  replications.  The  array 
XSUM()  generalizes  the  array  WVAL(),  above,  by  the  inclusion  of  an 
additional  index,  JE.  An  array  element  XSUM( I , J, JE,K,L)  is  indexed 
similarly  to  WVAL(I, J,K,L)  with  the  addition  that  JE  =  1  to  16  for  combat 
environments . 
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(14)  XSQ(5,4,16,60,2) .  For  weapons,  array  XSQ()  stores  sums  of  squares 

of  partial  combat  potentials  by  combat  environment  for  use  in  computations 
of  weighted  stratified  variances  over  two  or  more  replications.  An  array 
element  XSQ( I, J, JE,K,L)  is  indexed  exactly  as  is  XSUM()  immediately  above. 

(15)  XSTD(5,4,60,2) .  For  weapons,  array  XSTD()  stores  weighted, 

stratified  standard  deviations  of  partial  combat  potentials  as  developed 
from  arrays  XSUM()  and  XSTD().  An  array  element  XSTD( I, J,K,L)  is  indexed 
exactly  as  WVAL()  above. 

(16)  CSUM(5,2,16,2).  For  divisions,  array  CSUM()  stores  sums  of 
partial  COPs  by  combat  environment  for  use  in  computations  of  weighted, 
stratified  variances  in  COPs  over  two  or  more  replications.  The  array 
CSUM( )  generalizes  the  array  C0P()  by  the  inclusion  of  an  additional  index, 

JE.  An  array  element  CSUM( I, J, JE,K)  is  indexed  similarly  to  C0P(I,J,K) 
with  the  addition  of  JE  =  1  to  16  for  combat  environments. 

(17)  CSQ(5,2,16,2) .  For  divisions,  array  CSQ ( )  stores  sums  of  squares 
of  COPs  by  combat  environment  for  use  in  computations  of  weighted,  strati¬ 
fied  variances  in  COPs  over  two  or  more  replications.  An  array  CSQ ( I, J, JE,K) 
is  indexed  exactly  as  is  CSUM()  immediately  above. 

(18)  CSTD(5,2,2).  For  divisions,  array  CSTD()  stores  weighted  standard 
deviations  of  COPs  as  developed  from  arrays  CSUM()  and  CSQ ( ) .  An  array 
element  CSTD( I , J , K)  is  indexed  exactly  as  C0P()  above. 

b.  Several  small  arrays  are  used  to  store  needed  data. 

(1)  ISCNTR(6,2).  The  identifiers  of  record  types  within  the  intermedi¬ 
ate  partial  combat  potential  files  are  stored  in  this  array  for  comparison 
with  input  records  read.  An  array  element  ISCNTR(I,J)  is  indexed: 

(a)  1=1  to  6  for  the  input  record  type:  unmodulated  score,  unmodu¬ 
lated  CIP,  modulated  score,  modulated  CIP,  unmodulated  COP,  and  modulated 
COP.  All  these  refer  on  input,  of  course,  to  partial  combat  potentials. 

(b)  J=1  to  2  for  sides:  Blue  and  Red. 

(2)  ISCNTW(6,2) .  The  identifiers  of  record  types  output  to  the  final 
combat  potentials  file  are  stored  for  reference  and  use  during  output.  An 
array  element  ISCNTW(I,J)  is  indexed: 

(a)  1=1  to  6  for  the  output  record  type:  unmodulated  score,  unmodu¬ 
lated  CIP,  modulated  score,  modulated  CIP,  unmodulated  COP,  and  modulated  COP. 

(b)  J=1  to  2  for  sides:  Blue  and  Red. 

(3)  ENVWTS(16) .  The  weights  to  be  used  in  summing  partial  combat 
potentials  over  the  16  combat  environments  are  input  to  this  array  for  refe¬ 
rence  and  used  during  the  actual  weighted  summing.  The  weights  should  be 
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nonnegative  and  sum  to  1.0.  An  array  element  ENVWTS(I)  is  indexed: 
16  for  the  normal  combat  environments,  consecutively. 


1=1  to 


(4)  JRECS(12).  This  array  stores  identifiers  linking  the  input  record 
types  to  the  indices  of  the  kinds  of  potentials  being  developed.  There  are 
12  input  record  identifiers:  10,  30,  50,  70,  11,  51,  20,  40,  60,  80,  21, 
and  61.  The  elements  of  JRECS()  have  values:  1,  2,  3,  4,  1,  2,  1,  2,  3, 

4,  1,  and  2.  The  first  through  fourth  and  seventh  through  tenth  JRECS() 
values  provide  the  indices  to  the  unmodulated  score,  unmodulated  CIP,  modu¬ 
lated  score,  and  modulated  CIP  positions  within  the  weapon-related  accumulator 
arrays  described  above.  The  fifth,  sixth,  eleventh,  and  twelfth  JRECS() 
values  provide  the  indices  to  the  unmodulated  COP  and  modulated  COP  positions 
within  the  division-related  accumulator  arrays  described  above. 


(5)  MDAY ( 16) .  The  arrays  store  a  "1"  for  daytime  and  a  "2"  for  night¬ 
time  in  those  elements  corresponding  to  the  normal  sequence  of  combat  environ¬ 
ments. 


(6)  DIVM(2).  This  array  provides  temporary  storage  of  an  adjusting 
multiplier  for  each  of  Red  and  Blue  during  the  processing  of  an  intermediate 
partial  combat  potential  file.  An  element  from  DIVM()  is  always  used  with 

a  corresponding  element  from  the  sister  array  DIVD(). 

(7)  DIVD(2).  This  array  provides  temporary  storage  of  an  adjusting 
divisor  for  each  of  Red  and  Blue  during  the  processing  of  an  intermediate 
partial  combat  potential  file.  An  element  from  DIVD()  is  always  used  with 
a  corresponding  element  from  the  sister  array  DIVM().  Partial  potentials, 

P,  are  adjusted  to  new  values  Q  in  accord  with  the  transformation  Q  =  P  * 
DIVM(I)/DIVD(I) ,  where  I  indexes  the  side.  As  noted  earlier  in  this  appen¬ 
dix,  the  feature  is  provided  in  the  event  that  an  input  file  contains  partial 
potentials  for  more  than  a  single  division.  When  the  potentials  do  reflect 

a  single  division,  both  DIVM(I)  and  DIVD(I)  should  be  1.0. 

c.  X(5)  serves  as  the  program  buffer  for  repeatedly  receiving  five¬ 
valued  sets  of  intermediate  partial  potentials  during  the  reading  of  the 
many  input  files.  Values  temporarily  stored  in  X()  are  transferred  to  the 
appropriate  accumulator  arrays  during  processing. 

G-15.  The  AFPSTATS  source  listing  in  Figure  G-ll  includes  some  intralinear 
comments.  The  following  paragraphs  provide  some  additional  commentary. 

a.  Lines  8-28  in  Figure  G-ll  provide  the  needed  declarative  statements, 
mostly  for  the  arrays  described  above.  Some  scalar  character  and  logical 
variables  are  also  declared. 


b.  Lines  29-41  initialize  reference  arrays  with  identifiers  and  indices 
needed  for  correct  processing  and  accumulation  of  input  partial  combat 
potentials. 


c.  Line  44  begins  the  executable  statements.  Lines  44-45  initialize 
several  variables  from  values  in  the  input  stream.  JVIS,  JPOS,  and  JDAY, 
by  convention,  are  zero-valued  identifiers  in  final  combat  potential  output 
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records.  The  final  potentials  are  weighted  over  all  environments;  "0" 
symbolizes  all  environments. 

d.  Line  47  initializes  the  "files  read"  counter  N. 

e.  Lines  49-53.  Logical  unit  30  is  the  output  file  for  final  combat 
potentials.  Logical  unit  29  is  the  source  of  input  partial  combat  poten¬ 
tial  files.  Logical  unit  6  is  the  standard  FORTRAN/UNIVAC  print  file. 
"DONE"  is  an  end-of-input  files  marker. 

f.  Lines  55-72  zero  the  accumulator  arrays. 

g.  Lines  74-75  provide  for  the  input  of  the  16  combat  environmental 
weights,  unformatted. 

h.  Lines  78-81  get  the  single-valued  quantity  specifying  the  number  of 
replications  (that  is,  random  number  seeds),  and  hence,  the  number  of  file 
sets  to  be  input.  The  lines  also  get  the  logical  value  ELTSW  specifying 
whether  partial  potentials  are  to  be  read  as  elements.  If  elements  are  to 
be  read,  the  source  is  set  to  logical  unit  #5.  Records  within  the  elements 
contain  more  than  80  characters.  All  UNIVAC  system  warnings  to  that  effect 
are  diverted  to  temporary  file  WARNING. 

i.  Line  82.  The  first  time  through,  there  is  no  need  to  close  unit  29. 

j.  Line  85.  Gets  the  name  of  a  file  to  be  read,  the  combat  environment 
to  which  it  corresponds,  and  the  Blue  and  Red  division  adjustment  factors 
(usually  1.0).  The  name  may  be  the  end-of-files  marker,  "DONE". 

k.  Line  86.  Checks  to  see  whether  all  the  files  have  been  read.  If  so, 
jump  to  begin  output  of  final  combat  potentials. 

l.  Lines  87-88.  Set  EWT  to  the  corresponding  combat  environmental 
weight  divided  by  the  number  of  replications  (seeds).  Set  switch  for  the 
corresponding  environment  to  .TRUE. 

m.  Line  89.  Increments  the  counter  of  files  read,  even  though  have  not 
read  any  of  the  current  file  yet! 

n.  Lines  90-96 

(1)  Set  LPOS  to  the  combat  posture  of  the  current  input  file.  The 
expression  given  returns  the  correct  posture  over  combat  environments  1  to 


16. 


visibility. 


(2)  Lines  91-95.  Set  LVIS  to  1  if  clear  and  2  if  degraded 


(3)  Line  96.  Sets  LDAY  to  1  if  daytime  and  to  2  if  nighttime. 


o.  Lines  97-99.  Increment  stratified  environment  counters. 
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p.  Lines  100-102.  Save  and  print  the  current  file  name.  Name  is 
printed  in  the  event  something  fails;  operator  then  can  tell  how  far  along 
the  module  had  run  before  trouble  hit. 


q.  Lines  103-107.  Concatenate  an  EXEC  level  instruction  depending  on 
whether  files  or  elements  are  to  be  read. 

r.  Line  102.  Calls  FACSF  to  attach  the  physical  file  to  logical  unit 
29  or  add  the  physical  element  to  logical  unit  5. 


s.  Line  110.  Gets  a  record  from  the  current  file. 


t.  Lines  111-115.  Determine  what  type  of  record  was  just  read. 

u.  Lines  116-120.  Here  only  if  record  was  not  identifiable.  Go  read 
another  record  only  if  fewer  than  10  such  failures  have  occurred. 

v.  Lines  122-127.  Line  122  sets  the  index  of  the  kind  of  partial 
combat  potential  supplied  in  the  input  record.  Lines  123-127  set  the  side 
index  for  Blue  (1)  or  Red  (2). 

w.  Line  129.  L  ine  129  checks  whether  the  record  applies  to  an  entire 
division;  and,  if  so,  transfers  control  to  statement  500  for  division  pro¬ 
cessing. 

x.  Lines  135-162.  This  section  is  for  the  processing  of  the  partial 
combat  potentials  of  a  weapon  type. 

(1)  Weapons  scores  are  adjusted,  but  CIPs  do  not  require  adjustment. 
The  arithmetic  applied  later  is  the  same  for  both  scores  and  CIPs.  But  the 
adjustment  factors  ZZ  and  ZZ2  are  left  at  1.0  for  CIPs  (lines  135  and  136). 

(2)  An  even-numbered  record  index  corresponds  to  a  CIP.  Odd  numbers 
correspond  to  scores.  Hence,  the  IF  clause  (lines  137-143)  simply  sets  the 
variable  XX  to  the  environmental  weight  for  use  with  CIPs  but  modifies  the 
CIPs  and  the  adjustment  factors  with  DIVM  (ISIDE)  and  DIVD  (ISIDE).  The 
latter  two  factors  are  usually  1.0  anyway. 

(3)  Lines  145-161  loop  over  the  components  of  five-valued  partial 
combat  potential.  Each  component  is  stored  temporarily  in  variable  XY. 

Then  with  or  without  modification  by  ZZ  or  ZZ2,  as  appropriate,  XY  or  (XY  * 
XY)  is  added  to  the  corresponding  elements  of  the  accumulator  arrays  in 
succession. 

(4)  Line  162  transfers  control  to  retrieve  another  record. 

y.  Lines  165-185.  This  section  is  for  the  processing  of  partial  combat 
potentials  of  a  division. 

(1)  Set  the  ZZ  and  ZZ2  division  strength  modifiers  in  lines  165  and 
166.  The  modifiers  are  usually  1.0. 
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(2)  Lines  168-181  loop  over  the  components  of  five-valued  partial 
COPs.  Each  component  is  stored  temporarily  in  variable  XY.  Then,  with 
modification  by  ZZ  or  ZZ2  as  appropriate,  XY  or  (XY  *  XY)  is  added  to  the 
corresponding  elements  of  the  division  accumulator  arrays  in  succession. 

(3)  A  record  of  type  61  is  the  last  record  for  an  environment,  and 
hence,  the  last  record  in  a  partial  combat  potentials  file.  In  line  184 
the  record  type  is  checked,  and,  if  it  is  type  61,  control  is  transferred 
to  get  another  file  name.  If  the  record  is  not  of  type  61,  line  185  trans¬ 
fers  control  to  get  another  record  within  the  same  file. 

z.  Lines  188-215.  This  section  outputs  final  combat  potentials  for 
weapons  and  entire  divisions  record-by-record  to  the  output  file. 

(1)  Lines  188-192,  if  partial  combat  potentials  have  been  input  as 
elements,  direct  further  output  to  the  file  G6RESULTS  and  release  the  super¬ 
fluous  warnings  accumulated  to  this  point.  If  a  fatal  error  occurs  earlier, 
run  output  continues  to  go  to  file  WARNINGS. 

(2)  Lines  193-196  form  the  sum  of  weights  only  for  the  results  of 
combat  environments  included  input. 

(3)  Lines  200-207  output  weapon  potentials  for  each  of  four  kinds  of 
potential,  for  each  weapon  type,  and  for  each  side.  A  call  to  OUTREX  outputs 
a  single  record.  The  starting  address  of  a  five-valued  potential  is  sent 

to  OUTREX  as  a  corresponding  address  within  WVAL(). 

(4)  Lines  211-215  output  division  potentials  for  each  of  two  kinds  of 
COP  for  each  side.  A  call  to  OUTREX  outputs  a  single  record.  The  starting 
address  of  a  five-valued  potential  is  sent  to  OUTREX  as  a  corresponding 
address  with  C0P(). 

aa.  Lines  218-258.  This  section  outputs  stratified  simple  arithmetic 
means  of  weapon  combat  potentials  to  the  standard  print  file.  The  outer 
loop  (lines  224  and  258)  is  over  Blue  and  Red.  The  next  inner  loop  (lines 
225  and  257)  is  over  weapon  types.  Lines  229-233  output  the  means  within 
each  combat  posture  via  calls  to  OUTPOS.  Lines  236-239  output  the  means 
for  daytime  and  nighttime  via  calls  to  OUTDAY.  Lines  242-245  outDut  the 
means  for  clear  and  degraded  visibility  via  calls  to  OUTVIS.  All'  the  sub¬ 
routine  calls  include  an  argument  giving  the  address  of  five-valued  poten¬ 
tials  within  the  corresponding  accumulator  arrays.  A  call  to  OUTSTT  (line 
249)  outputs  the  mean  and  standard  deviation  over  all  (nonstratif ied)  combat 
environments.  If  more  than  one  replication  has  been  processed,  a  call  to 
OUTWT  outputs  stratified  means  and  standard  deviations  (line  251). 

ab.  Lines  263-287.  This  section  outputs  stratified  divisional  potentials 
(COPs)  to  the  standard  print  file.  The  outer  loop  (lines  263  and  287)  is 
over  Blue  and  Red.  The  next  inner  loop  (lines  264  and  285)  is  over  unmodu¬ 
lated  and  modulated  COPs.  Lines  265-268  output  the  means  within  each  combat 
posture  via  four  calls  to  OUTPOS.  Lines  270-273  output  the  means  for  daytime 
and  nighttime  via  two  calls  to  OUTDAY.  Lines  275-278  output  the  means  for 
clear  and  degraded  visibility  via  two  calls  to  OUTVIS.  All  the  subroutine 
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calls  include  an  argument  giving  the  address  of  five-valued  potentials 
within  the  corresponding  accumulator  arrays.  A  call  to  OUTSTT  (line  280) 
outputs  the  mean  and  standard  deviation  over  all  (nonstratif ied)  combat 
environments.  If  more  than  one  replication  has  been  processed,  a  call  to 
OUTWT  outputs  stratified  means  and  standard  deviations  (line  282). 

ac.  Line  288  calls  subroutine  BYENV  to  calculate  and  display  modulated 
scalar  CIPs  by  combat  environment,  by  weapon,  and  by  side.  If  two  or  more 
replications  have  been  rolled  up,  standard  deviations  by  combat  environment 
also  are  displayed. 

ad.  Line  289  normally  terminates  execution  of  the  main  program  of  the 
Rollup  and  Stats  Module. 

G-16.  The  remaining  lines  of  Figure  G-ll  provide  source  listings  of  the 
subroutines  called  by  the  main  program  of  the  AFP  Rollup  and  Stats  Module. 
The  following  paragraphs  provide  brief  commentary  on  the  subroutines. 

a.  Lines  291-297.  The  subroutine  ZERO  simply  fills  a  real  array  with 
zeros. 


b.  Lines  299-319.  Subroutine  OUTREX  outputs  a  single  record  of  five¬ 
valued  potential  to  the  final  combat  potentials  file.  The  routine  is  used 
to  output  both  weapon  and  division  potentials.  The  routine  does  not  output 
a  record  if  all  five  components  of  combat  potential  are  zero. 

(1)  Argument  ISCNT  is  the  identifier  of  record  type. 

(2)  Argument  IDWPN  is  the  identifier  of  the  weapon  type.  A  division 
is  identified  as  a  weapon  of  type  0. 

(3)  Argument  X  is  a  five-component  array  containing  the  five-valued 
combat  potential  to  be  output. 

c.  Lines  321-341.  Subroutine  GETREC  reads  a  record  from  a  partial 
combat  potentials  file.  If  an  "unexpected"  end-of-file  is  encountered,  the 
subroutine  terminates  execution  of  the  entire  module.  Several  of  the 
fields  read  from  a  record  are  not  used.  Errors  of  type  1015  are  ignored; 
they  are  simply  "long  record"  warnings;  no  data  beyond  80  characters  are 
needed. 

(1)  Argument  ISCNT  is  the  record  type  identifier  and  is  returned  by 
the  subroutine. 

(2)  Argument  IWPN  is  the  identifier  of  the  weapon  type  and  is 
returned  by  the  subroutine. 

(3)  Argument  X  is  a  five-element  real  array  which  receives  the  five¬ 
valued  partial  potential  from  a  record  and  is  returned  by  the  subroutine. 

(4)  Argument  ISOR  is  passed  to  the  subroutine  as  the  number  of  the 
logical  unit  of  the  input  file  being  read. 
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d.  Lines  343-345.  Subroutine  GETFIL  reads  an  input  file  name,  the  combat 
environment  index,  and  the  Blue  and  Red  division  quantity  modifiers. 

(1)  Argument  FNAME  returns  the  input  file  name  or  the  end-of-file 
name  marker  "DONE." 

(2)  Argument  IENV  returns  the  index  (1  to  16)  of  the  combat  environment 
corresponding  to  the  file  name. 

(3)  Argument  DIVM1  returns  the  Blue  division  quantity  multiplier 
modifier. 

(4)  Argument  DIVD1  returns  the  Blue  division  quantity  divisor  modifier. 

(5)  Argument  DIVM2  returns  the  Red  division  quantity  multiplier 
modifier. 

(6)  Argument  DIVD2  returns  the  Red  division  quantity  divisor  modifier. 

e.  Lines  350-370.  Subroutine  OUTSTT  completes  the  computation  of  simple, 
unweighted  means  and  standard  deviations  of  the  components  of  one  kind  of 
combat  potential  for  a  weapon  or  division  and  outputs  the  results.  Lines 
333-335  assure  that  at  least  one  component  is  nonzero  before  continuing 
computation;  otherwise,  OUTSTT  returns  without  outputting  anything  to  the 
statistical  report.  Lines  358-364  complete  computation  of  mean  and  standard 
deviation  for  each  component  of  potential.  Lines  366-367  output  the  mean 
and  standard  deviation  for  each  component. 

(1)  Argument  ISCNT  is  the  identifier  of  the  kind  of  potential  to  be 
processed  and  output. 

(2)  Argument  IDWPN  is  the  identifier  of  the  weapon  type.  A  "0" 
denotes  a  division,  not  a  single  weapon  type. 

(3)  Argument  A  is  the  address  of  the  five-element  real  array  containing 
the  sums  by  combat  potential  component  over  all  combat  environments  and 
random  number  seed  sets. 

(4)  Argument  B  is  the  address  of  the  five-element  real  array  containing 
the  sums  of  the  squares  by  combat  potential  component  over  all  environments 
and  random  number  seed  sets. 

(5)  Argument  N  is  the  number  of  quantities  summed  in  accumulating  the 
elements  of  arrays  A()  and  B().  N,  more  simply,  is  the  number  of  inout 
files. 


f.  Lines  372-403.  Subroutine  OUTPOS  completes  the  computation  of  simple, 
unweighted  means  of  the  components  of  one  kind  of  combat  potential  for  one 
combat  posture  for  a  weapon  or  division  and  outputs  the  results.  Lines 
381-383  assure  that  at  least  one  component  is  nonzero  before  continuing 
computation;  otherwise,  OUTPOS  returns  without  outputting  anything  to  the 
statistical  report.  Lines  335-389  complete  the  computation  of  the  mean  for 
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each  component  of  potential.  Lines  394-395  turn  on  logical  switches  for 
underlining  and  line  feed  control  within  the  main  program,  and  output  the 
mean  for  each  component. 

(1)  Argument  ISCNT  is  the  identifier  of  the  kind  of  potential  to  be 
processed  and  output. 

(2)  Argument  IDWPN  is  the  identifier  of  the  weapon  type.  A  "0" 
denotes  a  division  not  a  single  weapon  type. 

(3)  Argument  A  is  the  address  of  the  five-element  real  array 
containing  the  sums  by  combat  potential  component  over  the  corresponding 
combat  posture  and  random  number  seed  sets. 

(4)  Argument  KPOS  is  the  identifier  of  the  corresponding  combat  posture. 

(5)  Argument  RN4  is  the  number  of  quantities  summed  in  accumulating 
the  elements  of  array  A(). 

(6)  Arguments  AUS1  and  AUS2  are  returned  as  "TRUE"  if  OUTPOS  does 
output  values.  The  logical  variables  are  provided  to  control  underlining 
and  line  feed  within  the  main  program. 

g.  Lines  405-428.  Subroutine  OUTDAY  completes  the  computation  of  simple, 
unweighted  means  of  the  components  of  one  kind  of  combat  potential  for  day¬ 
time  and  nighttime  for  a  weapon  or  division  and  outputs  the  results.  Lines 
412-414  assure  that  at  least  one  component  is  nonzero  before  continuing 
computation;  otherwise,  OUTDAY  returns  without  outputting  anything  to  the 
statistical  report.  Lines  417-419  complete  the  computation  of  the  mean  for 
each  component  of  potential.  Lines  421-423  turn  on  logical  switches  for 
underlining  and  line  feed  control  within  the  main  program,  and  output  the 
mean  for  each  component. 

(1)  Argument  ISCNT  is  the  identifier  of  the  kind  of  potential  to  be 
processed  and  output. 

(2)  Argument  IDWPN  is  the  identifier  of  the  weapon  type.  A  "0"  de¬ 
notes  a  division  not  a  single  weapon  type. 

(3)  Argument  A  is  the  address  of  the  five-element  real  array  containing 
the  sums  by  combat  potential  component  over  the  corresponding  daytime  or 
nighttime  condition  and  random  number  seed  sets. 

(4)  Argument  KDAY  is  the  identifier  of  the  corresponding  daytime  or 
nighttime  condition. 

(5)  Argument  RN8  is  the  number  of  quantities  summed  in  accumulating 
the  elements  of  array  A(). 

(6)  Arguments  AUS1  and  AUS2  are  returned  as  "TRUE"  if  OUTDAY  does 
output  values.  The  logical  variables  are  provided  to  control  underlining 
and  line  feed  within  the  main  program. 
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h.  Lines  430-453.  Subroutine  OUTVIS  completes  the  computation  of  simple, 
unweighted  means  of  the  components  of  one  kind  of  combat  potential  for  clear 
or  degraded  visibility  for  a  weapon  or  division  and  outputs  the  results. 

Lines  437-439  assure  that  at  least  one  component  is  nonzero  before  continuing 
computation;  otherwise,  OUTVIS  returns  without  outputting  anything  to  the 
statistical  report.  Lines  442-444  complete  the  computation  of  the  mean  for 
each  component  of  potential.  Lines  446-448  turn  on  logical  switches  for 
underlining  and  line  feed  control  within  the  main  program,  and  output  the 
mean  for  each  component  of  potential. 

(1)  Argument  ISCNT  is  the  identifier  of  the  kind  of  potential  to  be 
processed  and  output. 

(2)  Argument  IDWPN  is  the  identifier  of  the  weapon  type.  A  "0“  denotes 
a  division  not  a  single  weapon  type. 

(3)  Argument  A  is  the  address  of  the  five-element  real  array  containing 
the  sums  by  combat  potential  component  over  the  corresponding  clear  or  de¬ 
graded  visibility  and  random  number  seed  sets. 

(4)  Argument  KVIS  is  the  identifier  of  the  corresponding  clear  or 
degraded  visibility  condition. 

(5)  Argument  RN8  is  the  number  of  quantities  summed  in  accumulating 
the  elements  of  array  A(). 

(6)  Arguments  AUS1  and  AUS2  are  returned  as  "TRUE"  if  OUTVIS  does 
output  values.  The  logical  variables  are  provided  to  control  underlining 
and  line  feed  within  the  main  program. 

i.  Lines  455-492.  Subroutine  STRATS  completes  the  computation  of  weighted 
stratified  standard  deviations  of  scores,  CIPs,  and  COPs.  Argument  ENVWTS 

is. the  address  of  the  16-element  real  array  containing  combat  environmental 
weights.  The  subroutine's  loop  structures  construct  the  standard  deviations 
for  both  sides,  for  all  components  of  scores,  CIPs,  and  COPS,  and  for  all 
weapons.  For  any  one  component  of  combat  potential,  the  weighted  stratified 
mean  is  of  the  form: 


1  16  R 

E(x)  =  -  2  w.  2  x,  . 
R  i=l  1  j=l  1J 


and  the  weighted  stratified  standard  deviation  is  of  the  form: 


P  1  16  o  1  R  o  R  9 

(Std.  Dev.  (E(x))r  =  ~  2  w^( -  (R  2  x?.  -  (  2  x.  -)2)) 

R  1=1  1  R(R  -  1)  j=l  ^  j=l  ^ 
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where: 

x i j  =  the  value  of  the  variate  for  the  jth  replication  in  the 
ith  combat  environment 

wi  =  the  weight  for  combat  environment  i 

R  =  the  replications  (this  must  be  the  same  for  all  combat 
environment) 


j.  Lines  494-507.  Subroutine  OUTWT  outputs  a  set  of  stratified  means 
and  standard  deviations. 

k.  Lines  509-545.  Subroutine  BYENV  computes  the  means  and,  if  more 
than  two  replications  have  been  rolled  up,  the  standard  deviations  of  modu¬ 
lated  scalar  CIPs  and  COPs  by  combat  environment  by  weapon  type  by  side. 
BYENV  calls  subroutine  ELINE  to  output  one  or  two  (plus  blank)  report  lines 
for  each  weapon  type.  The  argument  WVAL  is  the  address  of  the  array  where 
weighted  mean  scalar  CIPs  (among  other  values)  have  been  stored.  Argument 
COP  is  the  address  of  the  COPs  only. 

l.  Lines  547-552.  Subroutine  EHEAD  advances  a  page  and  writes  the  row 
"12... 16"  as  the  simple  heading  within  CIPs  by  combat  environment  reports. 

m.  Lines  554-575.  Subroutine  ELINE  is  called  by  subroutine  BYENV  to 
output  report  lines  for  a  weapon  type.  A  "CIP  line"  is  output  only  if  at 
least  one  mean  CIP  is  nonzero.  A  "standard  deviation  line"  is  output  only 
if  a  CIP  line  has  been  output  and  if  two  or  more  replications  have  been 
rolled  up. 

n.  Lines  577-605.  Subroutine  CLINE  is  called  by  subroutine  BYENV  to 
output  COP  lines  for  an  entire  division.  A  "standard  deviation  line"  is 
output  only  if  two  or  more  replications  have  been  rolled  up. 
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APPENDIX  H 

THE  AFP  DIVISION  COMPARE  REPORTER 


H-l.  OVERVIEW 

a.  The  AFP  Division  Compare  Reporter  is  designed  to: 

(1)  Accept  final  type  weapon  combat  potentials  (scores  and  CIPs)  from 
the  AFP  Rollup  and  Stats  Module  or  from  the  Interpolation  Module  for  six 
"different"  divisions.  "Different"  divisions  may  mean  different  versions 
of  the  same  division,  stages  during  transition  from  an  old  to  modernized 
division  inventory,  or  different  kinds  of  divisions.  Although  the  module's 
viewpoint  is  primarily  for  Blue  divisions,  the  potentials  of  threat  weapons 
are  also  available  from  those  files  produced  by  the  Rollup  and  Stats  Module 
(but  not  from  the  Interpolation  Module). 

(2)  Accept  operator-supplied  lists  of  identifiers  of  weapons  to  be 
compared  within  subreports.  Blue  and  Red  weapons  may  be  compared  within  a 
single  subreport. 

(3)  Output  the  requested  subreports. 

b.  The  Division  Compare  Reporter  provides  the  basis  for  comparison  of 
the  variations  among  weapon  potentials  from  random  number  seed  to  random 
number  seed,  from  weapon  to  weapon,  from  division  to  division,  and  from 
side  to  side  (Blue  versus  Red).  The  Reporter  is  limited  in  that  six  input 
files  are  required.  Hence,  the  Reporter  cannot  provide  a  comparison  until 
six  sets  of  combat  potentials  are  available  from  other  modules. 

c.  The  relation  of  the  AFP  Division  Compare  Reporter  to  the  AFP  System 
in  general  is  portrayed  in  Figure  H-l.  There  the  Reporter  is  highlighted 
by  being  enclosed  in  an  oval.  Figure  H-l  oversimplifies  the  requirement 
for  input  to  the  Reporter  by  making  it  appear  that  only  two  input  files  are 
required:  one  file  for  a  Division  A  and  a  second  file  for  a  Division  B. 

As  noted  above,  six  files  are  required. 

H-2.  INPUT.  Paragraph  H-l  above  set  the  stage  for  discussion  of  the 
Reporter's  input  requirements .  The  AFP  operator  must  supply  six  file 
names.  The  files  must  contain  final  combat  potentials  in  standard  AFP 
output  record  format  with  correct  record  identifiers.  Files  produced  by 
the  AFP  Rollup  and  Stats  Module  or  by  the  Interpolation  Module  meet  these 
requirements.  The  operator  must  provide  two  symbols  identifying  the  two 
columns  in  subreport  headings.  The  operator  must  also  provide  lists  of 
weapon  and  side  identifiers  to  control  which  weapons  appear  in  subreports. 
The  number  of  such  lists  also  controls  the  number  of  subreports  generated. 
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Figure  H-l.  Relation  of  the  AFP  Division  Compare  Reporter 
to  the  AFP  System  in  General 
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2  3  4  5  6  7  8  ~9 
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170  E  1  0  0  0  16  4.779  .325 
110  E  1  0  0  0  17  524.247  35.921 
130  E  1  0  0  0  17  4.628  .318 
150  E  1  0  0  0  17  523.781  35.855 
170  E  1  0  0  0  17  4.621  .317 
110  E  1  0  0  0  20  2669.735  157.594 
130  E  1  0  0  0  20  7.992  .473 
150  E  1  0  0  0  20  2673.525  157.388 
170  E  1  0  0  0  20  8.000  .472 
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Figure  H-2.  Example  Extract  Records  of  File  of  Final  Combat 
Potentials  Output  From  the  AFP  Rollup  and  Stats  Module 
for  Input  to  the  AFP  Division  Compare  Reporter 
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b.  The  Reporter  operator  must  input  the  names  of  the  files  to  be  read 
by  the  Reporter.  The  operator  must  also  identify  to  the  Reporter  which  of 
the  six  needed  files  corresponds  to  the  name  given.  For  example,  the 
record: 

1  2  3  4  5  6 

123456789012345678901234567890123456789012345678901234567890 

4  G6R0LJ16S1TG. 

directs  the  Reporter  to  treat  file  G6R0LJ16S1TG.  as  the  fourth  file.  A 
record  of  the  form: 

1  2  3  4  5  6 

123456789012345678901234567890123456789012345678901234567890 

0  DONE 

serves  as  an  end-of-files  marker  to  the  Reporter. 

c.  The  Reporter  requires  one-character  symbols  representing  the  two 
report  columns  for  insertion  in  the  headings  of  subreports.  Quite  simply, 
if  an  H-series  and  a  J-series  armored  division  are  being  compared,  "H  J" 
will  serve  to  put  H's  and  J's  in  subreport  headings. 

d.  To  produce  a  subreport  comparing  three  weapon  types,  say  Blue  types 
2,  3,  and  4,  the  operator  must  include  the  following  record  within  the 
Reporter  runstream: 

1  2  3  4  5  6 

123456789012345678901234567890123456789012345678901234567890 

3  12  13  14 

The  quotation  marks  are  not  to  be  included  in  the  runstream.  The  first  "3 
specifies  that  the  subreport  is  to  include  three  weapon  types.  The  11  1  2 

specifies  that  the  first  weapon  is  to  be  from  Side  1  and  is  to  be  of  Type 
2.  The  operator  must  refer  to  weapon  ID  and  nomenclature  lists  to  assure 
that  proper  weapons  are  being  specified.  The  "  1  3"  specifies  that  the 

second  weapon  also  is  to  be  from  Side  1  and  is  to  be  of  Type  3.  Finally, 
the  "  1  4"  specifies  that  the  third  and  final  weapon  to  be  included 

within  the  subreport  is  also  to  be  from  Side  1  and  is  to  be  of  Type  4.  To 
obtain  a  subreport  containing  only  Blue  Type  20  and  Red  Type  21,  the 
operator  must  include  a  record  within  the  runstream: 


1  2  3  4  5  6 

123456789012345678901234567890123456789012345678901234567890 

2  1  20  2  21 
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The  sample  runstream  given  in  the  next  section  directs  production  of  six 
subreports.  The  same  weapon  type  may  be  specified  for  inclusion  in  dif¬ 
ferent  subreports.  An  "@E0F"  within  the  runstream  indicates  to  the  Re¬ 
porter  that  no  more  subreports  are  required. 

H-3.  OUTPUT 

a.  The  AFP  Division  Compare  Reporter  produces  as  many  subreports  as  the 
operator  specifies.  An  example  of  one  such  subreport  is  illustrated  in 
Figure  H-3. 

b.  As  shown  in  Figure  H-3,  each  weapon  type  reported  leads  to  a 
separate  section  within  a  subreport.  Each  such  section  presents  12  lines 
of  information.  Three  successive  groups  of  four  rows  repeat  a  standard 
pattern  of  unmodulated  score  (U  SCORE),  unmodulated  CIP  (U  CIP),  modulated 
score  (M  SCORE),  and  modulated  CIP  (M  CIP).  The  first  group  of  four  rows 
reports  potentials  from  the  files  containing  results  for  the  first  and 
fourth  divisions.  The  second  group  of  four  rows  reports  potentials  for  the 
second  and  fifth  divisions.  The  third  group  of  four  rows  reports  the 
results  for  the  third  and  sixth  divisions.  If  a  weapon  is  not  included 
within  the  inventory  of  a  division  or  it  achieves  zero  combat  potential, 
the  corresponding  entries  within  the  section  of  the  subreport  are  zero- 
filled.  Because  a  subreport  directive  within  the  Reporter  runstream  may 
specify  only  one  weapon  type,  a  subreport  may  contain  only  one  weapon  type 
section.  Just  such  a  subreport  may  be  desirable.  Although  it  does  not 
provide  any  comparison  between  weapons,  it  obviously  does  provide  compari¬ 
son  for  a  single  weapon  among  different  divisions  or  among  different  ver¬ 
sions  of  the  same  division. 

H-4.  RUNSTREAM 

a.  Largely  because  so  few  complete  sets  of  comparable  division  files 
have  been  produced  to  date,  no  generic  runstream  generator  has  been  deve¬ 
loped.  But  the  nature  of  Division  Compare  Reporter  runstreams  is  such  that 
a  generic  runstream  generator  probably  would  save  very  little  time  and 
effort;  it  might  even  cost  more. 

b.  Two  examples  of  Reporter  runstreams  are  provided  in  Figures  H-4  and 

H-5 . 


(1)  Figure  H-4.  Here  the  H-  and  J-series  armored  divisions  are  of 
interest. 

. (a)  Lines  2-13  assign  the  six  files  containing  the  final  combat 
potentials  of  interest. 

r^Doi  i  nD^AMnAnc  26  directs  execution  of  the  Reporter  absolute  element, 
G6R0LLUP. COMPARE. 


H-5 


15/1  1  &  4:  U  SCORE  :  0.  :  0.  :  0.  :  0.  :  0.  ::  2502.  :  143.  :  226.  :  4.  s  55. 

:  U  CIP  :  .000  :  .000  :  .000  :  .000  :  .000  j:  7.514  :  .431  :  .674  :  .012  :  .166 
:  M  SCORE  :  0.  :  0.  :  0.  :  0.  :  0.  ::  2504.  :  142.  s  227.  :  5.  :  56. 
:  M  CIP  j  .000  :  .000  s  .000  :  .000  :  .000  ::  7.515  :  .429  :  .676  :  .013  :  .167 
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(c)  Lines  27-32  specify  to  the  Reporter  which  file  is  to  be  treated 
as  the  Nth  f l le. 

(d)  Line  33  serves  as  the  end-of-files  marker. 

(e)  Line  34  provides  the  one-character  symbols  for  use  in  the 
headings  of  subreports. 

(f)  Lines  35-40  specify  the  subreports  required  in  accord  with  the 
rules  described  in  paragraph  4d  above. 

(g)  Line  41  serves  as  the  end-of-subreport  specifications  marker. 
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2 US  E 
2  A  S  G  | 
2  USE 
2  D  A  T  A 
SEND 


n^.?5su§,?"sc  !BEt  co"p‘be 

T1..H73MPOR1601. 

A  H73f80P1602. 

T2..H73M80P1602. 

A  H73I“8DP16X2. 

T3. , H73P80R1 6x2 . 

A  H73K84R 1 601 ■ 

T4.  ,  H73M84P1601 . 

A  H73K84R1602. 

T  5 .  ,  H73M84R1 602 . 

A  H73M84 P 16X2. 

T  6 . , H73M84R16X2 . 

i  L  T 1  . 


a>  D  A  T  A  ,  L  T  2  . 
SEND 

SCATA.L  T  3 . 
SEND 

SDATA,L  T  4  , 
SEND 

SDATA , L  T  5  « 
SEND 

2  D  A  T  A  ,  L  T  6  . 
SEND 


SXQT 

1 

2 

3 

4 

5 

6 
0 

A  B 
1  1 


G6R0LLUP . COMPARE 
T 1  • 

T  2  . 

T  3  • 

T  4  . 

T  5  . 

T  6  • 

DONE 


SEOF 


7 

15 

13 

24 

21 

51 


1 

1  2 

1 

16 

1 

17 

2 

16 

1 

25 
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23 

2 

22 

2 

23 
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24 
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53 

1 

56 
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57 

2  25 


Figure  H-4.  First  Example  of  Runstream  for  Execution  of  the  AFP 

Division  Compare  Reporter 


c+  *  Figure  H-5.  Here  six  files,  including  some  from  the  Rollup  and 
Stats  Module  and  some  from  the  Interpolation  Module,  are  designated  for 
comparison.  In  this  example,  the  USE  statement  is  applied  to  show  clearly 
the  order  of  files  to  be  reported.  Prior  to  execution  of  the  Reporter,  the 
six  files  are  listed  for  reference. 
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1  SHDG  UNCLASSIFIED  3McC  3JB1-JIE3  3M84  COMPARE 

2  3  E  L  T  „  L  G6 GECTEST, GOCOMRARE / I NTERPS 

3  3  A  S  G  t  a  H73M50M  6X2  . 

4  SUSE  T1  ..H73MB0R 1 6K2 . 

5  S  A  S  G  t  A  H7INT3"E-1. 

6  3USE  T 2. , H?1 NT3«al . 

7  3  A  S  G  r  A  h7IMT3*£2. 

8  3 US  E  T 3.,H7I  NT3*S2 . 

9  B  A  S  6  ,  A  H73VS2R16X2. 

10  SUSE  T4. .H73M82R16X2. 

11  3  A  S  G , A  H7INT3*83. 

12  £  US  E  T5. , H7INT3M83. 

13  3  A  S  G  ,  A  H73M84R16X2. 

14  SUSE  T6.  ,H73M84Pl6x2. 

1  5  3  D  A  T  A  ,  L  T  1  . 

16  SEND 

17  3  D  AT  A , L  T2. 

18  SEND 

19  a  D  A  T  A  ,  L  T  3  • 

20  SEND 

21  3  D  A  T  A , L  T  4 . 

22  BEND 

2  3  3  D  AT  A  ,  L  T  5  . 

24  3END 

2  5  3  D  A  T  A , L  T  6  . 

26  BEND 

27  £XGT  G&ROLLUP. COMPARE 

28  1  T1  . 

29  2  T  2 • 

30  3  T3. 

31  4  T  4 1 

32  5  T5. 

33  6  T  6 . 

34  0  DONE 

35  A  B 


36 

37 

1  1  7 

4  115 

1 

12 

1 

16 

1  17 

38 

3  1  24 

1 

25 

1 

23 

39 

4  151 

1 

53 

1 

56 

1  57 

40 

EOF 

Figure  H-5.  Second  Example  of  Runstream  for  Execution  of  the 


AFP  Division  Compare  Reporter 


H-5.  PROGRAM 

a.  The  AFP  Division  Compare  Reporter  does  not  perform  any  computation 
on  AFP  final  combat  potentials.  The  Reporter  reads  six  complete  sets  of 
potentials  and  simply  displays  subsets  of  potentials  in  different  combina¬ 
tions.  Although  the  Reporter  reads  and  stores  both  weapon  and  division 
potentials,  the  current  version  of  the  Reporter  does  nothing  more  with  the 
division  potentials  (COPs). 

b.  CMPARE  is  the  current  version  of  the  source  text  for  the  main 
program  of  the  AFP  Division  Compare  Reporter.  Local  to  CMPARE  are 
subroutines  ZERO,  GETREC,  and  GETFIL.  The  Reporter's  other  subroutines  are 
BLDCIP,  BLDSCR,  BLDSC1,  BLDSC2,  DASH1 ,  DASH2,  DOREP,  and  HEAD.  The  source 
texts  for  these  latter  subroutines  are  maintained  as  separate  elements 
within  the  AFPSYS  library. 

c.  Figure  H-6  portrays  the  basic  logic  of  the  AFP  Division  Compare 
Reporter. 
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d.  The  source  texts  for  main  program  CMPARE  and  subroutines  ZERO, 
GETREC,  and  GETFIL  are  listed  in  Figures  H-7  through  H-10. 


c 


START 


3 


INITIALIZE 

SEVERAL 

IDENTIFIERS 


GENERATE 

ONE 

SUBREPORT 


Figure  H-6.  Flow  Diagram  of  the  Basic  Logic  of  the  AFP 
Division  Compare  Reporter 
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1 


C  .  COMPARE  CIPS  S  SCORES  A*ONG  WEAPONS*  SEEDS,  F  CEFIFS 

C  G.E.C.  --  13  OCT  a 3 

COvv>G\’/WPNDAT/'wVAL(5,4,iQ,2»c),COD(5,2»2,6) 

DIMENSION  ISCNTWC6, 2), 

1  ISCMSM2),X(5),ISCNTRCd,2),ISCNTT(12),JRECSM2) 

EQUIVALENCE  (ISCNT*,ISCNTS),(ISCNTR,ISCNTT) 

COY'v<CN/A*P,</IWRr,IDUi''!,KTHTR,JTPD,JVIS,JPOS,JDAY 

CC^MCN/GLOBAL/IPFOR , I R  F  0  R  »  J CASE 

COMMON/ NAMfc/FNAME 

CHARACTFR+5r  INSTR 

CHARACTER*2C  FNAYEjCNA^E  ,  D  0  N  E 

DATA  I S  C  N  T  W / 

1  11C, 13C, 150,170,  111,  151, 

£  120, 14  G, 160, 15C, 121, 161/ 

DATA  ISCNTR/ 

1  110,130,150, 170,111,151, 

2  12C, 140, 1 6C , ISC, 121, 161/ 

DATA  JRECS/ 

1  1,2, 3, 4, 1,2, 

2  1  ,2, 3, 4,1  ,2/ 

C 

J  V  I  s  =  c 
JPOS  =  0 

j  d  a  y = e 

C  LOGICAL  DESTINATION  OF  ROLLUP  OUTPUT 

I  i*  R  K  =  3  0 

IPRNT=6 

C  LOGICAL  SOURCE  CF  TARTY  FILES 

I  S  C  R  =  ?  9 
D0NE='DC\E' 

C 

CALL  ZEROCWVAL, 14400) 

CALL  ZEF0(C0P,120) 

GOTO  95 

9o  CLOSE ( I  SCR  ) 
c  5  CALL  GETFIL(FNAVE,KFG°) 

I  F  ( F N a  * E . E G . D ON E )  oOTO  2000 

0  \  A  •*  L  =  F  N  A  v  E 

-RITE (6,3)  F \ a  v  F 
3  FORMAT (1 X  ,A20) 

I\STR='3uSE  2°,'//0NA*//'.' 

CALL  FACSF (INSTR) 

C 

1 00  CALL  GETREC (ISCNT ,iWpN,X ,ISCR) 

DO  2C.C  1=1,12 

IFdSCNT.SE.ISCNTT(I)  )  GOTO  200 
IS  =  1 

GOTO  300 
2  00  CONTINUE 
GOTO  °G 


Figure  H-7.  Source  Listing  of  the  Main  Program  CMPARE  of  the  AFP 

Division  Compare  Reporter 
(page  1  of  2  pages) 
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5  1 
52 
52 

54 

55 

56 

57 
56 

59 

60 

6  1 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 
76 
79 
SO 
81 
82 

83 

84 

85 

86 


C  2  FORMAT (  /  UNRECOGNIZABLE  RECORD  TYPE-'. 15/) 
C  IERR1  =  IERR1d 

C  IF (IERR1  .  L  T  .  1  0  )  GOTO  ICO 

C  STOP  '  I  E  R  R  1  ' 

C 

300  IREC=JRECS (IS) 

IFUS.LT.7)  THEN 
I  SI DE  =  1 
ELSE 
I  S  I  D  E  =  2 
END  I  F 
C 


450 

SCO 

550 


IF((IS.EQ.5).OR.  (IS.EQ.6)  .OR.(IS.EQ.II)  .OR.  (IS.EQ.12)) 
HERE  IF  WEAPON  RECORD  READ 
DO  450  1=1 f 5 

WVAL(I,IREC,IWPNfISIDE,KFOR)=X(I) 

CONTINUF 
GOTO  100 


HERE  IF  COP  RECORD  READ 
DO  550  1=1,5 

COP (  IflPECflSIOE , KFOR ) =X  (  I  ) 

CONTINUE 

ISCNT  =  161  IS  LAST  RFCORD  OF  AN  ENVIRONMENT 
IF(ISCNT.EQ.161 )  GOTO  90 
GOTO  100 

DO  COMPARATIVE  REPORTS 
2G00  CALL  DOREP 
STOP  'DONE' 


GOTO  500 


Figure  H-7. 


Source  Listing  of  the  Main  Program  CMP ARE  of  the  AFP 
Division  Compare  Reporter 
(page  2  of  2  pages) 


H-ll 


CAA-D-84-14 


(a)  WVAL(5,4,60,2,6) .  Final  combat  potentials  of  weapons  are  read 
from  the  six  input  files  into  this  array.  Combat  potentials  are  then  ex¬ 
tracted  from  this  array,  without  modification,  for  insertion  in  subreports. 
An  array  element  WVAL( I , J,K,L,M)  is  indexed — 

1.  1=1  to  5  for  the  components  of  five-valued  form  of  combat 
potentials:  personnel,  light  armored  vehicles,  heavy  armored  vehicles, 
aircraft,  and  the  weighted  rolled-up  scalar. 

2.  J=1  to  4  for  the  four  kinds  of  weapon  potentials:  unmodulated 
score,  unmodulated  CIP,  modulated  score,  and  modulated  CIP. 

3.  K=1  to  60  for  the  60  different  weapon  types. 

4.  L=1  to  2  for  the  two  sides:  Blue  and  Red. 

5.  M=1  to  6  for  the  six  input  files. 

(b)  C0P(5,2,2,6).  Final  combat  potentials  of  divisions  (COPs)  are 
read  from  the  six  input  files  into  this  array.  In  the  current  version  of 
the  Reporter,  nothing  more  is  done  with  the  COPs.  An  array  element 
C0P(I,J,K,L)  is  indexed-- 

1^.  1=1  to  5  as  in  (l)(a)  _1.  above. 

2.  J=1  to  2  for  the  two  kinds  of  COPs:  unmodulated  COP  and  modu¬ 
lated  COP. 

3.  K=1  to  2  for  the  two  sides:  Blue  and  Red. 

4.  L=1  to  6  for  the  six  input  files. 


(2)  Three  small  arrays  are  used  to  store  needed  data. 

(a)  ISCNTR(6,2)  and  ISCNTW(6,2).  The  identifiers  of  record  types 
within  final  potential  input  and  output  (the  current  version  of  the  Re¬ 
porter  does  not  write  to  any  file  to  be  saved)  files  are  stored  in  these 
arrays.  Because  the  Reporter  works  only  with  final  potentials,  the  same 
identifiers  are  stored  in  both  arrays,  admittedly  redundantly.  An  array 
element  ISCNTR(I,J)  or  ISCNTW(I,J)  is  indexed — 

1.  1=1  to  6  for  the  input  (or  in  the  future  output)  record  type: 
unmodulated  score,  unmodulated  CIP,  modulated  score,  modulated  CIP,  unmodu¬ 
lated  COP,  and  modulated  COP. 

2.  J=1  to  2  for  side:  Blue  and  Red. 

(b)  JRECS(12) .  The  array  stores  the  identifiers  linking  the  input 
record  types  to  the  indices  of  the  kinds  of  potentials  being  processed. 
There  are  12  input  record  types:  110,  130,  150,  170,  111,  151,  120,  140, 
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160  180,  121,  161.  The  first  through  fourth  and  seventh  through  tenth 
JRECS()  values  provide  the  indices  to  the  unmodulated  score,  unmodulated 
CIP,  modulated  score,  and  modulated  CIP  positions  within  the  weapon-related 
working  array  WVAL()  described  above.  The  fifth,  sixth,  eleventh,  and 
twelfth  JRECS()  values  provide  the  indices  to  the  unmodulated  COP  and  modu¬ 
lated  COP  positions  within  the  division  related  working  array  C0P() 
described  above. 

e.  The  CMPARE  source  listing  in  Figure  H-7  includes  some  intralinear 
comments.  The  following  paragraphs  provide  some  additional  commentary. 

(1)  Lines  3-11  in  Figure  H-7  provide  the  needed  declarative  state¬ 
ments,  mostly  for  the  arrays  described  above.  Some  scalar  character  vari¬ 
ables  are  also  declared. 

(2)  Lines  12-20  initialize  reference  arrays  with  identifiers  and 
indices  needed  for  correct  processing  of  the  final  combat  potentials  from 
the  six  input  files. 

(3)  Line  22  begins  the  executable  statements.  Lines  22-30  initialize 
several  variables.  JVIS,  JPOS,  and  JDAY,  by  convention,  are  zero-valued 
identifiers  in  final  combat  potential  records.  If  there  were  any  Reporter 
output  to  a  file  for  storage,  it  would  be  output  to  unit  30.  Unit  6  is  the 
system  standard  print  file.  Unit  29  is  tne  source  of  the  six  successively 
read  input  files  of  final  combat  potentials.  "DONE"  is  an  end-of-input 
files  marker. 

(4)  Lines  32  and  33  zero  the  working  arrays. 

(5)  Line  25.  The  first  time  through  there  is  no  need  to  close  any 
input  file  on  unit  29. 

(6)  Line  36.  Gets  the  name  of  an  input  file  to  be  read  and  the  index 
of  the  number  of  the  file  relative  to  the  other  input  files.  The  name  may 
be  the  end-of-files  marker,  "DONE". 

(7)  Line  37.  Checks  to  determine  whether  all  the  input  files  have 

been  read.  If  so,  jump  to  begin  generation  of  comparative  subreports. 

(8)  Line  41.  Concatenates  an  EXEC  level  instruction. 

(9)  Line  43.  And  calls  FACSF  to  attach  the  physical  file  to  unit  29. 

(10)  Line  44.  Gets  a  record  from  the  current  input  file. 

(ID  Lines  45-49.  Determines  what  type  of  record  was  just  read. 

(12)  Line  50.  Here  only  if  record  was  not  identifiable.  ISCNT  was 
set  to  999  by  GETREC  at  the  end-of-file.  So  GOTO  90  to  close  the  current 
file. 
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(13)  Lines  56-63.  Line  56  sets  the  index  of  the  kind  of  final  combat 
potential  supplied  in  the  input  record.  Lines  57-61  set  the  side  index  for 
Blue  (1)  or  Red  (2).  Line  63  checks  whether  the  record  applies  to  an 
entire  division,  and,  if  so,  transfers  control  to  statement  500  for 
division  processing. 

(14)  Lines  65-70.  This  section  is  for  the  storing  of  the  final  combat 
potentials  of  a  weapon  type  within  the  working  array  WVAL().  Lines  67-69 
loop  over  the  components  of  five-valued  combat  potential.  Line  70 
transfers  control  to  retrieve  another  input  record. 

(15)  Lines  74-79.  This  section  is  for  the  storing  of  the  final  combat 
potentials  of  a  division  within  the  working  array  C0P().  Lines  74-76  loop 
over  the  components  of  five-valued  combat  potential.  A  record  of  type  161 
is  the  last  record  within  an  input  file.  In  line  78,  the  record  type  is 
checked,  and,  if  its  type  is  161,  control  is  transferred  to  get  another 
input  file  name.  If  the  record  is  not  type  161,  line  79  transfers  control 
to  get  another  final  combat  potential  record  from  the  current  input  file. 

(16)  Line  83  calls  DOREP  for  the  generation  of  comparative  subreports. 

(17)  Line  85  provides  normal  termination  of  the  AFP  Division  Compare 
Reporter. 

f.  Subroutine  ZERO.  Figure  H-8  provides  the  source  listing  of  sub¬ 
routine  ZERO.  The  subroutine  simply  fills  a  real  array  with  zeros. 

(1)  Argument  X  is  the  address  of  the  array. 

(2)  Argument  N  is  the  length  of  the  array. 


67 

SUBROUTINE 

c  5 

DIMENSION 

S  v 

DO  ICC  1=1 

9  0 

X(I )=C.C 

9  1 

ICO  CONTINUE 

92 

RETURN 

92 

END 

C  i. 

C 

Z  £  R  0  (  X  ,  N  ) 
XU) 

- 


Figure  H-8.  Source  Listing  of  Subprogram  ZERO  of  the  AFP  Division 

Compare  Reporter 
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g.  Subroutine  GETREC.  Figure  H-9  provides  the  source  listing  of  sub¬ 
routine  GETRAC.  Subroutine  GETREC  reads  a  record  from  a  final  combat 
potentials  file.  Several  of  the  fields  read  from  a  record  are  not  used  in 
subsequent  processing. 


9  5 
9  c 
9  7 

98 

99 
ICC 
1  Cl 


S 
D 
C 

c 

READ  (ISCR 


UBROUT INF  G  E  T  R  F  C  ( 
I  v  E S  I  0  N  X  C  3  ) 
Ov;vCN/NAvE/FN4N,E 
HA8ACTEh*2C  F \ A  r  E 


SCNTtIWPN,X,JSCR) 


END=1 CD ) 


IftPK,X(1),X(?)fX(3) 

I  R  =  I  fi  ♦  1 


1  C2 

RETURN 

1  C  3 

1  C  4 

C 

1 

F0Py AT (  I  5  , 

A3  ,  14 

,313,1 

1  C  5 

1  G  c 

1  G  7 

i  :g 

*  R  I  T  t  C  t  ,  2  1 
I  S  C  \  T  =  9  9  9 

R  E  T  U  R  N 

I  &  t 

F  N  A  M  E 

ICE 

I  G9 

I I  C 

c 

c 

F  0  R  y A  T  (' 

END 

LAST 

RECORD 

I  SC  NT, KTHTe  ,  JTPD 
X (4 )  ,  X  (  5  )  ,  lb  FOR  , 


cF1Q.3,2Tfc,I 


,  JVIS 
IS  FOR 


READ  = 


,  c  X  ,  A  2  i 


FOS , J  DA  V 
CASE 


Figure  H-9.  Source  Listing  of  Subprogram  GETREC  of  the  AFP 
Division  Compare  Reporter 


(1)  Argument  ISCNT  is  the  record  type  identifier  and  is  returned  by 
the  subroutine.  All  types  should  be  greater  than  100.  At  an  end-of-file, 
ISCNT  is  set  to  999. 

(2)  Argument  IWPN  is  the  identifier  of  the  weapon  type  and  is 
returned  by  the  subroutine. 

(3)  Argument  X  is  a  five-element  real  array  which  receives  the 
five- valued  final  potential  from  a  record  and  is  returned  by  the  sub¬ 
routine. 

(4)  Argument  ISOR  is  passed  to  the  subroutine  as  the  number  of  the 
unit  from  which  input  is  to  be  read. 

h.  Subroutine  GETFIL.  Figure  H-10  provides  the  source  listing  of  sub¬ 
routine  GETFIL.  Subroutine  GETFIL  reads  and  inputs  file  name  and  the  order 
of  the  file  in  the  sequence  of  six  input  files. 

(1)  Argument  FNAME  returns  the  input  file  name  or  the  end-of-file 
names  mark,  "DONE." 

(2)  Argument  IFOR  is  the  number  of  the  file  in  the  sequence  of  six 
input  files. 
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1 1 1 
1 1  2 
1 1  2 
1 1  A 
1  1  5 
1  1  t 


SUBROUTINE  G  E  T  F I L ( 

character*2G  f n a y e 

R  F  A  D  (  5  ,  1  )  I  F  o  S  f  F  M 
RETURN 

FORMAT  (12 • 2X . A2C) 
END 


F  N  A  y  F  t  I  F  0  R  ) 
yE 


Figure  H-10.  Source  Listing  of  Subprogram  GETFIL  of  the  AFP 
Division  Compare  Reporter 


i.  Subroutine  BLDCIP.  Figure  H-ll  provides  the  source  listing  of  sub¬ 
routine  BLDCIP.  Subroutine  BLDCIP  outputs  a  single  "CIP  line"  within  a 
comparative  subreport.  BLDCIP,  on  a  single  call,  outputs  an  identifier  of 
the  kind  of  CIP  (unmodulated  or  modulated)  and  two  five-valued  sets  of 
CIPs,  one  set  for  each  of  the  two  divisions  being  compared.  BLDCIP  is 
called  six  times  for  each  weapon  type  within  a  single  subreport.  BLDCIP  is 
called  from  subroutine  DOREP. 


1 


SUBROUTINE  B L D C  I  P  (  L I N E , X , Y ) 

DIMENSION  X  (5)  , Y (5) 

CHARACTER*?  LINE 

WRITE  (6, 1  )  LINE, (X(I), 1  =  1, 5), (YU), 1  =  1, 5) 

RETURN 

FORMAT ( 1 8X  ,  * :  ',A7,'  :',5(F?.3,'  : ' ) , ' : ' , 5 ( F 8 . 3 , '  :')) 

END 


Figure  H-ll.  Source  Listing  of  Subprogram  BLDCIP  of  the  AFP 
Division  Compare  Reporter 


(1)  Argument  LINE  is  a  7-character  identifier  of  the  kind  of  CIP:  "U 
CIP  "  or  "M  CIP  "  for  unmodulated  or  modulated  CIPs,  respectively. 

(2)  Argument  X  is  the  address  of  the  five-element  real  array  contain¬ 
ing  the  five-valued  CIP  corresponding  to  the  current  weapon  type  within  the 
first  division  of  the  compared  pair. 
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(3)  Argument  Y  is  the  address  of  the  five-element  real  array  contain¬ 
ing  the  five-valued  CIP  corresponding  to  the  current  weapon  type  within  the 
second  division  of  the  compared  pair. 

j.  Subroutine  BLDSCR.  Figure  H-12  provides  the  source  listing  of  sub¬ 
routine  BLDSCR.  Subroutine  BLDSCR  outputs  a  single  "modulated  score  line" 
within  a  comparative  subreport.  BLDSCR,  on  a  single  call,  outputs  an 
identifier  of  the  kind  of  score  (modulated)  and  two  five-valued  sets  of 
scores,  one  set  for  each  of  the  two  divisions  being  compared.  BLDSCR  is 
called  three  times  for  each  weapon  type  within  a  single  subreport.  BLDSCR 
is  called  from  subroutine  DOREP. 


1 


SUBROUTINE  B  L  D  S  C  R  ( 1 1  N  F  ,  X  ,  Y  ) 

DIMENSION  X  f  5  )  ,  Y  (  5 ) 

CHARACTER*?  LINE 

WRITE  (6, 1 )  LINE, (X(I), 1  =  1,5), (Y(I), 1=1, 5) 

RETURN 

FORMATUgX,':  ',A7,'  :',5<F8.0,'  5  (  F  8 . 0 

END 


')) 


Figure  H-12.  Source  Listing  of  Subprogram  BLDSCR  of  the  AFP 

Division  Compare  Report 


(1)  Argument  LINE  is  a  seven-character  identifier  of  the  kind  of 
score:  always  "M  SCORE"  in  the  current  version  of  the  Reporter. 

(2)  Argument  X  is  the  address  of  the  five-element  real  array  contain¬ 
ing  the  five-valued  modulated  score  corresponding  to  the  current  weapon 
type  within  the  first  division  of  the  compared  pair. 

(3)  Argument  Y  is  the  address  of  the  five-element  real  array  contain¬ 
ing  the  five-valued  modulated  score  corresponding  to  the  current  weapon 
type  within  the  second  division  of  the  compared  pair. 

k.  Subroutine  BLDSC1.  Figure  H-13  provides  the  source  listing  of  sub¬ 
routine  BLDSC1 .  Subroutine  BLDSC1  outputs  a  single  "unmodulated  score 
line"  within  a  comparative  subreport.  BLDSC1,  on  a  single  call,  outputs 
identifiers  of  the  weapon  type  and  side,  a  six-character  weapon 
nomenclature,  an  identifier  of  the  kind  of  score  (unmodulated),  and  two 
five-valued  sets  of  scores,  one  set  for  each  of  the  two  divisions  being 
compared.  Because  the  weapon  and  side  identifiers  and  the  weapon 
nomenclature  are  output  for  a  weapon  type  only  once  per  subreport,  BLDSC1 
is  called  only  once  for  each  weapon  type  within  a  single  subreport.  BLDSC1 
is  called  from  subroutine  DOREP. 
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SUBROUTINE  RLCSC1(I!*,NAmp,LTNE,y,Y,IS) 
DIMENSION  X  ( 5  )  ,  Y  (  5  ) 

CHARACTER*6  fv  «  M  E 
CHARACTER*?  line 


c 


*  R  I  T  E  (  6 , 1  1  I»J,IS,MAVE,L!NE,(X(I) 
RETURN 


I  =  1 , 5 )  , C  Y ( I ) , 1 =1 , 5 ) 


C 


1  1 


1  FORMAT  < 13 ' 
1  5  (  F  £  .  C  t  '  :  '  ) 

END 


I  1  ,  1  X  ,  A  6  ,  '  1  8  4:  ' , A  7 


Figure  H-13.  Source  Listing  of  Subprogram  BLDSC1  of  the  AFP 
Division  Compare  Reporter 

(1)  Argument  IW  is  the  identifier  of  weapon  type. 

(2)  Argument  NAME  is  a  six-character  nomenclature  for  the  weapon 

type. 

(3)  Argument  LINE  is  a  seven-character  identifier  of  the  kind  of 
score:  always  "U  SCORE"  in  the  current  version  of  the  Reporter. 

(4)  Argument  X  is  the  address  of  the  five-element  real  array 
•containing  the  five-valued  unmodulated  score  corresponding  to  the  current 
weapon  type  within  the  first  division  of  the  compared  pair. 

(5)  Argument  Y  is  the  address  of  the  five-element  real  array 
containing  the  five-valued  unmodulated  score  corresponding  to  the  current 
weapon  type  within  the  second  division  of  the  compared  pair. 

(6)  Argument  IS  is  the  index  of  the  side:  "l"  for  Blue,  "2"  for  Red. 

1.  Subroutine  BLDSC2.  Figure  H-14  provides  the  source  listing  of 
subroutine  BLDSC2.  Subroutine  BLDSC2  outputs  a  single  "unmodulated  score 
line"  within  a  comparative  subreport.  BLDSC2,  on  a  single  call,  outputs 
identifiers  of  the  divisions,  an  identifier  of  the  kind  of  score 
(unmodulated),  and  two  five-valued  sets  of  scores,  one  set  for  each  of  the 
two  divisions  being  compared.  BLDSC2  is  called  twice  for  each  weapon  type 
within  a  single  subreport.  3L0SC2  is  called  from  subroutine  DOREP. 

(1)  Argument  SUBTAB  is  a  f ive-character  of  identifier  of  the  section 
of  the  subreport:  "2  &  5"  or  "3  &  6". 

(2)  Argument  LINE  is  a  seven-character  identifier  of  the  kind  of 
score:  always  "iJ  SCORE"  in  the  current  version  of  the  Reporter. 
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(3)  Argument  X  is  the  address  of  the  five-element  real  array 
containing  the  five-valued  unmodulated  score  corresponding  to  the  current 
weapon  type  within  the  first  division  of  the  compared  pair. 

(4)  Argument  Y  is  the  address  of  the  five-element  real  array 
containing  the  five-valued  unmodulate  score  corresponding  to  the  current 
weapon  type  within  the  second  division  of  the  compared  pair. 


1  SUBROUTINE  B L D S C 2  (  S UB T A P  ,  L I N E , X , Y ) 

2  DIMENSION  X  (5 ) , Y  (5  ) 

3  CHARACTER*6  SUBTAB 

4  CHARACTER*?  LINE 

5  WRITE(6,1)  SUBTAB, LINE,  (X(Il  ,1  =  1,5)  ,  (  Y  (  I  )  ,1  =  1,5) 

6  RETURN 

7  1  FORMAT(13X,A5,':  ',a7,'  :',5(F8.0,'  5 ( F8 . 0 , '  :')) 

8  END 


Figure  H-14.  Source  Listing  of  Subprogram  BLDSC2  of  the  AFP 
Division  Compare  Reporter 


m.  Subroutine  DASH1.  Figure  H-15  provides  the  source  listing  of  sub¬ 
routine  DASHl.  Subroutine  DASH1  outputs  a  line  of  129  dashes  as  part  of  a 
subreport.  DASHl  is  called  from  subroutiine  DOREP. 


SUE- ROUTIN'-  D  A  S  m  "7 
-  R  I  T  E  (  6 , 1  ) 

RETURN 

1  F0P*AT(1x,129(lR-n 


Figure  H-15.  Source  Listing  of  Subprogram  DASHl  of  the  AFP 
Division  Compare  Reporter 


n.  Subroutine  DASH2.  Figure  H - 16  provides  the  source  listing  of  sub¬ 
routine  DASH 2.  Subroutine  DASH 2  outputs  a  short  line  of  119  dashes  as  part 
of  a  subreport.  DASH 2  is  called  from  subroutine  DOREP. 
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l  SUBROUTINE  DASH? 

4  WRITE (6,1) 

3  RETURN' 

1  FORMAT  (1  1  X,11  3(1h-)  ) 

5  END 


Figure  H-16.  Source  Listing  of  Subprogram  DASH2  of  the  AFP 

Division  Reporter 


o.  Subroutine  DOREP.  Figure  H-17  provides  the  source  listing  of  sub¬ 
routine  DOREP.  Subroutine  DOREP  is  called  by  the  main  program  of  the 
Reporter  to  output  as  many  subreports  as  directed  by  operator  input  within 
the  Reporter  runstream.  The  working  array  WVAL(),  in  common  with  the  main 
program,  contains  the  combat  potentials  that  are  extracted  selectively  for 
output  within  subreports. 

(1)  DOREP  depends  on  two  scratch  arrays:  I SS ( )  and  IWN().  A 
subreport  may  contain  up  to  10  weapon  types. 

(a)  ISS(IO) .  Array  ISS()  stores  the  side  identifiers  of  the  weapon 
types  to  be  included  within  a  directed  subreport. 

(b)  IWN(IO) .  Array  IWN()  stores  the  weapon  identifiers  of  the 
weapon  types  to  be  included  within  a  directed  subreport. 

(2)  A  reference  array,  N0MEN(60,2),  is  provided  within  DOREP  for  the 
storage  and  reference  of  six-character  weapon  nomenclatures.  However,  in 
the  current  version  of  DOREP,  all  nomenclatures  have  been  left  blank. 

(3)  The  following  comments  apply  to  lines  within  Figure  H-17. 

(a)  Lines  6-9  declare  arrays  and  two  character  variables. 

(b)  Line  11  initializes  the  weapon  nomenclatures  to  blank. 

(c)  Line  13  reads  the  two  one-character  symbols  identifying  the 
columns  of  subreports. 

(d)  Line  18  reads  the  directive  for  a  subreport. 

!•  IWT  specifies  how  many  weapons  are  to  be  included  within  the 
subreport.  IWT  should  not  exceed  10;  DOREP  does  not  check  for  legal  values 
of  IWT!  An  “@E0F"  image  within  the  runstream  indicates  that  no  more  sub¬ 
reports  are  required;  control  transfers  to  statement  1000  for  return  to  the 
main  program. 
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c 

c 

c 

c 


c 


1 


1 


1 


2  00 

c 

C 1 0DD 

c 


SUtPCUT  INE  DOPE  p 
14  OCT  S3  -- 

READS  REPORTER  INSTRUCTIONS  UNTIL  4  E  D  f 
TO  EUJL0  *ND  OUTPUT  Type  WEAPON  REPORTS 


COPNOtJ/WPND^T/wVAL(5t^r60t2rfi)t  COPtS  t2f2t  43 
DIMENSION  I5SH03  ,  It-NMC) 

Cm AS ACTER*1  SFR1  *S£  R2 
character *6  NOKEN<60t23 


&  A  T  A  N  0  "  E  N  /  1  l  0  *  j 


READ<5,1 )  SERI ,$ER2 
FORMAT (1 X  f A1 f IX f A1  ) 

GET  PARAMETERS  FOR  A  SUB  REPORT 

READ(5,2,END=10C03  IwT,(ISS(I)fIWN(I)fI*1,IWT) 
FORMAT (3 


SKIP  TO  TOP  OF  NEW  PAGE 

WRITE  (6.4) 

F  0  R  M  A  T  C  1  H  1  ) 


WRITE  (  6  «  3  )  SERI  ,  $  E  R  2 

FORM AT <5 0XfAlf"-$ERIE$".20Xf"::"f20X,Al," -SERIES"/ 

5 0 X  ,  8 H - ,20x  20x  ,  8H - ) 

00  200  1=1, I*T 
IW  =  IWN(I  ) 

IS  =  I SS  ( I ) 

CALL  HEAD 


CALL  G  A  3  h 1 
CALL  BLDSC1U 
WVALClfTtlUt 
CALL  SLDCIP<* 
CALL  B  L  D S  C  R  C 
CALL  BL&ClFr 
CALL  GA5h2 
CALL  3 L  D  5 C 2 <  ' 
W  V  A  L  <  T  »  1  ,  I W  > 
CALL  B L  D  C  I  P  < ' 
CALL  BLDStR*' 
CALL  sunpr 
call  oa?h? 
CALL  BLbSCZf" 
WYAL  n,MW, 
CALL  BLOC  IP  C 
CALL  BLDSCRf" 
CALL  BLGC  I  P f  ' 
CALL  0ASH1 
-RITE 
CONTINUE 

goto  tor 

RETURN 


LT  T  N  0  M  £  N  (t  »  ,  I  S  3  i  *  U  SCORE" 

IS.T )  TUV4L(1  >1  i  1M| 1 5t4}  T 
U  CJP  taVAL M  t 2  *  Iw, I  5  , 
*  S  CORE' m  VALH  i  3  ,  7U  ,1  5  , 
r  T  ”  '  f  w  V  A  L  (  1  i  4  (  I  k  f  I  S  * 


C  I* 


IS  > 

■n  ftfVALt  It  ?t 

1)  *  W  V  A  L  C 1  i  3  p 

13  jiVAL  El  |4t 


J  *  T  I  S  f  4  }  3 
I  n  i  I  S  ■  4  )  3 

r  h  *  i  s  i  a  n 


2  K  5%"U  SCORE  'tWVAL  M  ,  1  ,  IW  f  IS  ,23  , 
15*53) 

U  c IP  VALM  ,2  ,  Tw,  I  S  , 

"  SCORE'.-VALd  *3,Ip,  15  * 

“  Cl*  ".pVALCI  v4TlidilS  , 


2  3  t  w  v  A  L  (  1  t  ?  , 

21  ,  W  V  A  L  <1  t  5  1 

2  }  *  W  V  A  L  M  ,  4  1 


iw  *  is  *5  n 
ii , i s » 5  n 


ru  SCORE*  ,WV*L  M  t1 , IU, IS ,3]  » 


3  E  6 
rs ,63  ) 

U  CJP  'pnVALfl  1 2  r I w 1  I S  i 
3  S  CORE  '  ,  WVALM  ,  3,  Jw,  3  5  t 
^  C]P  'tnVM.fi  ,4,1*; I  si 


33  ,hYAL  M i 2, 
31  iWVAL  tl , !t 
3  3  *rfV  AL  M i 4* 


I  -  ,  I S  ,  6  3  ) 
I  w  f  I  S  i  6  3  3 

i  w ,  n  ,  6  n 


END 


Figure  H-17.  Source  Listing  of  Subprogram  DOREP  of  the  AFP 
Division  Compare  Reporter 


H— 21 


CAA-D-84-14 


2.  ISS(I)  specifies  the  side  of  the  Ith  weapon. 

3.  IWN(I)  specifies  the  type  of  the  Ith  weapon. 

(e)  Line  23  ejects  to  new  page. 

(f)  Line  26  outputs  a  subreport  heading  including  one-symbol  ident¬ 
ifiers  of  the  two  divisions  being  compared. 

(g)  Lines  30  and  55  are  the  outer  limits  of  the  loop  over  the 
weapon  types  to  be  included  within  the  current  subreport. 

(h)  Lines  31  and  32  set  weapon  and  side  scalars  for  repeated 
reference  within  the  loop. 

(i)  Line  33  calls  for  the  output  of  standard  column  headings. 

(j)  Lines  35-53  build  a  one-weapon  section  of  a  subreport 
line-by-line  by  means  of  calls  to  special  one-liner  subroutines.  Some  of 
the  subroutines  are  called  more  than  once,  some  with  different  arguments 
each  time.  The  most  important  calls  are  those  that  send  addresses  of 
five-element  subarrays  within  WVAL()  for  output  as  five-valued  combat 
potentials.  The  indexing  of  WVAL()  as  arguments  within  the  call  statements 
"picks"  the  corrent  kind  of  potential,  weapon,  side,  and  original  input 
file. 


(k)  Line  57  transfers  control  to  statement  100  for  another 
subreport  directive,  if  any. 

p.  Subroutine  HEAD.  Subroutine  HEAD  is  called  from  subroutine  DOREP  to 
output  the  standard  column  headings  within  a  subreport.  Figure  H- 18 
provides  the  source  listing  of  subroutine  Head. 
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SUBROUTINE  HEAD 
WRITE(6,1) 

RETURN 

1  FORMAT ( '  ITEM',23X, 

1  2  ( '  :  PERS  :  LVEH  :  HVEH  :  A  C  F  T  :  SCALAR  :')) 

END 


Figure  H-18.  Source  Listing  of  Subprogram  HEAD  of  the  AFP 
Division  Compare  Reporter 


q.  MAP  Element  CMPMAP.  Figure  H-19  provides  a  listing  of  the  MAP 
element  for  collection  of  the  program  elements  of  the  Division  Compare 
Reporter. 
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5  v  AP 

,  G  t  R  0  L  L  U  P  .  C  0  '• 
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TP  F  S  . 
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I  \ 

G6R0LLUP . C VPA  P£ 
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G6ROLLUP.DOREP 
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I  N 

GdROLLUP.DASH1 
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I  N 

S  d ROLLUP. DASh2 
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GtROLLUP.HEAu 
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GdROLLUP.ELDC IP 

1  C 
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GtROLLUP.ELDSCR 
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1  2 

a  F  0  F 

Figure  H-19.  Listing  of  the  MAP  Element  for  Collection  of  the 
Program  Elements  of  the  AFP  Division  Compare  Reporter 
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APPENDIX  I 


THE  AFP  INTERPOLATION  MODULE 


Section  I.  OVERVIEW 


1-1.  PURPOSE.  The  AFP  Interpolation  Module  is  designed  to  save  time  in 
the  determination  of  final  combat  potentials  for  an  intermediate  Blue  equip¬ 
ment  inventory  "between"  two  other  inventories  whose  combat  potentials  are 
already  known.  The  principal  notion  of  "between"  arises  for  a  division 
undergoing  modernization.  Such  a  division  begins  with  a  baseline  or  old 
inventory,  progresses  through  intermediate  inventories,  and  thus  evolves 
toward  a  target  or  final  inventory.  In  the  real  world,  the  target  inven¬ 
tory  may  itself  be  changed  long  before  it  is  attained.  In  the  AFP  world, 
it  is  assumed  that  the  target  inventory  is  a  final  goal.  Intermediate 
inventories  must  not  contain  equipment  types  not  found  in  either  the  base¬ 
line  or  target  inventories. 

1-2.  FEATURES.  Toward  accomplishment  of  the  above  primary  design  objec¬ 
tive,  the  AFP  Interpolation  Module  is  designed  to: 

a.  Accept  files  or  elements  of  final  combat  potentials  for  baseline  and 
target  inventories. 

b.  Accept  combat  weapon  inventories  for  baseline,  target,  and  inter¬ 
mediate  divisions.  (The  module  processes  only  one  intermediate  inventory 
in  a  single  execution.) 

c.  Accept  the  normal  input  to  the  AFP  CS/CSS  Module. 

d.  Generate  estimates  of  net  CS/CSS  moduli  averaged  over  all  target 
categories  and  combat  postures. 

e.  Interpolate  both  unmodulated  and  modulated  CIPs  for  all  Blue  weapon 
types  included  in  the  intermediate  inventory.  The  user  may  select  one  of 
two  methods  described  below. 

f.  Combine  the  interpolated  CIPs  with  intermediate  weapon  quantities  to 
generate  interpolated  unmodulated  and  modulated  Blue  weapon  scores. 

g.  Sum  the  interpolated  Blue  weapon  scores  to  produce  interpolated 
unmodulated  and  modulated  Blue  COPs. 

h.  Generate  a  standard  formatted  final  combat  potentials  file  for  the 
intermediate  Blue  inventory. 

1-3.  RELATION  TO  COMPLETE  SYSTEM.  The  relation  of  the  AFP  Interpolation 
Module  to  the  AFP  System  in  general  is  portrayed  in  Figure  1-1.  There  the 
module  is  highlighted  by  being  enclosed  in  an  oval.  What  is  not  obvious  in 
Figure  1-1  is  that,  given  final  combat  potentials  for  the  related  DIV  A 
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(baseline)  and  DIV  B  (target)  divisions,  as  shown  in  block  25  of  the  figure, 
only  the  Interpolation  Module  need  be  executed  in  order  to  estimate  the 
final  combat  potentials  of  DIV  X  (the  intermediate  division).  The  other 
modules  need  not  be  executed.  Hence,  interpolation  eliminates  at  least  16 
executions  of  the  Combat  and  CBT/CS/CSS  Merge  Modules.  Of  course,  the  full 
system  can  be  executed  as  usual  to  estimate  the  final  combat  potentials  of 
an  intermediate  division.  Occasional  exercise  of  the  full  system  is  recom¬ 
mended  as  a  check  on  the  performance  of  the  Interpolation  Module.  After 
all,  the  Interpolation  Module  does  not  perform  all  the  functions  of  the 
full  AFP  System. 
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Figure  1-1.  Relation  of  the  AFP  Interpolation  Module  to  the 
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Section  II.  INPUT 

1-4.  PRINCIPLE.  Almost  all  input  to  the  AFP  Interpolation  Module  is 
identical  in  format  and  content  to  input  required  by  other  AFP  modules. 

Data  pertaining  to  the  baseline  and  target  divisions  are  identical  in  both 
format  and  content  to  the  input  supplied  to  other  AFP  modules  in  the  gener¬ 
ation  of  those  divisions'  final  combat  potentials.  Data  pertaining  to  an 
intermediate  division  are  in  the  standard  format  but  do  include  new  values. 
The  inventory  and  CS/CSS  factors  for  the  intermediate  division  are  both  new 
in  content.  Interpolation  does  depend  on  a  special  scalar  value,  the  in¬ 
ventory  phase  parameter.  The  inventory  phase  parameter  is  intended  to 
express  the  fraction  of  "time"  elapsed  from  baseline  to  intermediate  inven¬ 
tory  dates  in  relation  to  the  total  time  between  baseline  and  target 
inventory  dates. 

1-5.  INPUT  TYPES.  The  AFP  Interpolation  Module  "expects"  input  data  in 
the  following  order.  Many  of  the  files  may  be  created  at  run  time  as 
copies  of  source  data  elements. 

a.  The  inventory  phase  parameter  (runstream).  The  number  and  indices 
of  Blue  nondi visional  weapons. 

b.  Contents  of  the  file  (#17)  specifying  the  weapon  categories  to  which 
Blue  weapon  types  belong.  The  file  is  described  as  BBCAT  in  Appendix  E  on 
the  APF  CS/CSS  Module.  The  file  is  read  in  the  Interpolation  Module  by 
subprogram  GETCAT. 

c.  Contents  of  the  file  (#18)  specifying  the  weapon  categories  to  which 
Red  weapon  types  belong.  The  file  is  described  as  RRCAT  in  Appendix  E  on 
the  AFP  CS/CSS  Module.  The  file  is  read  in  the  Interpolation  Module  by 
subprogram  GETCAT. 

d.  Contents  of  the  file  (#11)  specifying  whether  Blue  and  Red  weapon 
types  are  affected  by  CS/CSS  factors  in  general  (Y/N  for  each  type).  The 
file  is  described  as  ADAT1  in  Appendix  E  on  the  AFP  CS/CSS  Module.  The 
file  is  read  in  the  Interpolation  Module  by  subprogram  GETDAT. 

e.  Contents  of  the  file  (#12)  specifying  for  each  Blue  and  Red  weapon 
type  and  each  CS/CSS  function  whether  the  corresponding  measures  and 
countermeasures  apply  (Y/N  for  each  measure/countermeasure  for  each 
function  for  each  weapon  type  by  Blue  and  Red).  The  file  is  described  as 
ADAT2  in  Appendix  E  on  the  AFP  CS/CSS  Module.  The  file  is  read  in  the 
Interpolation  Module  by  subprogram  GETDAT. 

f.  Contents  of  the  file  (#13)  specifying  for  each  CS/CSS  function  and 
each  combat  environment  whether  the  Blue  and  Red  countermeasures  apply  (Y/N 
for  each  measure/countermeasure  for  each  function  for  each  combat  environ¬ 
ment  by  Blue  and  Red).  The  file  is  described  as  ADAT3  in  Appendix  E  on  the 
AFP  CS/CSS  Module.  The  file  is  read  in  the  Interpolation  Module  by  sub¬ 
program  GETDAT. 
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g.  Contents  of  the  file  (#14)  specifying  the  relative  weight  ascribed 
to  each  CS/CSS  function  in  each  combat  environment  (numerical  weight:  0.00 
-  1.25,  for  example).  The  file  is  described  as  ADAT4  in  Appendix  E  on  the 
AFP  CS/CSS  Module.  The  file  is  read  in  the  Interpolati  on  Module  by  subpro¬ 
gram  GETDAT. 

h.  Name  of  the  file  containing  the  raw  CS/CSS  factors  for  the  baseline 
division.  The  name  is  read  in  the  Interpolation  Module  by  subprogram 
USENAM. 

i.  Pointers  (16)  specifying  for  each  combat  environment  the  set  of 
CS/CSS  factors  to  be  applied.  Contents  of  the  file  (#29)  named  in  h  above 
and  specifying  the  CS/CSS  factors  by  CS/CSS  function  (possibly  for  differ¬ 
ent  combat  environments)  for  Blue  and  Red  measures  and  countermeasures  for 
the  baseline  division.  The  file  is  described  as  ADAT5  in  Appendix  E  on  the 
AFP  CS/CSS  Module.  The  file  is  read  in  the  Interpolation  Module  by  sub¬ 
program  GETFAC. 

j.  Name  of  the  file  containing  the  raw  CS/CSS  factors  for  the  target 
(final)  division.  The  name  is  read  in  the  Interpolation  Module  by  subpro¬ 
gram  USENAM. 

k.  Pointers  (16)  specifying  for  each  combat  environment  the  set  of 
CS/CSS  factors  to  be  applied.  Contents  of  the  file  (#29)  named  in  j  above 
and  specifying  the  CS/CSS  factors  by  CS/CSS  function  (possibly  for 
different  combat  environments)  for  Blue  and  Red  measures  and 
countermeasures  for  the  target  division.  The  file  is  described  as  ADAT5  in 
Appendix  E  on  the  AFP  CS/CSS  Module.  The  file  is  read  in  the  Interpolation 
Module  by  subprogram  GETFAC. 

l.  Name. of  the  file  containing  the  raw  CS/CSS  factors  for  the  inter¬ 
mediate  division.  The  name  is  read  in  the  Interpolation  Module  by  sub¬ 
program  USENAM. 

m.  Pointers  (16)  specifying  for  each  combat  environment  the  set  of 
CS/CSS  factors  to  be  applied.  Contents  of  the  file  (#29)  named  in  1  above 
and  specifying  the  CS/CSS  factors  by  CS/CSS  function  (possibly  for 
different  combat  environments)  for  Blue  and  Red  measures  and 
countermeasures  for  the  intermediate  division.  The  file  is  described  as 
ADAT5  in  Appendix  E  on  the  AFP  CS/CSS  Module.  The  file  is  read  in  the 
Interpolation  Module  by  subprogram  GETFAC. 

n.  Contents  of  the  file  (#16)  specifying  for  each  CS/CSS  function  and 
each  combination  of  Blue  weapon  categories  (12)  and  Red  categories  (12) 
whether  the  Blue  and  Red  measures  and  countermeasures  apply  (Y/N  for  each 
combination  of  function.  Blue  category.  Red  category,  and  Blue  and  Red 
measures  and  countermeasures) .  The  file  is  described  as  ACATS  in  Appendix 
E  on  the  APF  CS/CSS  Module.  The  file  is  read  in  the  Interpolation  Module 
by  subprogram  GTCATV. 
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o.  The  numerical  weights  (summing  to  1.0)  ascribed  to  the  16  combat 
environments  for  weighted  summation  of  partial  combat  potentials  to  yield 
final  combat  potentials.  The  weights  are  read  from  the  runstream  by  sub¬ 
program  ENVWTS  of  the  Interpolation  Module. 

p.  Name  of  the  file  containing  the  inventory  for  the  baseline  division. 
The  name  is  read  in  the  Interpolation  Module  by  subprogram  USENAM. 

q.  Contents  of  the  file  (#29)  named  in  p  above  and  specifying  the  quan¬ 
tities  of  Blue  weapons  by  type  in  the  baseline  division  inventory.  The 
file  is  read  as  G6INVB  in  the  Interpolation  Module  by  subprogram  GETINV. 

r.  Name  of  the  file  containing  the  inventory  for  the  target  (final) 
division.  The  name  is  read  in  the  Interpolation  Module  by  subprogram 
USENAM. 


s.  Contents  of  the  file  (#29)  named  in  r  above  and  specifying  the 
quantities  of  Blue  weapons  by  type  in  the  target  (final)  division  inventory. 
The  file  is  read  as  G6INVT  in  the  Interpolation  Module  by  subprogram  GETINV. 

t.  Name  of  the  file  containing  the  inventory  for  the  intermediate 
division.  The  name  is  read  in  the  Interpolation  Module  by  subprogram 
USENAM. 


u.  Contents  of  the  file  (#29)  named  in  t  above  and  specifying  the  quan¬ 
tities  of  Blue  weapons  by  type  in  the  intermediate  division  inventory.  The 
file  is  read  as  G6INVI  in  the  Interpolation  Module  by  subprogram  GETINV. 

v.  Name  of  the  file  containing  the  final  combat  potentials  of  the  base¬ 
line  division.  The  name  is  read  from  the  runstream  by  subprogram  GETFIL 
called  by  subprogram  GETROL  of  the  Interpolation  Module. 

w.  Partial  contents  of  the  file  (#29)  named  in  v  above  and  specifying 
the  final  combat  potentials  (unmodulated  and  modulated  scores,  CIPs,  and 
COPs)  of  the  baseline  and  opposing  divisions.  Only  the  Blue  scores  are 
needed  from  this  file.  The  file  is  described  (paragraph  B-2i)  and 
illustrated  (Figure  B-5)  in  the  AFP  product  section  of  Appendix  B.  The 
file  is  read  in  the  Interpolation  Module  by  subprogram  GETREC  called  by 
subprogram  GETROL.  Example  extract  records  are  shown  in  Figure  1-2. 

Because  combat  potentials  may  not  or  may  have  been  generated,  including 
target  values  within  the  "personnel,"  light  vehicle,  heavy  vehicle,  and 
aircraft  elements,  consistency  with  paragraph  y  should  be  maintained. 

x.  Name  of  the  file  containing  the  final  combat  potentials  of  the  tar¬ 
get  (final)  division.  The  name  is  read  from  the  runstream  by  subprogram 
GETFIL  called  by  subprogram  GETROL  of  the  Interpolation  Module. 
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y.  Partial  contents  of  the  file  (#29)  named  in  x  above  and  specifying 
the  final  combat  potentials  (unmodulated  and  modulated  scores,  CIPs,  and 
COPs)  of  the  target  (final)  and  opposing  divisions.  Only  the  Blue  scores 
are  needed  from  this  file.  The  file  is  described  (paragraph  B-2i)  and 
illustrated  (Figure  B-5)  in  the  AFP  product  section  of  Appendix  B.  The 
file  is  read  in  the  Interpolation  Module  by  subprogram  GETREC  called  by 
subprogram  GETROL.  Example  extract  records  are  shown  in  Figure  1-2. 
Because  combat  potentials  may  not  or  may  have  been  generated,  including 
target  values  within  the  "personnel,"  light  vehicle,  heavy  vehicle,  and 
aircraft  elements,  consistency  with  paragraph  x  should  be  maintained. 
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Figure  1-2.  Example  Extract  Records  from  File  of  Final  Combat 
Potentials  Output  from  the  AFP  Rollup  and  Stats  Module 
as  Input  to  the  AFP  Interpolation  Module 
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Section  III, 


OUTPUT 


1-6.  OUTPUT  EXAMPLE.  The  product  of  the  Interpolation  Module  is  a  file 
and  listing  of  final  Blue  combat  potentials  for  the  intermediate  division. 
Typical,  records  of  such  a  file  are  illustrated  in  Figure  1-3.  The  file  is 
in  standard  AFP  System  combat  potential  output  format  as  described  in  para¬ 
graph  B-2i  and  also  illustrated  in  Figure  B-5  of  Appendix  B.  However,  the 
files  producible  by  the  Interpolation  Module  do  not  contain  Red  combat 
potentials.  In  Figure  1-3,  the  first  four  elements  of  combat  potentials 
have  not  been  weighted  by  target  values. 
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148.850 

1 

1 

1 

180. 

61 

E 

1 

1 

1 

1 

0 

1144.605 

187.630 

14.106 

150.793 

175.517 

1 

1 

1 

Figure  1-3. 


Example  Extract  Records  from  File  of  Interpolated  Final  Combat 
Potentials  as  Output  by  the  AFP  Interpolation  Module 
for  an  Intermediate  Division  (Blue  only) 
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Section  IV.  RUNSTREAM 


1-7.  RUNSTREAM  INTRODUCTION.  This  section  describes  an  example  SSG  pro¬ 
gram  for  generating  AFP  Interpolation  Module  runstreams  and  provides  some 
examples  of  generated  runstreams.  Familiarity  with  the  UNIVAC  Symstream 
language  and  SSG  processor  is  assumed. 


1-8.  INTENT.  Runstream  generation  is  intended  to  simplify  several 
possible  problems  in  correctly  applying  the  Interpolation  Module.  As 
should  be  evident  from  the  preceding  section  on  INPUT,  the  Interpolation 
Module  requires  a  variety  of  data  about  three  different  divisions:  the 
baseline,  target,  and  intermediate  divisions.  In  a  typical  application, 
the  intermediate  division  may  be  of  interest  over  several  different  years 
with  variation  in  inventory  and  CS/CSS  factors  from  year  to  year.  The 
Interpolation  Module  must  be  executed  separately  for  each  intermediate 
year.  However,  the  runstream  generator,  in  a  single  execution,  may 
generate  the  runstreams  for  all  the  intermediate  years.  Some  data  are 
common  to  the  baseline,  target,  and  all  intermediate  divisions.  Some  data 
are  needed  only  for  the  baseline  and  target  divisions.  The  module  requires 
that  some  files  be  preassigned  to  logical  units  throughout  a  single  module 
run.  On  the  other  hand,  the  module  successively  assigns  some  different 
files  to  the  same  logical  unit  during  module  execution.  The  runstream 
generator  is  intended  to  simplify  the  task  of  keeping  the  file  assignments 
"straight. " 


1-9.  RUNSTREAM  AND  INPUT  LINK.  Figure  1-4  serves  as  a  bridge  among  the 
Interpolation  Module's  input  requirements,  runstream  generation,  and  later 
program  descriptions.  To  a  large  extent.  Figure  1-4  is  a  tabular  recapitu¬ 
lation  of  paragraph  1-5  in  the  paragraph  on  input. 


a.  Field  1  identifies  a  program  element  requiring  data  identified  some¬ 
where  in  the  module's  runstream. 

b.  Field  2  provides  a  generalized  identifier  of  the  data  set  (e.g., 
part  of  a  file  name)  or  an  example  value. 

c.  Field  3  identifies  the  "expected"  FORTRAN  unit. 

d.  Field  4  includes  FORTRAN  record  format  specifier,  as  appropriate. 

e.  Field  5  identifies  receiving  arrays  or  variables. 
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FIELD 


1 

Program 
or  Sub¬ 
program 

2 

Element , 
File,  or 
Example 

3 

Unit 

4 

Record  Format 

5 

Receiving  Array 
or  Variable 

DOFAX 

0.2 

5 

0 

T 

GETCAT 

BBCAT 

17 

(3X,10I3) 

LBCAT (60) 

GETCAT 

RRCAR 

18 

(3X ,1013) 

LRCAT (60) 

GETDAT 

AD  ATI 

11 

( 5X , 1 0A1 ) 

BW  (60)  , RW (60) 

AD  AT  2 

12 

( 5X , 9 ( 4A1 , IX) ) 

UFUN (9,60) . . .TFUN (9,60) 

AD  AT  3 

13 

( 5X , 9 ( 4A1 , IX ) ) 

EUFUN (9,16) . . . ETFUN (9,16) 

AD  AT  4 

14 

( 5X , 9F6 . 4 ) 

A  (  9 , 16 ) 

USENAM 

1 BADAT  5 ' 

5 

(A20) 

FNAME 

GETFAC 

'  1  1... 

1  5 

0 

INDX (1,1)  1=1,16 

BADAT 5 

29 

( 3X  ,  12 , 4F 8 . 4) 

J,U (I ,  J,l)  . . .T ( I , J ,1 ) ; 

1=1,9 

USENAM 

'TAD AT 5 ' 

5 

(A20) 

FNAME 

GETFAC 

'  1  1... 

1  5 

0 

INDX (1,2)  1=1,16 

TAD  AT  5 

29 

(3X , 12 , 4F8 . 4) 

J,U(I,J,2)  . . .T ( I , J , 2)  ; 

1=1,9 

USENAME 

'I  AD  AT  5  ' 

5 

(A20) 

FNAME 

GETFAC 

'  1  1.  . . 

1  5 

0 

INDX (1,3)  1=1,16 

I AD AT 5 

29 

(3X,I2, 4F8.4) 

J,0 (I , J ,3) . . .T ( I , J  , 3 )  ; 

1=1,9 

(NOTE:  Sets  of  0(1 

fj ,K)  .  • 

. T ( I , J , K )  need  not  be  input  for  all  values 

of  J;  indeed,  only 

one  J- 

set  may  be  sufficient — then  all  corresponding 

pointers 

in  INDX ( J 

,K)  for 

given  K  should 

point  to  the  same  J-set.) 

GTCATV 

ACATS 

16 

(4X , 12 (IX , 4A1 ) ) 

UCAT (9,12,12) . . . TCAT (9,12, 12 

ENVWTS 

0.091 

5 

0 

EW  (16) 

USENAM 

1 1NVB  1 

5 

(A20) 

FNAME 

GETINV 

INVB 

29 

0 

QTY ( 6  0 , J )  J=1 

USENAM 

1 INVT 1 

5 

(A20) 

FNAME 

GETINV 

INVT 

29 

0 

QTY ( 6  0 , J )  J  =  2 

USENAM 

1 INVI 1 

5 

(A20 ) 

FNAME 

GETINV 

INVI 

29 

0 

QTY ( 6  0 , J )  J  =  3 

GETROL 

GETFIL 

'ROLb  ' 

5 

(A20) 

FNAME 

GETREC 

ROLb 

29 

(. ..5F10.3.  ..) 

WVAL ( 5 , 60 , K , 4 )  K=1 

GETFIL 

'ROLt ' 

5 

(A20 ) 

FNAME 

GETREC 

ROLt 

29 

( .  .  .5F10.3. . . ) 

WVAL (5,60,K,4)  K=2 

GETFIL 

'DONE' 

5 

(A20 ) 

FNAME 

Figure  1-4.  Summary  of  the  Input  Files  and  Records  Required 
During  Execution  of  the  Interpolation  Module 
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1-10.  EXAMPLE  OF  SSG  RUNSTREAM  GENERATOR.  Figure  1-5  displays  an  example 
S^G  program  for  generating  a  set  of  Interpolation  Module  runstreams.  The 
example  is  set  up  for  a  specific  application:  division  HM  in  80  as  the 
baseline,  division  JM  in  84  as  the  target,  and  13  divisions  as  the 
intermediates  in  each  of  years  80  through  84.  Execution  of  the  example 
program  generates  13  runstreams,  one  for  each  intermediate  division. 
Production  versions  of  the  generator  and  runstreams  must  be  classified  if 
classified  read/write  keys  are  included.  No  keys  are  included  in  any 
examples  shown. 

a.  SGS  Section.  The  order  of  SGSs  is  not  important;  their  contents  are 
cri ti cal . 

(1)  The  SGS  "PHI"  specifies  the  phase  parameter  values  for  the  five 
"intermediate"  years.  There  should  be  as  many  values  of  PHI  as  there  are 
intermediate  years.  PHI  values  always  affect  computation  of  modulated 
combat  potentials.  Depending  on  the  setting  of  SGS  VARY  (see  (29)  below) 
PHI  value  may. also  affect  computation  of  unmodulated  combat  potentials.  A 
PHI  value  is  intended  to  represent  the  corresponding  fraction  of  time 
between  base  and  target  years. 

(2)  The  SGS  "ALLDIV"  specifies  the  symbols  identifying  the  divisions 
to  be  "interpolated."  The  example  contains  13  division  symbols  for 
generation  of  13  runstreams.  More  or  less  symbols  are  permitted. 

(3)  The  SGS  " IFORCE"  specifies  the  symbols  identifying  the  years  for 
which  interpolations  are  to  be  performed  for  each  division  identified  in 
ALLDIV  above. 

(4)  The  SGS  "KTHTR"  specifies  the  symbol  (here  bbE)  to  be  inserted  in 
output  records  as  the  theater  identifier.  The  same  theater  identifier 
applies  to  all  intermediate  divisions. 

(5)  The  SGS  "JTPD"  specifies  the  symbols  (here  bb80  through  bb84)  to 
be  inserted  in  output  records  as  the  time  period  (year)  identifier. 

(6)  The  SGS  "DIVNUM"  specifies  the  symbols  to  be  inserted  in  output 
records  as  the  identifiers  (possibly  TPSN)  of  the  Blue  divisions.  The 
identifiers  are  assumed  to  remain  constant  over  all  intermediate  time 
periods. 

(7)  The  SGS  "IRFOR"  specifies  the  symbol  (here  bblOOO)  to  be  inserted 
in  output  records  as  the  threat  division  identifier. 

(8)  The  SGS  "JCASE"  provides  case  identifiers  (here  b8032  through 
b8432)  to  be  inserted  in  output  records. 

(9)  The  SGS  "BFORCE"  specifies  the  symbol  (here  HM80)  identifying  the 
baseline  division  in  many  of  the  input  files/elements.  A  separate 
identifier  is  provided  for  CS/CSS  factors. 
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1 

2 

i 

4 

5 

6 

7 

e 

9 

10 

1  1 

1  2 

1  3 

1  4 

1  5 

1  6 

1  7 

1  £ 

19 

2  C 

21 

22 

23 

24 

25 

26 

27 

2  £ 

29 

3  C 

31 

32 

7  7 

34 

35 

36 

37 

3c 

39 

4  C 

4  1 

4  2 

43 

44 

45 

4  o 

47 

48 

49 

5  C 


CAA-D-84-14 


SSSG  ,  BK 
SGS 

PHI  "0.05"  "0.25"  "0.50"  "0.75"  "0.95 

ALLDIV  3M  1C  1 A  2A  3A  49A  5  C A  1M  4*  5*  2  4^  40M 

IFORCE  SC  81  8  2  83  84 

KTHTR  "  E " 

JTPD"  SO""  "  81'"  "  82"  "  «  3  ‘ 

DIVNUM_  ,  §101"  ",  2  §  0  1 


3201  "  "  3301  "  "  3401 

3701  "  "  3301  "  "  3901 

IRFOR  "  1  000" 

J  C  A  S  E  "  3032"  "  3132"  "  3232" 

B  F  0  R  C  E  H*8C 
TFORCE  J*!84 
BFORCEC  H^CC 
TFORCEC  JMCO 
BFORCES  HSC 
TFORCES  J  S  4 
ROLNAHE  R16X10  °16X10 
ENVWTS  "0.1  26  0.1  26  0.042  0.1  26" 
''0.054  0.054  0.036  0.036" 
■'0.12°  C.032  0.096  0.064" 
'0.01  6  0.040  0.01  6  0.008" 


2  401 


3501 ' 


8  4 

5301; 


601 


3101" 


8332' 


3  4  3  2  " 


ENVWTS 
ENVWTS 
ENVWTS 
NEWOUT  Y 
BNOOIV  41 
USEFILES  N 


N  Y  Y  Y  Y  Y 


SNAMt  HM8C  JM84  8C  81  82  83  84 

ENA ME  R 1 6X10  R16X1C 
CSFILE  5ADAT5  T  A  D  A  T  5  I  A  D  A  T  5 
LOC ALC  S  N  N  N 

CSPTR  "1274123412341 
CSPTR  "1234123412341 
CSPTR  "1234123412341 
FIL  ADAT1  A  0  A  T  2  A  0  A  T  3  A  D  A  T  4  ACATS  9BCAT  RRCAT 
NUM  11  12  13  14  16  17  18 
EtTLIST  Y 
START  N 
VARY  TRUE 
ai  E  0  F 
S  X  EL 


3  4  " 
3  L" 
3  4" 


.BASE 
.  T  A  R  G  c  T 
.  INTERMEDIATE 


♦INCREMENT  IDX  TO  [ALLDIV, 13 

♦CREATE  SGS:  I D I  V  t  A  L  L  D  I  V  ,  1  .  I  D  X  ,  1  3 

♦CREATE  SGS:  I  B  F  0  R  C D  I  V N U M , 1  t  I  D X  ,  1 3 

♦IF  [START, 1,1, 13  -  Y 

♦BRKPT ,  K  H7RUNS.60CIDIV,1  ,1  ,13 

♦E  D I T  ON 

#RUN,/TPR  D02CCIDIV, 1,1, 1,0,1, 23, H2399T2277D, UN  CLASSIFIED, 600, 1030& 
.  COOPER  762-8786 
‘ELSE 

*  B  R  K  P  T  ,  K  3CGECTEST.INTERPOL/lIDIV,1,1,13 


Figure  1-5.  Example  of  SSG  Program  for  the  Generation  of  Runstreams  for 
Execution  of  the  AFP  Interpolation  Module 
(page  1  of  6  pages) 
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51  *  E  N  0 

5  2  8  NDG  UNCLASSIFIED  AFP  INTERPOL  C 9 F OR C E  ,  1  ,  1  ,  1  3  CIDIV,  1,1,13 

53  *  I F  [ELTLIST,1  ,1,13  =  Y 

54  8  E  L  T , L  30GECTFST  .  INTERPSSG/SKEL 

55  *  I F  CSTART.1  ,1,13  =  Y 

5  o  8ELT.L  H7RUNS . GO C I  5  I  V  ,  1  , 1  ,  1  3 

57  *  E  L  S  E 

58  8  E  L  T  ,  L  30GECTEST.INTERP0L/CIDIV.1  ,1  ,13 

59  *  E  N  D 

6  C  *  E  N  D 

61  *  INCREMENT  A  TO  CFIL,13 

62  8  A  S  G , T  C  N  U  M  ,  1  ,  A  ,  1  3  •  ,/ / / 100 

63  8  ED  30GECTEST . C FIL , 1 , A , 1 3 , CNUK  ,  1  ,  A  ,  1  3  . 

64  ‘LOOP  .A 

65  ‘IF  CLOCALCS.1  ,1,13  =  Y 

66  8  A  S  G  ,  T  CCSFILE.Ijl  .13.  ,///1C0  .  BASE  CSCSS  FACTORS 


67 

n 0 ATA , 

IL 

LCSFILEt 1  ,1 

I  ,13. 

6  £ 

1 

1 

1  .0 

1.0 

1  .0 

1  .0 

69 

2 

1 

1  .0 

1  .0 

1  .0 

1  .0 

70 

3 

1 

1  .0 

1  .0 

1  .0 

1  .  0 

71 

4 

1 

1  .0 

1  .0 

1 .0 

1  .0 

72 

c 

1 

1  .0 

1.0 

1  .0 

1  .0 

73 

6 

1 

1  .0 

1 .0 

1  .0 

1 .0 

74 

7 

1 

1  .0 

1  .0 

1  .0 

1  .0 

75 

s 

1 

1  .  0 

1  .0 

1.0 

1  .0 

76 

9 

1 

1 .0 

1 .0 

1  .0 

1  .0 

77 

1 

2 

1  .0 

1  .0 

1  .0 

1 .0 

7  t 

2 

2 

1  .0 

1.0 

1  .0 

1  .0 

79 

7 

2 

1.0 

1  .0 

1  .0 

1  .0 

5  Q 

4 

2 

1  .0 

1  .0 

1  .0 

1  .0 

31 

5 

2 

1  .0 

1  .0 

1  .0 

1  .  0 

32 

6 

2 

1  .0 

1  .0 

1  .0 

1  .0 

33 

7 

2 

1  •  0 

1  .0 

1  .0 

1  .  0 

34 

9 

2 

1  .3 

1  .0 

1  .0 

1  .0 

35 

9 

2 

1  .0 

1  .0 

1  .0 

1  .0 

36 

1 

3 

1  .0 

1  .0 

1  .0 

1  .0 

37 

2 

3 

1  .0 

1  .0 

1  .0 

1  .0 

33 

7 

3 

1  .0 

1  .0 

1  .0 

1 .0 

39 

4 

3 

1  .0 

1  .0 

1  .0 

1  .0 

90 

c 

3 

1  .0 

1  .0 

1  .0 

1  .n 

91 

6 

3 

1  .0 

1 .0 

1  .0 

1  .  0 

92 

7 

3 

1  .0 

1 .0 

1 .0 

1  .0 

93 

0 

3 

1  .0 

1  .0 

1  .0 

1  .0 

94 

9 

3 

1  .0 

1  .0 

1.0 

1 .0 

95 

1 

4 

1  .0 

1  .0 

1  .0 

1.0 

96 

2 

4 

1  .0 

1  .0 

1  .0 

1  .0 

97 

7 

4 

1  .0 

1  .0 

1  .0 

1  .0 

93 

4 

4 

1  .0 

1  .0 

1  .0 

1  .0 

99 

5 

4 

1  .0 

1  .0 

1  .0 

1  .0 

1  Q  0 

6 

4 

1  .c 

1  .0 

1  .0 

1  .0 

CTFORCE,1 , 1 , 


Figure  1-5.  Example  of  SSG  Program  for  the  Generation  of  Runstreams  for 
Execution  of  the  AFP  Interpolation  Module 
(page  2  of  6  pages) 
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101 

7 

4 

1  .0 

1  .0 

1  .0 

1  .0 

102 

8 

4 

1  .  0 

1  .0 

1  .0 

1  .0 

103 

104 

105 

9  4 

*  ELS  E 

1  .0 

1  .0 

1  .0 

1  ,0 

106 

#  A  S  G  ,  T 

CCSFILE, 

Iflfll. 

•  BASE  CSCSS  FACTORS 

107  »ED,1  CCSFILE,1  ,1,13. 

108  #  E  D I T 

109  ‘INCREMENT  IX  FPOM  1  TO  4 

110  ADO  H7CS CSS  I  . [6 FORC EC  ,  1  , 1  ,  1 OcCE*IX] 

111  ‘LOOP  .IX 

118  E  X  I 

113  ‘END 

1 1  4  ‘IF  [LOCALCSjl  ,2,13  =  Y 

115  SASG.T  CCS  FILE ,1 , 2 , 1 3 . , ///100  .  TARGFT  CSCSS  FACTORS 


1  1  6 

ft  D  AT  A  . 

IL 

[CSFILE.1 

#2,10. 

1  1  7 

1 

1 

1  .0 

1.0 

1  .0 

1  .0 

lid 

2 

1 

1  .0 

1  .0 

1.0 

1.0 

1  1  9 

7 

1 

1  .0 

1  .0 

1  .0 

1  .0 

120 

4 

1 

1  .0 

1  .0 

1  .0 

1.0 

121 

5 

1 

1  .0 

1  .0 

1  .0 

1  .0 

122 

6 

1 

1  .0 

1  .0 

1  .0 

1  .0 

123 

7 

1 

1 ,0 

1  .0 

1  .0 

1  .0 

124 

8 

1 

1  .0 

1  .0 

1  .0 

1  .0 

125 

9 

1 

1  .0 

1  .0 

1  .0 

1  .0 

126 

1 

2 

1.0 

1  .0 

1  .0 

1  .0 

127 

2 

2 

1  .0 

1  .0 

1  .0 

1  .0 

123 

3 

2 

1  .0 

1  ,0 

1 .0 

1  .0 

129 

4 

2 

1 .0 

1  .0 

1.0 

1  .0 

130 

5 

2 

1  .0 

1  .0 

1.0 

1  .0 

1  3  1 

6 

2 

1  .0 

1  .0 

1  .0 

1 .0 

132 

7 

2 

1  •  0 

1  .0 

1  .0 

1  .0 

133 

3 

2 

1 .0 

1 .0 

1  .0 

1  .n 

134 

9 

2 

1  .0 

1  .0 

1  .0 

1  .0 

135 

1 

3 

1 .0 

1 .0 

1  .0 

1  .0 

136 

2 

3 

1  .0 

1  .0 

1  .0 

1 .0 

137 

3 

3 

1  .0 

1  .0 

1 .0 

1  .0 

133 

4 

3 

1 .0 

1  .0 

1  .0 

1  .0 

139 

5 

3 

1  .0 

1  .0 

1  .  0 

1  .0 

140 

6 

3 

1  .0 

1  .0 

1  .c 

1  .0 

141 

7 

3 

1  .0 

1  .0 

1  .0 

1  .0 

142 

s 

3 

1 .0 

1  .0 

1  .0 

1  .0 

143 

Q 

3 

1  .0 

1  .0 

1  .0 

1  .0 

144 

1 

4 

1  .  0 

1  .0 

1 .0 

1  .0 

145 

2 

4 

1  .0 

1  .0 

1  .0 

1  .0 

146 

3 

4 

1  .0 

1  .0 

1  .0 

1  .0 

147 

4 

4 

1  .0 

1  .0 

1  .0 

1  .0 

143 

c 

4 

1  .0 

1 .0 

1  .0 

1.0 

149 

6 

4 

1  .0 

1  .0 

1  .0 

1 .0 

1  5G 

7 

s 

1  .0 

1  .0 

1  .0 

1  .0 

Figure  1-5.  Example  of  SSG  Program  for  the  Generation  of  Runstreams  for 
Execution  of  the  AFP  Interpolation  Module 
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1  5  1 

152 

153 

154 

155 

156 

157 
1  5  S 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 
169 
1  7  G 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 
153 

184 

185 
1  66 
157 

138 

139 
190 
1  9  1 

192 

193 

194 

195 

196 

197 
193 

199 

200 


s  4  no  i.o  i.o  i.o 

9  4  1.0  1.0  1.0  1.0 

SEND 
♦ELSE 

AASG,T  [CSFILE,  1 ,2,13.  .  TARGET  CSCSS  FACTORS 

RED, I  [CSFILE, 1,2,1]. 

AEDIT 

♦INCREMENT  IX  FROM  1  TO  4 

ADO  H7CSCSSI.tTFORCEC,1,1,13ECC*IX3 

♦LOOP  .IX 

E  X  I 

♦END 

A  A  S  G  ,  A  H73ASEDATA.  .  INVENTORIES 

n ASG,T  30INV3. ,// / 4  0  0  0 
A ASG , T  3QINVT .  ,  // /4C00 
A  A  S  5  ,  T  3CINVI.  ,  /  /  /  4  C  0  0 
♦IF  [USEFILES,1  ,1,13  =  Y 

A ASG, A  H7[3F0RCcS,1  ,1,1][RCLNAME,1  ,1.13.  .  QASE  ROLLUP 

4  USE  9., H7C9 FORCES ,1 *1,1 jCR0LNAMgf1 f1  flj. 

♦ELSE 
4 ASG  ,  T  0 . 

A ASG,  A  H7[SNA*E,1  ,1,13. 

AED  H7CSNAME , 1  ,  1  , 13 . CENAME i 1 1 1 ,1 3 , 0 .  .  BASE  ROLLUP 

★  END 

♦  I F  [USE  F ILES ,1,2,13  =  Y 

A  A  S  G , A  H7[TF0RCES,1  ,1  ,13ER0LNAME,1  ,2,13.  .  TARGET  ROLLUP 

AUSE  T. , H7CT FORCES , 1 f 1 , 1 3 [ROLNAME , 1 ,2  ♦  1  3  • 

♦ELSE 
A ASG, T  T. 

A  A  S  G , A  h7CSNA*E,1 ,2,13. 

A  E  D  h7CSNAME,1  ,2 ,13  .CEMME,  1 ,2,13  ,T.  •  TARGET  ROLLUP 

♦END 

AED  H 78 ASEDATA.[BF0RCE,1, 1,13601,301*7°. 

A  E  D  H7BASEDATA.[TF0RCE,1  ,1  ,136  01 ,30INVT. 

A  A  S  G , T  CCSFILE,1  ,3,13.  , ///ICO  .  INTERMEDIATE  CSCSS  FACTORS 
♦INCREMENT  FO  TO  CIF0RCE,13 
♦EDIT  ON 


AHDG  UNCLASSIFIED  AFP  INTERPOL  C 3 F 0 R C E  ,  1  ,  1  ,  1  3  C  I  D  I  V  ,  1  ,  1  ,  1  3  & 
CIF0kCE,1 ,F0,13  CTF0RCE,1  ,1,13 
AERS  30  I N  V  I  . 

AED  H7BASEDATA.[IDIV,1,1,13CIF0RCE,1,F0,  13601,  30  I N VI. 

A^RS  CCSFILE,1  ,3,13. 

♦IF  [LOCALCS  ,1  ,3,13  =  Y 
ADATA,IL  CCSFILE.1  ,3,13. 

1  1  1.0  1.0  1.0  1.0 

2  11.0  1.0  1.0  1.0 

3  1  1.0  1.0  1.0  1.0 

4  11.0  1.0  1.0  1.0 

5  1  1  .C  1.0  1 .0  1.0 

6  11.0  1.0  1.0  1.0 


Figure  1-5.  Example  of  SSG  Program  for  the  Generation  of  Runstreams  for 
Execution  of  the  AFP  Interpolation  Module 
(page  4  of  6  pages) 
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7 
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1.0 
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1  .0 

21  1 

a 

2 

1  .0 

1  .0 

1.0 

1  .0 

212 

9 

2 

1  .0 

1.0 

1  .0 

1  .0 

213 

1 

3 

1  .0 

1  .0 

1  .0 

1  .0 

214 

2 

3 

1  .0 

1  .0 

1  .0 

1  .0 

21  5 

7 

3 

1  .0 

1  .0 

1  .0 

1  .0 

216 

4 

3 

1  .0 

1  .0 

1 .0 

1  .0 

217 

3 

1  .0 

1  .0 

1  .0 

1  .0 

’18 

6 

3 

1  .0 

1  .0 

1 .0 

1  .0 

219 

7 

3 

1  .0 

1  .0 

1  .0 

1  .0 

2  2  C 

9 

3 

1  .0 

1  .0 

1  .0 

1  .0 

221 

0 

3 

1  .0 

1  .c 

1  .0 

1 .0 

222 

1 

4 

1.0 

1.0 

1  .0 

1  .0 

223 

2 

4 

1  .0 

1  .0 

1  .0 

1  .0 

224 

3 

4 

1  .0 

1  .0 

1  .0 

1  .0 

225 

4 

4 

1  .0 

1  .0 

1  .0 

1  .0 

226 

c 

4 

1  .0 

1  .0 

T  .0 

1  .0 

22  7 

6 

4 

1  .0 

1.0 

1 .0 

1 .0 

225 

7 

4 

1  .0 

1  .0 

1  .0 

1 .0 

229 

c 

4 

1  .0 

1  .0 

1  .0 

1  .c 

2  3  C 

Q 

4 

1  .0 

1  .0 

1  .0 

1  .0 

23  1 

n  5 

N  D 

232 

•ELSE 

233 

n  e 

D  ,  I 

CCS  FILE 

,1  ,3,13. 

234  3EDIT 

235  ‘INCREMENT  IX  FROM  1  TC  4 

23  t  ADD  h7CS CSSI . C ID  I  V , 1 , 1 , 1 3  Cl  FORCE , 1 , FO , 13E(3C*I X3 

237  ‘LOOP  .IX 

233  EXI 

239  ‘END 

240  » I F  CUSEFI LES , 1  ,  F0‘2  ,  1 3  =  Y 

2t 1  *  I F  CNEWOUT ,  1,1,13  =  Y 

242  3DELETE,C  H 7  I N T [ I D 1 V , 1 , 1 , 1 3 C I F 0 R C E . 1  ,  F 0 , 1 3  . 

243  3ASG.UP  H7INT [  I  D  I  V  ,  1  ,  1  , 1 3 [  I  FORCE  ,  1  ,  FO  ,  1 3  .  .  INTERP  OUTPUT  FILE 

244  3KEEP.C  H7INTC  I  D  I  V  ,  1  , 1  ,  1  3 C  I  f ORCE  ,  1  ,  FO  ,1 3  . 

24  5  *  E  L  S  E 

246  3  A  S  G  ,  A  H7INTCIDIV.1  ,1  ,13tIF0RCE,1 ,F0,13.  .  INTERP  OUTPUT  FILE 

2  4  7  ‘END 

248  RUSE  3C . , H7INTC IDIV , 1 , 1 , 1 3 C I  FORCE , 1 , FO, 1 3  . 

249  *  E  L  S  E 

250  3  A  S  G , T  30.  .INTERP  TEMP  OUTPUT  FILE 


Figure  1-5.  Example  of  SSG  Program  for  the  Generation  of  Runstreams  for 
Execution  of  the  AFP  Interpolation  Module 
(page  5  of  6  pages) 
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2  S  4 
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299 
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301 
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303 
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306 


#  A  s  G  f  A  H7Cl0IVf1 f1 i13CSNAPtf1 , FO  +  2 , 1  3 . 

•END 

#ERS  30. 

*XQT  30D0FAX .  INTERPO 
CPHI , 1 , FO , 1 3  C  V  A  P  Y ,1 |1 ,13 
•EDIT  ON 
[9N0DIV, 1 38 

•INCREMENT  IBNO  TO  [9N0DIV,13 
CSNODIV  ,  1  ,  IBNO, 1 35 
•LOOP  .I3N0 
•EDIT  OFF 

•INCREMENT  CSFIL  TO  3 
CCSFILE.I , CSFIL, 13. 

[CSPTR, CSFIL, 1  ,13 
•LOOP  .CSFIL 
•INCREMENT  E*  TO  [ENVWTS3 
CENVwTS, Ew , 1,13 
•LOOP  . E* 

301 N VB  . 

3CINVT. 

3  0 1  N  V  I  . 

*.  IMAGE  GIVING  INDICES  IN  C  8  T  POT  OUTPUT  RECORDS 
•EDIT  ON 
[ K  THTR  ,  1  ,1  ,13* 

[  J  T  P  D  ,  1  ,  F  0 , 1  3  8 
0  0  05 

CI9F0R , 1 , 1 . 1 38 
CIRFOR  ,1 , 1 , 1 jg 
C JCASE,  1 , F0,1 3 
e . 

T  . 

DONE 

•IF  [USE  FILES , 1 , FO+2, 1 3  =  N 

#ED  2C.,H7[IDIV,1  ,1  ,13CSNAME,1  ,F0+2,13.INT 

#  PN  0 

#  D  A  T  A  f  L  30. 

SEND 

#FEEE  30. 

♦LOOP  . f 0 

#  D  A  T  A  ,  L  B  . 

#E  NO 

#DATA,L  T. 
n  END 

♦INCREMENT  A  T0  CNU«,13 

#  FREE  [NUM,  1  ,A,1]. 

♦LOOP  .A 

*FRE6  3. 

#free  T. 

♦IF  C  S  T  A  R  T , 1  f  1  f  13  =  Y 

U  FIN 

♦END 

♦REMOVE  SGS  IDIV 
♦REMOVE  SGS  IBFOR 
♦LOOP  .  I  D X 

3  E  0  F 
3  F  0  F 


Figure  1-5.  Example  of  SSG  Program  for  the  Generation  of  Runstreams  for 
Execution  of  the  AFP  Interpolation  Module 
(page  6  of  6  pages) 
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(10)  The  SGS  "TFORCE"  specifies  the  symbol  (here  JM84)  identifying  the 
target  division  in  many  of  the  input  files/elements.  A  separate  identifier 
is  provided  for  CS/CSS  factors. 

(11)  The  SGS  "BFORCEC"  specifies  the  symbol  (here  HMOO)  identifying 
the  baseline  division  in  CS/CSS  factor  input.  The  symbol  may  be  the  same 
as  for  BFORCE  if  so  defined  at  CS/CSS  factor  generation  time. 

(12)  The  SGS  "TFORCEC"  specifies  the  symbol  (here  JMOO)  identifying 
the  target  division  in  CS/CSS  factor  input.  The  symbol  may  be  the  same  as 
for  TFORCE  if  so  defined  at  CS/CSS  factor  generation  time. 

(13)  The  SGS  "BFORCES"  specifies  the  symbol  (here  H80)  identifying  the 
baseline  division  in  final  combat  potential  input  file.  The  name  is 
critical  only  if  the  corresponding  USEFILES  symbol  (defined  below)  is  Y(es. 
The  symbol  may  be  the  same  as  for  TFORCE  is  so  defined  at  rollup  time. 

(14)  The  SGS  "TFORCES"  specifies  the  symbol  (here  J84)  identifying  the 
target  division  in  final  combat  potential  input  file.  The  name  is  critical 
only  if  the  corresponding  USEFILES  symbol  (defined  below)  is  Y(es.  The 
symbol  may  be  the  same  as  for  TFORCE  is  so  defined  at  rollup  time. 

(15)  The  SGS  "ROLNAME"  specifies  the  symbols  identifying  parts  of  the 
names  of  final  combat  potential  input  files  for  the  baseline  and  target 
divisions.  (Here  both  symbols  are  Rl6x2,  suggesting  that  the  final  poten¬ 
tials  of  both  baseline  and  target  divisions  were  determined  by  rollups  over 
all  16  combat  environments  and  two  replications.)  ROLNAMEs  are  used  only 
if  the  corresponding  USEFILES  setting  is  Y(es. 

(16)  The  SGS  "ENVWTS"  specifies  the  16  weights  (summing  to  1.0)  to  be 
used  in  "rolling  up"  over  all  16  combat  environments. 

(17)  The  SGS  "NEWOUT"  specifies  whether  new  files  must  be  opened  for 
receiving  the  results  of  interpolations.  Y(es  or  N(o  specifies  whether  the 
output  file  is  a  new  one. 

(18)  The  SGS  "BNODIV"  specifies  which  Blue  weapon  types  (here  only  41) 
are  to  be  reqarded  as  nondivisional .  The  effect  is  to  exclude  nondi visional 
weapons  from  COP  computation. 

(19)  The  SGS  "USEFILES"  specifies  whether  combat  potential  data  are  to 
be  treated  as  files  Y(es  or  elements  N(o.  The  symbols  correspond  to  base¬ 
line,  target,  and  intermediate  divisions. 

(20)  The  SGS  "SNAME"  specifies  parts  of  the  names  of  the  files 
containing  combat  potential  elements.  The  symbols  are  critical  only  if  the 
corresponding  USEFILES  are  set  to  N(o. 
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(21)  The  SGS  "ENAME"  specifies  the  element  names  of  combat  potentials 
of  the  baseline  and  target  divisions.  The  symbols  are  critical  only  if  the 
corresponding  USEFILES  are  set  to  N(o. 

(22)  The  SGS  "CSFILE"  specifies  names  of  temporary  files  for  CS/CSS 
factors  for  baseline,  target,  and  intermediate  divisions. 

(23)  The  SGS  "LOCALCS"  specifies  whether  CS/CSS  factors  are  to  be  used 
as  defined  within  the  generator  (here  all  1.0)  or  as  defined  in  other 
sources.  Y(es  specifies  use  of  the  data  in  the  generator;  N(o  specifies  an 
external  source.  Specifications  are  set  separately  for  baseline,  target, 
and  intermediate  divisions.  Only  one  switch  is  set  for  the  intermediate 
divisions;  i.e.,  it  is  assumed  that  the  same  data  strategy  (though  not 
necessarily  the  same  data)  apply  to  all  the  intermediate  divisions. 

(24)  The  SGS  "CSPTR"  specify  the  combat  environment  sets  of  CS/CSS 
factors  to  be  used  in  each  of  the  16  combat  environments  for  each  of  the 
baseline,  target,  and  intermediate  divisions.  It  is  assumed  that  the  same 
specification  applies  to  all  intermediate  divisions.  The  SGSs  correspond 
to  baseline,  target,  and  intermediate  divisions,  respecti vely.  The  CS/CSS 
factor  strategy  of  the  combat  module  is  to  read  one  or  more  sets  of  factors 
for  each  division  and  then  to  use  the  sets  by  combat  environment  in  accord 
with  CSPTR. 

(25)  The  SGS  "FIL"  specifies  the  names  of  elements  containing  data 
used  in  the  calculation  of  CS/CSS  moduli. 

(26)  The  SGS  "NUM"  specifies  the  temporary  files  into  which  the  ele¬ 
ments  specified  in  FIL  are  copied  respecti vely. 

(27)  The  SGS  "ELTLIST"  specifies  whether  the  SSG  program  and  cor¬ 
responding  runstream  are  to  be  listed  in  run  output.  Y(es  produces  the 
listings.  Note  that  Y(es  leads  to  printing  the  SSG  program  current  at  the 
time  of  runstream  excution;  that  version  may  not  be  the  one  current  at  the 
time  of  runstream  generation. 

(28)  The  SGS  "START"  specifies  whether  runstreams  are  to  be  generated 
as  START  elements  Y(es  or  simple  ADD  elements  N(o.  START  elements  begin 
with  @RUN  and  end  with  @FIN  images. 

(29)  The  SGS  "VARY"  specifies  whether  the  phase  parameter  PHI  is  to 
affect  the  computation  of  intermediate  unmodulated  combat  potentials. 
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b.  SKEL  Section.  The  SKEL  section  of  Figure  1-5  creates  names  of  files 
and  elements  and  control  images  in  accord  with  the  above  SGS  definitions. 
Generated  runstream  elements  are  saved  for  careful  inspection  prior  to 
their  execution.  The  SKEL  section  is  hardly  the  most  general  program 
imaginable.  Special  AFP  cases  or  conditions  may  require  modification  of 
both  SGS  and  SKEL.  However,  many  special,  one-time  variations  may  be 
handled  most  easily  by  editing  a  standard  generated  runstream  without 
change  to  the  SSG  program.  Note  that  the  example  program  is  based  on  the 
assumption  that  all  versions  of  the  intermediate  division  have  data  named 
consistently.  On  the  other  hand,  the  program  already  includes  SGSs 
permitting  some  variation  in  naming;  e.g.,  HM80,  HMOO,  H80,  were  all 
necessary  during  system  development  and  test  because  analysts  exercised 
nonstandard  initiatives  in  naming  files  and  elements.  (It  is  a  law  of 
nature  that  analysts  follow  naming  conventions  no  more  than  half  the  time.) 
Changes  to  the  limits  in  lines  40  and  185  permit  generation  of  runstreams 
for  any  consecutive  subsets  of  divisions  and  years. 

I—H -  GENERATED  RUNSTREAM  I.  Figure  1-6  displays  the  runstream  generated 
as  a  START  element  for  the  division  3M  in  accord  with  the  example  SSG 
program  shown  in  Figure  1-5.  The  example  shown  generates  12  other 
runstreams  during  single  execution. 

1-12.  GENERATED  RUNSTREAM  II.  Figure  1-7  displays  a  runstream  generated 
as  an  ADD  element  for  the  division  24M  in  accord  with  the  example  SSG 
program  shown  in  Figure  1-5  but  with  "START  N".  That  example  (with  "START 
N")  would  generate  12  other  ADD  elements  as  well. 
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3RUN  ,  / TPR  D  C  G  6  3  ^  t  P3S99T2277D  .UNCLASSIFIED  .600, 1nuC 

fflHDG  UNCLASSIFIED  AFF  INTERPOL  H M  ? C  3  y  J  M  E  4 

3  E  L  T  ,  L  G6GE  CTCST« INTERPSSG/SKEL 

a.  E  L  T  i  L  H7RUNS.G03M 

S  A  S  G  ,  T  1  1  .  ,  /  /  /  1  0  3 

a  E  D  G6GECTECT. ADAT1  ,11  . 

a  A  S  G  ,  T  II.  ,///1C0 

a  c  D  G6GECTEST.ADAT2,1?. 

i  A  S  G  ,  T  1  3  .  ,  /  /  /  1  0  0 

aED  b6GE  CTEST  .  AD AT3  ,  1 3 . 

£  A  S  G , T  14 .  ,  /  /  /  1  r  o 

aED  66G5CTEST.ADAT4.14. 

a  A  j  6  ,  T  1  6  .  ,  /  /  /  1  0  G 

aED  G6GECTEST.ACATS ,1*. 

a  a  S  G  ,  T  17.,  ///I  00 

aED  66GEC  TE  ST .53C  AT , 1 7 . 

3  A  S  G , T  1 c.,/// 1 00 

LED  G6GECTEST.RBCAT,1«. 

3  A  S  G , T  3  A  DAT:.  .  -ASS  CSCSS  FACTORS 

a E  u , I  3ACAT5. 
a  E  D  I  T 

ADD  H7CSCSSI. H  M  0  0  E  C 1 
ADD  H7C3CSSI.H*0QcC?. 

ADD  H7CSCSSI  .  H  i*  0  3  E  0  7 
ADD  H7CSCSSI .p^COFOA 
E  X  i  ' 

S  A  S  5  ,  T  T  A  D  A  T  5 .  .  T  A  R  o  E  T  CSCSS  FACTCRS 

3  E  0  ,  I  T  A  D  A  T  E  . 

3  E  D  3  T 

ADD  H7CSCSS1  .  J**njFQ1 
ADD  H7CSCSST.J  M00EQ2 
ADD  H7CSCSST.JM00F03 
ADD  h7CSCSSI.J/0jEG4 
E  X  I 

3  A  S  G  ,  A  P7=»ASEDATA.  .  INVENTORIES 

a  a  s  r- ,  t  g  eiw?. ,///4:cc 

sAjG.T  G  6  I N  V T . , / / / 4 " o  C 
3  A  S  G  ,  T  G6INVI.,///4PJ0 
i  A  S  G  ,  T  3  . 

3  A  S  C-  ,  A  »  7  H  0  0  . 

aED  H7HviC.P1cXlO,3.  .  =  A  S  E  R  C  L  L  U p 

a  A  S  G  ,  T  T. 
a  A ; G , A  h/Jv'4. 

3  ED  m7j'/S4.p1Sx1_,T.  .  T  A  p  G  F  T  ROLLUP 

aED  H75ASEDATA.HV?CEC1  ,  G  6  I  N  V  9  . 

3  E  D  H76ASEDATA.JV :4£01  ,  G i I U V  T  . 

a  A  S  G  ,  T  IADAT5.,///1CJ  .  I N  T  E  c  w  E  D  I  A  t  F  CSCSS  FACTORS 
a  H  D  G  U\CLAScIFI"u  A  F  p  INTERPOL  H  X  ;  0  3  v  5  0  J  M  3  4 
aErtS  G6INVI. 

3ED  H7  2ASECATA.3wCnE01  ,  G  f  I  \’  V I  . 


Figure  1-6.  First  Example  of  an  SSG-generated  Runstream  for 
Execution  of  the  AFP  Interpolation  Module 
(page  1  of  5  pages) 
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ADD  H7CSCSSI.2M5UECZ 
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G  6  I  .'  •»  V  8 

• 

G  6  I  N  \J  T 
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3HDG  UfJCLAS?  I  F  I  F  L>  AFP  I  NT  E  R  c  OL 
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2)XuT  GtDCrAY.i\TE  =  PO 

1  43 

C  .  A  C  TRUE 
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156 
1  5  7 
1  3  5 
15  = 
1  c3 
1  cl 
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1  6.6 
167 
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1  77 
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1  66 
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a,cRS  G6ISVI . 

a  E  D  H7cASEDAT6.3*«3tSl,G6iNVI. 
i  E  R  S  I  A  D  A  T  5  . 

0  ED,  I  I  A  £  A  T  r  . 
icDI  T 

ADD  H7CSCSSI  .  3  V  5  6  F  0  1 
ADD  H7CSCSSI  .  3  iv  5  3  F  0  2 
ADD  H7CSCSSI.lv 6  3  F  C I 
ADD  H7CSCSSI.7.w55!r04 
EX  i 

EDELETE,C  h  7 1 M  3  M  f  3 . 
oj  A  £  G  ,  U  P  H7IST3Vi67. 
i <  E  E  P , C  ri7lNT5v3T, 

i  U  S  E  3  C  .  ,  h  7  I M  3  K  0  3  . 

3  EPS  3  0. 

EX01T  GcOOFAX.IKiTFPPC 
0.75  TRUE 

1  H  1 

B  A  D  A  T  5  • 

1  2  3  4  1' 

T  A  D  A  T  5  . 

1  2  3  4  1; 

I  A  D  A  T  5  . 

1  2  3  4  1' 

0.126  0.126 
3 . 0  5  4  0  .  0 
3.12S  0  .  C  3  2 
0  .  J 1  6  0 . 3  4  0 
G  6  I  *  J  V  B  • 

G  6  I  N  V  T  . 


IVTFPP  OUTPUT  FILE 
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3  4 
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3 . 34  c 
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2  3 
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2C1 
202 
2  C3 
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2C6 
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2  Co 
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2  11 
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a)  5  4  D 

oiFn  1C  22  . 
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£  E  R  S  G  6  I  V  I  . 
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a  c  D  I  T 

ADD  H7CSCSSI.7»?4E01 
add  H7CSCSSI 
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ADD 
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H  7 1  \  T  3  ^  5  4  . 
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DOFAX.IMERPO 


I  N  T  E  K  p  c  L  W  M  P.  G  3  'A  5  4  J  *t  3  4 


*«  ^  W  ^  KJ  *  9  ^  C 
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’  M|  0  ( 
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2  16 

L  A  ;  G  ,  U  P 

217 

oiK  E  E  P  i  C 

2  13 

qi US  E  20. 
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221 
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222 
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224 
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2  25 
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226 
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I  A  D  A  T  5  . 
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229 
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2  20 

C  .  u 5  4  O.C 

2  3  1 

u  .  1  ;  ;  ^  . 

232 

C.216  C.C 

2  33 

G  6 1  N  V  . 

234 

G6 I N  VT  . 

2  35 

G  6  I  N  V  I  . 

2  26 

E  5  4 

2  2  7 

C  « 

2  3; 

T  • 

2  2  9 

0  C  \  t 

2  40 

a  D  hT  A  f  L 

2^1 

a  E  l\  D 

2  a  2 

a.  F  a  E  E  I  C  • 

2  43 

a  j  A  T  A  *  L  - 
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a  E  \  C 

245 

i D  AT  A , L  T 

2  4  6 

t 

2  <-7 

*  FREE  11. 

2d« 

a  F  n  £  E  1  c;  . 

2  *.  9 

a  F  K  [■  £  13. 

2  53 

i1  F  K  E  E  14. 

2  51 

rJ  F  r\  B  E  1  6  . 

2  52 

i  F  R  E  E  1  7  . 

2  53 

S  F  R  t  E  1c. 

2  5  4 

a  F  4  E  E  6  . 

2  55 

si  F  R  E  E  T  . 

2  56 

a-FIN 

INTERP  OUTPUT  FILE 


1 

1 

1 

26 

54 

32 


2  3 
2  3 


4 
A 

7  4 
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..03i> 
1  •  3  o  0 
.01  6 


1  2  3 


1  2  3 

1  2  3 
G  .  1  7  t 
J  .33c 
G  .  C  6  4 


2  1  Cl  1 17 
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y 
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1  5 
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1  £ 
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25 

2  1 

22 
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2  *• 
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2? 
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3C 

3  1 

I. 
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2  5 

i  * 

37 
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H  3 
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4  6 

4  7 

4  £ 

h  9 
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SHDG  UNCLASSI F  I  F  D  A  c  F  INTERDOL  H  M  R  Q  2  4  n  jm£4 
3  E L  T  ,  L  3CGECTFST.lNTERPSSC/SxFL 
GFLT.L  3GGECTFST .INt£4P0L/24v 
3  a  s  G  ,  T  1  1  .  ,  /  /  /  1  c  0 
3  ED  2CSEC7EST  ,A  DAT1  ,11  . 

3  A  S  G  ,  T  1  2  .  ,  /  /  /  1  0  0 

aED  GCGECTEST . ADAT2  ,12. 

3  A  s  G  ,  T  1  3  .  ,  /  /  /  1  C  G 
3  E  D  3GoECTcST.ADATi,13. 

•AsefT  14., ///i  oo 

5.ED  3CGECTEST.ADAT-,,14. 

a  A  S  G  ,  T  16., ///I  GO 

3ED  2C6ECTEST.ACATS,16. 

3ASS,T  17.  ,  III  ICO 
a  F  0  3GGECTEST.aBCAT,17. 

3  A  S  3 , I  18., ///ICC 
i  E  D  3CGECTEST.RPCAT,18. 

a  A$G,T_EADAT5.  .  BASE  CSCSS  F  A  C  T  n  R  F 

3  E  D  ,  I  B  A  D  A  T  5  • 
ojE  D  I  T 

ADD  m?CSCSSI.hmCCEj1 
ADD  h7CSCS$I.HM00c32 
ADD  n7C?CSSI.Hv,Q2E33 
ADD  H7CSCSSI.HMCjFj4 
E  X  i 

3  A  S  G , 7  7  A  D  A  T  5 .  .  TAPGET  CSCSS  FACTORS 

E'FD.I  T  A  D  A  7  5  . 
a  E  D  I  T 


ADD  n  7  C  S  C  S  S I . J  F  C  C  E  C 1 
ADD  H7CSCSSI.J«nCEC2 
ADD  H7CSCSSI .  J  ,v  C  C  E  0  7 
ADD  H7CSCSSI.JTCCE2/4 
E  X  I 


S  A  s  G  ,  A 

H  7  B  A  S  £  D  A  T  A  . 

a  A  S  G  f  T 

3  C  I  N  V  5  .  ,  /  /  /  4  C  C  0 

a  A  S  6  i  T 
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5  A  S  G  ,  T 
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i  A  S  G  ,  T  T  . 

ii  A  S  G  ,  A  H  7  J  '  84  . 

3ED  h7Jm84.R1*x1C,T. 
a  E  D  h7B  A  SEDAT  A. HP's"1  EDI  , 
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2  5  R  S  30. 
aXGT  30D0FAX 
G  .  0  5  TRUE 
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Section  V.  PROGRAM 

1-13.  MOTIVATION.  The  AFP  Interpolation  Module  implements  logic  for  the 
interpolation  of  combat  potentials  of  divisions  with  inventories  "between" 
two  bounding  inventories  whose  combat  potentials  are  already  known.  In  its 
current  form,  the  Interpolation  Module  estimates  combat  potentials  in  some¬ 
thing  less  than  1/100  the  computer  time  required  to  determine  potentials 
from  scratch.  In  absolute  terms,  the  times  are  10  minutes  for  interpolation 
and  over  40  hours  for  full  system  execution  with  10  Combat  Module  replica¬ 
tions,  per  combat  environment.  The  increase  in  speed  is  accompanied  by 
some  loss  in  accuracy. 

1-14.  PROGRAM  LOGIC.  Figure  1-8  displays  the  basic  logical  flow  of  the 
Interpolation  Module.  The  flow  diagram  does  not  reveal  the  interpolation 
technique,  which  is  imbedded  in  the  subprograms  GETINV  through  XMCIP  and, 
to  a  degree,  in  OUTX,  the  output  routine.  The  algorithm  is  explained  in 
paragraph  1-16.  But  before  coming  to  grips  with  the  algorithm,  the 
operator/programer  should  pause  to  consider  that  much  more  than  a  single 
quantity  must  be  estimated.  The  Interpolation  Module  must  estimate  the 
unmodulated  and  modulated  scores  and  CIPs  for  up  to  60  Blue  weapon  types. 
Inasmuch  as  scores  are  merely  the  products  of  equipment  quantities  and  cor¬ 
responding  CIPs,  it  is  only  the  CIPs  that  need  be  interpolated  in  the  usual 
sense  of  the  word.  Once  CIPs  have  been  estimated,  simple  multiplication 
yields  scores.  And  once  scores  have  been  determined,  summing  the  unmodu¬ 
lated  and  modulated  scores  yields  the  unmodulated  and  modulated  COPs, 
respecti vely.  The  unmodulated  and  modulated  CIPs  are  determined  different¬ 
ly.  Because  the  explanation  of  the  algorithm  involves  references  to  Inter¬ 
polation  Module  program  arrays,  the  module's  reference  and  working  arrays 
are  defined  in  the  next  paragraph,  before  detailed  description  of  interpo- 
1 ation. 


a.  The  key  to  the  interpolation  method  is  recognition  of  the  need  to 
determine  net  CS/CSS  moduli  for  the  three  inventories.  This  is  a  simple 
matter  for  the  baseline  and  target  inventories.  For  them,  net  moduli  are 
defined  simply  as  the  ratios  of  modulated  to  unmodulated  scores  from  the 
files  of  final  combat  potentials.  Those  files  are  available  from  the  AFP 
Rollup  and  Stats  Module.  For  a  specific  weapon  type,  let  the  net  moduli  be 
represented  by  M(B)  and  M(T)  for  the  baseline  (B)  and  target  (T)  inventor¬ 
ies,  respecti vely.  Needed  are  corresponding  M(I)  for  the  intermediate  (I) 
force.  But,  of  course,  no  file  of  combat  potentials  already  exists  for  the 
intermediate  force;  it  is  that  file  which  is  to  be  generated  by  the  Inter¬ 
polation  Module.  However,  data  are  already  available  to  construct  so-called 
"synthetic  moduli"  for  all  three  forces. 
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Figure  1-8.  Flow  Diagram  of  the  Basic  Logic  of  the 
AFP  Interpolation  Module 
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b.  An  implied  table  has 

the  form: 

Basel ine 

Intermediate 

T  arget 

Net  modulus 

M(B) 

? 

M(T) 

Synthetic  modulus 

S(B) 

s('i) 

S(T) 

where  only  the  "?"  for  M(I)  is  unknown.  It  is  assumed  that  the  following 
relation  holds: 


M(  I  )/S( I )  =  (1-p)  *  M(B)/S(B)  +  p  *  M(T)/S(T) 

hence,  M(I)  is  determined  as 

M ( I )  =  S(I)  *  ((1-p)  *  M(B)/S(B)  +  p  *  M(T)/S(T) ) 

where  "p"  is  a  so-called  "phase  parameter"  reflecting  whether  the  intermed¬ 
iate  division  is  "closer"  to  the  baseline  or  target  division.  The 
parameter  should  lie  on  the  range  0.0  <  =  p  <  =  1.0.  The  algorithm 
described  in  paragraph  1-16  below  implements  this  notion  of  determining 
M(I)  in  terms  of  M(B),  S(B),  M(T),  S(T),  and  p  for  all  components  of 
modulated  scores  and  CIPs  for  all  Blue  weapon  types. 

1-15.  PROGRAM  ARRAYS.  The  principal  arrays  defined  and  used  in  the  Inter¬ 
polation  Module  are  referenced  in  the  paragraph  1-16  description  of  the 
interpolation  algorithm. 

a.  QTY(60,3).  The  array  QTY()  stores  the  weapon  inventories  of  the 
baseline,  target,  and  intermediate  divisions  for  reference.  Once  stored, 
the  inventories  are  not  modified.  An  array  element  QT Y ( I , J )  is  indexed: 

(1)  1=1  to  60  for  the  60  Blue  weapon  types. 

(2)  J=1  to  3  for  the  three  divisions:  baseline,  target,  and  inter¬ 
mediate. 

b.  RSC0RE(5,60,2) .  The  array  RSC0RE()  stores  the  five-valued  final 
unmodulated  scores  for  weapons  of  the  baseline  and  target  divisions.  Once 
stored,  the  scores  are  not  modified.  The  array  RSC0RE()  is  sometimes 
treated  as  the  first  subarray  of  the  larger  array  WVAL(5,60,2,4) .  An  array 
element  RSC0RE(K, J,K)  is  indexed: 

(1)  1=1  to  5  for  the  five  components  of  unmodulated  scores:  person¬ 
nel,  light  armored  vehicles,  heavy  armored  vehicles,  aircraft,  and  scalar. 

(2)  J=1  to  60  for  the  60  Blue  weapon  types. 

(3)  K=1  to  2  for  the  baseline  and  target  divisions. 
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c.  XSC0RE(5,60,2) .  The  array  XS CORE ( )  stores  the  five-valued  final 
modulated  scores  for  weapons  of  the  baseline  and  target  divisions.  Once 
stored,  the  scores  are  not  modified.  The  array  XSCORE ( )  is  sometimes 
treated  as  the  third  subarray  of  the  larger  array  WVAL(5,60,2,4) .  An  array 
element  XSCORE ( I , J,K)  is  indexed: 

(1)  1=1  to  5  for  the  five  components  of  modulated  scores:  personnel, 
light  armored  vehicles,  heavy  armored  vehicles,  aircraft,  and  scalar. 

(2)  J=1  to  60  for  the  60  Blue  weapon  types. 

(3)  K=1  to  2  for  the  baseline  and  target  divisions. 

d.  UCIP(5,60,2).  The  array  UCIP ( )  stores  the  five-valued  final  unmodu¬ 
lated  CIPs  for  weapons  of  the  baseline  and  target  divisions.  Although  the 
CIPs  are  available  directly  from  the  files  of  final  combat  potentials  for 
the  baseline  and  target  divisions,  the  values  in  those  files  are  the  result 
of  truncation  of  usually  more  precise  values.  The  Interpolation  Module 
restores  some  of  that  precision  by  dividing  the  corresponding  unmodulated 
score  by  the  inventory  quantities.  The  array  UCIP ( )  is  sometimes  treated 
as  the  second  subarray  of  the  larget  array  WVAL(5,60,2,4) .  An  array  ele¬ 
ment  UCIP ( I , J ,K )  is  indexed: 

(1)  1=1  to  5  for  the  five  components  of  unmodulated  CIPs:  personnel, 
light  armored  vehicles,  heavy  armored  vehicles,  aircraft,  and  scalar. 

(2)  J=1  to  60  for  the  60  Blue  weapon  types. 

(3)  K=1  to  2  for  the  baseline  and  target  divisions. 

e.  XCIP(5,60,2) .  The  array  XCIP ( )  stores  the  five-valued  final  modu¬ 
lated  CIPs  for  weapons  of  the  baseline  and  target  divisions.  Although  the 
CIPs  are  available  directly  from  the  files  of  final  combat  potentials  for 
the  baseline  and  target  divisions,  the  values  in  those  files  are  the  result 
of  truncation  of  usually  more  precise  values.  The  Interpolation  Module 
restores  some  of  that  precision  by  dividing  the  corresponding  unmodulated 
score  by  the  inventory  quantities.  The  array  XCIP ( )  is  sometimes  treated 
as  the  fourth  subarray  of  the  larget  array  WVAL(5,60,2,4) .  An  array  ele¬ 
ment  XCIP(I,J,K)  is  indexed: 

(1)  1=1  to  5  for  the  five  components  of  unmodulated  CIPs:  personnel, 
light  armored  vehicles,  heavy  armored  vehicles,  aircraft,  and  scalar. 

(2)  J=1  to  60  for  the  60  Blue  weapon  types. 

(3)  K=1  to  2  for  the  baseline  and  target  divisions. 

f.  XNM0D(5,60,3) .  (This  array  is  also  sometimes  identified  as 
XM0D(5,60,3) . )  The  array  XNM0D()  stores  derived  values  of  what  are  called 
the  "net  CS/CSS  moduli."  These  special  versions  of  CS/CSS  moduli  are  gene¬ 
rated  during  the  i nterpol ation  process  for  the  baseline,  target,  and  inter¬ 
mediate  divisions.  The  net  moduli  are  generated  first  for  the  baseline  and 
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target  divisions.  These  and  other  factors  are  then  used  to  generate  net 
moduli  for  the  intermediate  division.  An  array  element  XNM0D(I,J,K)  is 
indexed: 

(1)  1=1  to  5  for  the  five  components  of  combat  potentials: 
personnel,  light  armored  vehicles,  heavy  armored  vehicles,  aircraft,  and 
seal ar. 

(2)  J=1  to  60  for  the  60  Blue  weapon  types. 

(3)  K=1  to  2  for  the  baseline,  target,  and  intermediate  divisions. 

g.  FAX(12,60,3) .  The  array  FAX()  stores  derived  sample  values  of 
CS/CSS  moduli  for  the  baseline,  target,  and  intermediate  divisions.  The 
values  are  derived  within  the  Interpolation  Module  by  the  standard  AFP 
CS/CSS  approach  for  each  combat  posture  and  then  (weighted)  summed  over 
posture.  The  values  are  samples  in  the  sense  that  only  one  Red  weapon  per 
target  category  is  considered.  An  array  element  FAX(I,J,K)  is  indexed: 

(1)  1=1  to  12  for  the  12  Red  target  categories. 

(2)  J=1  to  60  for  the  60  Blue  weapon  types. 

(3)  K=1  to  3  for  the  baseline,  target,  and  intermediate  divisions. 

h.  PHI(60,3).  The  array  P H I ( )  stores  derived  "synthetic  CS/CSS  moduli" 
for  the  baseline,  target,  and  intermediate  divisions.  The  values  are 
simply  the  arithmetic  means  of  elements  in  array  FAX()  averaged  over  the  12 
Red  target  categories.  Hence,  an  element  of  array  PHI ( )  is  a  special 
CS/CSS  modulus  already  averaged  over  targets  and  combat  postures.  An  array 
element  PHI(I,J)  is  indexed: 

(1)  1=1  to  60  for  the  60  Blue  weapon  types. 

(2)  J=1  to  3  for  baseline,  target,  and  intermediate  divisions. 

i.  XUCIP(5,60).  The  array  XUCIP ( )  stores  derived,  interpolated  esti¬ 
mates  of  unmodulated  CIPs  for  the  intermediate  division.  An  array  element 
XUCIP ( I , J )  is  indexed: 

(1)  1=1  to  5  for  the.  five  components  of  unmodulated  CIPs:  personnel, 
light  armored  vehicles,  heavy  armored  vehicles,  aircraft,  and  scalar. 

(2)  J=1  to  60  for  the  60  Blue  weapon  types  of  the  intermediate  divi¬ 
sion. 

j.  VCIP(5,60).  The  array  VC I P ( )  stores  derived,  interpolated  estimates 
of  modulated  CIPs  for  the  intermediate  division.  An  array  element 
VCIP(I,J)  is  indexed: 

(1)  1=1  to  5  for  the  five  components  of  modulated  CIPs:  personnel, 

light  armored  vehicles,  heavy  armored  vehicles,  aircraft,  and  scalar. 
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(2)  J=1  to  60  for  the  60  Blue  weapon  types  of  the  intermediate 

division. 

k.  EWT(16).  The  array  EWT()  stores  combat  environmental  weights.  The 
Interpolation  Module  reads  the  16  environmental  weights.  An  array  element 
EWT(I)  is  indexed  by  combat  environment. 

l.  INDX ( 16,3) .  The  array  I NDX ( )  stores  pointers  specifying  the  sets  of 
CS/CSS  factors  to  be  used  by  combat  environment  and  by  division.  An  array 
element  INDX ( I , J)  is  indexed: 

(1)  1=1  to  16  for  the  combat  environments. 

(2)  J=1  to  3  for  the  baseline,  target,  and  intermediate  divisions. 

m.  The  subprogram  CSCSS  within  the  Interpolation  Module  is  very  nearly 
identical  to  a  subprogram  within  the  AFP  System's  CS/CSS  Module.  Apart 
from  the  arrays  FAX()  and  EWT()  introduced  above,  subprogram  CSCSS  uses  the 
same  arrays  already  identified  and  defined  in  Appendix  E  on  the  CS/CSS  pro¬ 
cess  in  particular. 

n.  Note  that  the  personnel  through  aircraft  elements  of  combat 
potentials  may  include  target  values  if  so  generated  by  the  AFP  CBT/CS/CSS 
Merge  Module.  If  so,  the  "personnel"  element  then  also  may  contain  some 
other  weapon  values. 

1-16.  KEY  TO  INTERPOLATION  ALGORITHM.  Figure  1-9  provides  the  principal 
track  for  describing  the  methods  used  to  interpolate  unmodulated  and  modu¬ 
lated  CIPs.  Once  the  new  CIPs  have  been  obtained,  the  unmodulated  and 
modulated  scores  can  be  obtained  by  simple  multiplication  in  steps  not 
represented  in  Figure  1-9.  The  description  involves  references  to  Inter¬ 
polation  Module  program  arrays  (defined  in  paragraph  1-15  immediately 
above)  and  special  simplified  symbols  (in  Figure  1-9)  representing  arbi¬ 
trary  elements  within  those  arrays. 

a.  The  unmodulated  scores  and  CIPs  and  the  modulated  scores  and  CIPs 
are  already  known  for  the  baseline  and  target  divisions  for  all  weapon 
types.  These  are  symbolized  for  the  Ith  component  of  combat  potentials  and 
Jth  Blue  weapon  type  in  Figure  1-9  by: 

(1)  Unmodulated  score — BB  =  RSC0RE( I, J,l)  for  the  baseline  division 
and  LLL  =  RSC0RE(I,J,2)  for  the  target  division. 

(2)  Unmodulated  CIP--DDD  =  UCIP ( I , J , 1 )  for  the  baseline  division  and 
NNN  =  UCIP(I,J,2)  for  the  target  division. 

(3)  Modulated  score--CCC  =  XSCORE ( I , J , 1 )  for  the  baseline  division 
and  MMM  =  XSC0RE( I , J,2)  for  the  target  division. 

(4)  Modulated  CIP--EEE  =  XCIP ( I , J , 1 )  for  the  baseline  division  and 
000  =  XCIP(I,J,2)  for  the  target  division. 
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b.  It  remains  for  the  Interpolation  Module  to  determine  the  counter¬ 
parts  of  the  quantities  in  paragraph  a  for  the  intermediate  division. 

There  is  some  freedom  in  the  order  in  which  steps  may  be  performed.  The 
order  of  steps  shown  in  Figure  1-9  is  convenient  but  arbitrary  in  some 
respects. 

(1)  Step  1  in  Figure  1-9  corresponds  to  the  call  of  subprogram  GETINV 

in  order  to  read  and  store  the  inventories  of  the  baseline,  target,  and 

intermediate  weapon  inventories  in  array  QTY()  symbolized  by  the  general 
elements  AAA  =  QTY(0,1),  KKK  =  QTY(J,2),  and  GGG  =  QTY(J,3),  respectively. 

(2)  Step  2  in  Figure  1-9  corresponds  to  the  call  of  subprogram  GETROL 

in  order  to  read  and  store  the  unmodulated  and  modulated  scores  for  the 

baseline  and  target  divisions  in  arrays  RSC0RE()  and  XSC0RE()  symbolized  by 
the  general  elements  BBB,  CCC,  LLL,  and  MMM,  respecti vely. 

(3)  Step  3  in  Figure  1-9  corresponds  to  the  call  of  subprogram  RECIP 
in  order  to  compute  and  store  values  of  the  unmodulated  and  modulated  CIPs 
for  the  baseline  and  target  divisions  in  arrays  UCIP()  and  XC I P ( )  symbolized 
by  the  general  elements  DDD,  EEE,  NNN,  and  000,  respecti vely.  Although 
values  are  available  directly  from  the  original  combat  potential  files  for 
the  baseline  and  target  divisions,  the  subprogram  RECIP  generates  higher 
precision  elements.  In  each  case,  a  CIP  is  computed  simply  as  the  result 

of  dividing  a  score  by  the  inventory  of  the  corresponding  weapon  type. 

Thus,  DDD  =  BBB  /  AAA,  for  example.  At  this  stage,  enough  information  is 
already  in  hand  for  computation  of  the  unmodulated  CIPs  for  the  intermediate 
division;  however,  this  step  is  not  performed  until  step  5  below. 

(4)  Step  4  in  Figure  1-9  corresponds  to  calls  of  subprogram  CSCSS  in 
order  to  compute  sample  CS/CSS  moduli  for  the  baseline,  target,  and  inter¬ 
mediate  divisions.  The  moduli  are  samples  in  the  sense  that  they  are  com¬ 
puted  for  all  Blue  weapons  types  but  only  in  relation  to  a  single  target 
type  from  each  of  the  12  Red  weapon  categories.  Moduli  are  computed  for 
each  of  the  16  combat  environments  and  summed  in  accord  with  the  usual  com¬ 
bat  environmental  weights.  The  results  of  this  step  are  stored  in  array 
FAX()  for  use  later  in  step  7. 

(5)  Step  5  in  Figure  1-9  corresponds  to  the  call  (with  argument  VARY 
=, FALSE.)  of  program  NEWCIP  in  order  to  compute  the  unmodulated  CIPs  for 
the  intermediate  division.  Results  are  stored  in  array  XUCIP()  for  later 
output.  An  element  of  the  array  XUCIP()  is  symbolized  by  HHH  in  Figure 
1-9.  Note  that  the  HHH  are  one  of  the  desired  classes  of  final  combat 
potentials  sought.  The  formula  for  the  HHH  is  straightforward: 

HHH  =  (AAA  *  DDD  +  KKK  *  NNN)  /  (AAA  +  KKK) 

It  is  characteristic  of  the  AFP  System  that  the  same  weapon  type  may  have 
different  CIPs  in  different  divisions.  Thus,  in  general,  the  unmodulated 
CIPs  DDD  and  NNN  may  be  unequal.  The  problem  is  to  choose  unmodulated  CIPs 
HHH  "between"  those  values  for  the  intermediate  division.  The  given 
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formula  assigns  the  HHH  in  proportion  to  the  quantities  of  the  corresponding 
weapon  types  in  each  of  the  baseline  and  target  inventories.  Note  that  if 
the  CIPs  are  the  same  in  the  baseline  and  target  divisions,  the  same  value 
is  assigned  to  the  intermediate  division,  regardless  of  the  numbers  of 
weapons  of  that  type.  If  NEWCIP  is  called  with  VARY=.TRUE,  HHH  =  ((1-PHI) 

*  AAA  *  DDD  +  PHI  *  KKK  *  NNN)  /  ((1  -  PHI)  *  AAA  +  PHI  *  KKK) ,  this  latter 
option  permits  unmodulated  combat  potentials  to  vary  with  PHI  (the  phase  of 
the  intermediate  year)  unless  DDD  +  NNN. 

(6)  Step  6  in  Figure  1-9  corresponds  to  the  call  of  subprogram  NETMOD 
in  order  to  compute  and  store  what  are  called  the  "net  CS/CSS  moduli" 
implicit  in  the  original  results  for  the  baseline  and  target  divisions.  In 
general,  the  modulated  scores  and  CIPs  for  the  baseline  and  target  divisions 
are  the  results  of  summation  over  16  combat  environments  and  over  many  en¬ 
gagements;  hence,  those  results  involve  the  application  of  possibly  very 
many  CS/CSS  moduli  for  each  weapon  type.  A  measure  of  the  net  effect  of 

all  the  summation  is  given  by  the  ratio  of  a  modulated  score  to  and  unmodu¬ 
lated  score  (or  for  that  matter,  the  ratio  of  a  modulated  CIP  to  an  unmodu¬ 
lated  CIP).  The  net  CS/CSs  moduli  are  stored  in  array  XNM0D(),  whose 
elements  are  symbolized  in  Figure  1-9  by  FFF  and  PPP  for  the  baseline  and 
target  divisions,  respecti vely.  Notice  that  the  net  moduli  depend  on 
results  of  both  the  CS/CSS  Module  and  the  Combat  Module.  A  net  modulus  for 
the  baseline  division,  for  example,  is  then  simply 

FFF  =  CCC  /  BBB,  or 

(net  modulus)  =  (modulated  score)  /  (unmodulated  score) 

which,  as  already  noted,  can  also  be  determined  as 

(net  modulus)  =  (modulated  CIP)  /  (unmodulated  CIP) 

The  idea  here  is  to  estimate  the  net  moduli  for  the  baseline  and  target 
divisions  and,  in  the  following  steps,  to  estimate  net  moduli  for  the  inter¬ 
mediate  division,  and  then  apply  those  net  moduli  as  multipliers  of  the 
already  derived  unmodulated  CIPs  to  generate  modulated  CIPs... 

(modulated  CIP)  =  (net  modulus)  *  (unmodulated  CIP) 

but  this  is  jumping  all  the  way  to  step  9  below.  Before  that... 

(7)  Step  7  in  Figure  1-9  corresponds  to  the  call  of  subprogram  DOPHI 
in  order  to  rollup  the  previously  determined  sample  CS/CSS  moduli  over  the 
12  Red  target  categories.  The  results  of  summation  of  elements  of  array 
FAX()  are  stored  in  array  P H I ( )  for  the  baseline,  target,  and  intermediate 
divisions.  Notice  that  the  elements  of  array  PH I ( )  do  not  depend  on  results 
of  the  Combat  Module. 

(8)  Step  8  in  Figure  1-9  corresponds  to  the  call  of  subprogram  NXMOD 
in  order  to  estimate  and  store  the  net  CS/CSS  moduli  of  the  intermediate 
division.  Results  are  stored  in  array  XNM0D()  with  elements  corresponding 
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to  the  intermediate  division  symbolized  by  III  in  Figure  1-9.  In  terms  of 
the  foregoing  notation  and  symbols, 

III  -  PHI ( J , 3 )  *  ( ( 1-T )  *  FFF  /  PHI ( J, 1 )  +  T  *  PPP  /  PHI ( J,2) ) 

Note  that  PHI ( )  for  all  the  divisions  were  determined  without  reference  to 
the  Combat  Module.  FFF  and  PPP  were  determined  for  the  baseline  and  target 
divisions  by  reference  to  both  the  CS/CSS  and  Combat  Modules.  It  is 
assumed  that  the  missing  reference  to  the  Combat  Module  in  the  case  of  the 
intermediate  division  can  be  "filled  in"  as  being  in  proportion  to 
corresponding  known  ratios  FFF/PHI ( J, 1)  and  PPP/PHI ( J,2) .  Here,  an 
"inventory  phase  parameter"  T  is  introduced.  As  applied  in  the  above 
expression,  T  is  simply  a  convexity  parameter  on  the  interval  0.00  -  1.0. 

It  is  intended  to  reflect  how  far  in  "inventory  time"  the  intermediate 
division  has  progressed  from  baseline  to  target  inventory.  Currently  the 
Interpolation  Module  applies  the  same  value  of  T  to  all  weapon  types. 
Certainly  the  definition  of  T  can  be  generalized  to  depend  on  weapon  type 
in  general  and  inventory  in  particular;  i.e.,  it  may  be  made  a  function  of 
AAA,  GGG,  and  KKK,  if  necessary,  to  make  interpolation  more  accurate. 

(9)  Step  9  in  Figure  1-9  corresponds  to  the  call  of  subprogram  XMCIP 
in  order  to  estimate  and  store  final  modulated  CIPs  for  the  intermediate 
division.  The  results,  of  course,  depend  on  the  foregoing  steps.  The 
modulated  CIPs  are  stored  in  array  VC I P ( ) ,  whose  elements  are  symbolized  by 
JJJin  Figure  1-9.  The  computation  is  implied  to  multiply  the  previously 
estimated  unmodulated  CIPs  by  the  just  determined  net  CS/CSS  moduli. 

JJJ  =  III  *  HHH 

(modulated  CIP)  =  (net  modulus)  *  (unmodulated  CIP) 

At  the  close  of  step  9,  both  the  unmodulated  and  modulated  CIPs  of  the 
intermediate  division  have  been  estimated.  It  remains  to  determine  the 
unmodulated  and  modulated  scores  as  well  as  unmodulated  and  modulated  COPs. 

•  iese  steps  are  not  shown  in  Figure  1-9.  The  steps  are  performed  within 
OJTX,  the  output  subprogram.  The  scores  are  generated  by  multiplying  CIPs 
by  the  correspondi ng  weapon  counts  from  the  previously  stored  inventory 
data.  J 


(score)  =  (quantity)  *  (CIP) 

The  COPs  are  generated  by  summation  of  the  scores. 

SOURCE  LISTINGS.  The  source  listings  for  the  main  and  subprograms 
of  the  Interpolation  Module  appear  in  Figures  I - 10  through  1-34.  The 
source  listings  include  some  intral inear  comments.  The  following 
paragraphs  provide  additional  commentary. 

1-18.  MAIN  PROGRAM  DOFAX.  Figure  I -10  presents  the  source  listing  of  the 
program  element  DOFAX,  the  main  program  of  the  Interpolation  Module. 
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7  OCT  83  —  G.  E.  C. 

PROGRAM  TO  INTERPOLATE  CIPS,  UNMOO  £  MOD,  FOR  AN  INVENTORY 
•BETWEEN*  A  BASELINE  (BASE)  AND  AN  END  DATE  (TARGET)  INVENTORY 
BASE - > INTER MED I  ATE - > TAR  GET 


PARAMETER  M=6C,N=60  ,NFUNS=9  , NEN V = 1 6 , NC AT S  =  1 2 


C0MM0N/FAX3/FAX (12 .60*3)  »  FW  T  ( 16  I 
COMMON /FORCES/QTY (60. 3) 

COMMON /PCLLeT/RSCCREt  S,6C ,2) ,UCIPC5,6P, 2) ,XSC OR E ( 5 , 60  , 2  )  , 

1  XCI P ( 5  » 60f 2 )  ^  „ 

COMMON /NEWV AL/XUCIP (5 ,60 ),XM0D<5f60,3lfPHltfe0,3)fVCIP(5,60> 
C0MMCN/FACT0R/U<9,16t3)fVC9,16,3),S(9,16,3),T (9,16,3)  9 
1  INOX ( 16  t  3) 

COMHON/AWPK/IVRK, ISCNT  , I THTRX , I TPDX , I V I S X X , I P C S X X f I D A YX X 


^R  ACTER  *>1  8W (M)  ,  R  W  (  N  )  f  UF  U  N  f  NF  UNS  fM ) , VFU N ( NF UN S  f M ) , 

SF UN ( NFUNS , N  )  ? TFUN ( N F UN $ t N  )  , EU F UN ( NFUN S  ,  NEN V  )  , 

EVFUN (NFUNS  f  NE  NV ) , ESFUN I NF UNS t NEN V  I , E T F U N ( NFUN S t MEN V ) 
JCAT(NFUNS,NCATS,NCATSJ,VCRT(NFUNStNCATStNCATS), 

^CAT f NF UNS - N CA TS. NCATSI.TCAT (NFUN S.NCATStNC ATS) 


DIMENSION  A (NFUNS  , NENV ) y LBCAT (HI , LRCAT  CN ) 

LOGICAL  VARY 

DATA  NPOS  fNQAY/4  »2/ 


ARRAYS 


FAX(I,J,K)  BLUE  CSCSS  MODULI  COMPUTED  IN 
1=1,12  EVERY  5TH  RED  WPN  TYPE 
'  EACH  BLUE  WPN  TYPE 

BASE,  TARGET*  £  INTER  FORCES 

ENVIRONMENT  WEIGHTS  ROLLED  UP 
POSTURE:  D.I.f  D.L.,  DELAY,  ATK 
_  _  WEAPON  INVENTORIES 

1=1,60  WEAPON  TYPE 

J=1 , 3  BASE.  TARGET,  C  INTER  FORCES 
RAW  SCORES 
UNMODULATED  CIPS 


J=1,6G 
K  =  1 .3 
EWT(I) 

1  =  1,4 
QTY ( I , J) 


J-Z  I  J  DA  ol  • 

RSCORE  I  I « J  «K  I 
UCIP<I,J,K  ) 


XSCORE  II  |J  |K  )  MODULATED  SCORES 


XCIPCI ,J,K  ) 


MODULATED  CIPS 


USUAL  U A Y  FOR: 


BY  POSTURE 


WVAL(I , J,K  ,L )  EQUIVALENT  TO  ABOVE  FOUR  ARRAYS 
1  =  1,5  PERS,  LVEH ,  HVEH,  ACFT  ,  SCLR 
J=l,60  WEAPON  TYPE 


Figure  I -10.  Source  Listing  of  the  Main  Program  of  the 
AFP  Interpolation  Module 
(page  1  of  4  pages) 
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85 

86 
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88 
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91 
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93 
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95 

96 

97 

98 

99 
100 


C  K  =  l,2  BAST.  TARGET,  FORCE 

C  L - 1 , 4  RSCCRE,  UCIP,  SCORE,  XCIP 

C  XUCIPCI,J>  INTERPOLATED  UNMODULATED  CIPS  FOR  INTER  FORCE 
C  1-1,5  PERS,  LVEH,  HVEH,  ACFT,  SCLR 
C  J=1 ,60  WEAPON  TYPE 

C  XNHO D  < I , J  , K )  NET  MODULI 

C  1=1,5  PERS,  LVEH,  HVEH,  ACFT,  SCLR 

C  J  =  1 ,60  WEAPON  TYPE 

C  K=l,3  BASE,  TARGET,  INTER-FORCE 

C  PHI C I , J )  SYNTHETIC  MODULI 

C  1=1 ,60  WEAPON  TYPE 

C  J=l,3  BASE,  TAR6ET,  L  INTER  FORCES 

C  VC IPS  <5,60)  INTERPOLATED  MODULATE  CIPS  FOR  INTER-FORCE 
C  1=1,5  PERS,  LVEH,  HVEH,  ACFT,  SCLR 

C  J=1 ,60  WEAPON  TYPE 

C 
C 

C  READ  THE  PHASE  PARAMETER  £  WHETHER  NEVCIPS  SHOULD  DEPEND 

C  ON  TX  OR  BE  CONSTANT  3ETWEEN  BASE  AND  TARGET  YEARS 

READI5,!)  TX , VA  R Y 
1  FORMAT  <  I 

WRITE  <  6 ,2  )  TX.VARY 

2  FORMAT ( /  1  TIME  PHASE  PARAMETERS ,F4.2, 1  NEWCIP  VAPY=*,L30> 
CALL  NONCIV 
INF ILE  =  1 7 

CALL  GETCAT {LBCAT ,M,f  BBC AT -FILE  f , INF I LEI 
I NF I LE  =1  £ 

CALL  GETCAT (LRCAT ,N,fRRCAT -FILE’ , INFILE  I 
C 

CALL  GETDAT  CM,N,NFUNS ,NE  NV , UF UN , V FUN , S  FUN  ,  T  F  U  N , 

1  EUFUN,EVFUNfESFUN,ETFUN,8W,RW,AJ 
C 

C  GET  THE  ORIGINAL  CS/CSS  FACTORS  FOR  EACH  INVENTORY 
C 

00  ID  1  =  1,3 
CALL  USENAM 

CALL  GETFACCU(l,lfI)yVtl  $11,1,1)  ,T(  1,1,1)  ,NFUNS, 

1  I NO X  I  1 , I  )  ) 

ID  CLOSE ( 29  ) 

C 

CALL  GTCATV  CU CAT, VC AT ,SC AT , TCAT , NFUNS , NC A T  I 
C 

CALL  ENVWTS 
C 

IURK  =  25 
C 

C  GET  BASE,  INTERMEDIATE,  C  TARGET  INVENTORIES 
C 

CALL  GET INV 
WRITEC6, 101  ) 


Figure  I -10.  Source  Listing  of  the  Main  Program  of  the 
AFP  Interpolation  Module 
(page  2  of  4  pages) 
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ID  1 

101 

FORMAT  ( *  c-etinv  COMPLETE*) 

102 

C 

103 

c 

GET  BASE.  E  TARGET  ROLLED  UP  BLUE  SCORE: 

104- 

c 

105 

CALL  GETROL 

106 

WRITEC6.1C2) 

107 

102 

FORMAT!1  GETROL  COMPLETE") 

108 

c 

109 

c 

CORRECT  CIPS  FOR  EARLIER  ROUNDOFFS 

110 

c 

1  1  1 

CALL  RECIP 

112 

WRITE  f  6  « 1 D3  ) 

FORMAT  !  *  RECIP  COMPLETE*) 

113 

103 

1 1  4 

c 

115 

c 

GENERATE  MEAN  MODULI 

116 

c 

117 

DO  60  IF CR-1 v  3 

118 

DO  50  IVlS-1,2 

119 

IVISXZIVIS 

120 

DO  40  IPOS- 1  i  4 

121 

IP0SX=1P0S 

122 

JPOS-4 

123 

IF(IP0SX.EQ.4  )  JP0S  =  1 

124 

DO  30  ID  A  Yr l f  2 

125 

IDA YX-ID  AY 

126 

CALL  CSCSS(H9N9r.'FUNS9IVIS«IP0SvIDAYvl 

127 

1  TFUN  «  EUFUN#EVFUN,ESFUN .ETFUNf eUfRW 

2  LBCAT iLRCAT ,UCAT  fVCATtSLAT ,  TCA T  , NCA 

128 

129 

WRITE  <6f 104  J  IFCR  f IV1S, I  PCS  ,IDA Y 
FORMAT  ( *  COMPLETED  CSCSS  FOP:  IFOR-" 

130 

1  04 

131 

1  *  IPOS-"fIl,"  IDAY="tIl) 

132 

3C 

CONTINUE 

133 

40 

CONTINUE 

134 

sr 

CONTINUE 

135 

60 

CONTINUE 

136 

c 

137 

c 

COMPUTE  UNMODULATED  CIPS  FOR  INTER 

138 

c 

139 

CALL  NEWCIP<TXtVARY) 

140 

WRITE ( 6  *  1 C5 ) 

FORMAT  (  *  NEWCIP  COMPLETE") 

14  1 

1  05 

142 

c 

14  3 

c 

COMPUTE  "NET  MODULI"  FOR  BASE  AND 

144 

c 

145 

CALL  NETMOD 

146 

WRITE!6,irb) 

147 

106 

FORMAT!"  NETMOO  COMPLETE") 

148 

c 

149 

c 

COMPUTE  "SYNTHETIC  MODULI*  FOR  ALL 

150 

c 

i  CIPS 


Figure  1-10.  Source  Listing  of  the  Main  Program  of  the 
AFP  Interpolation  Module 
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151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 
173 
179 
18C 


CALL  DOPHI 
WRITE  <6, 107) 

1 C  7  FORMAT  (  *  DOPHI  COMPLETE*) 

C 

C  ESTIMATE  THE  ’NET  MODULI*  FOR  INTER-FORCE 

C  X NHO D  Cl V  » IW  1 3  ) 

C 

CALL  NXMQD(TX) 

WRITE  <6,108) 

10  8  FORMAT  C 1  NX  MO  D  COMPLETE*) 

C 

C  MODULATE  THE  INTERF  PRCE  UCIPS 

C  VCIP(IVflW)rXNM0DllVtlWf3)*XUCIP(IV,IW) 

CALL  XMCIP 
WRITE (6 f 109 ) 

109  FORMAT  t  *  XMCIP  COMPLETE*) 

C 

C  GENERATE  INTER-FORCE  TART  Y— LI KE  REPORT 

CALL  OUTX 
WRITE (6.110) 

1IC  FORMAT  (  *  OUTX  COMPLETE*) 

C 

CALL  DMPHOD 
WRITEC6, 111  ) 

111  FOR  H A  T { *  DM  P  M  CO  COMPLETE’) 

C 

STOP  ’DONE* 

END 


Figure  I-1CL  Source  Listing  of  the  Main  Program  of  the 
AFP  Interpolation  Module 
(page  4  of  4  pages) 
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a.  Lines  7-25  declare  the  reference,  working,  and  scratch  arrays  of  the 
main  program. 

b.  Line  70  obtains  the  inventory  phase  parameter  and  the  value  of  VARY 
from  the  runstream.  Line  74  calls  subprogram  NONDIV  to  read  the  indices  of 
Blue  nondivisional  weapons  for  exclusion  from  COP  computations. 

c.  Lines  75-91  obtain  data  that  support  the  CS/CSS  moduli  computation 
as  described  in  nppendix  E  on  the  CS/CSS  process.  There  is  one  exception 
here  in  the  Interpolation  Module.  Lines  85-89  obtain  three  sets  of  CS/CSS 
factors,  one  each  for  the  baseline,  target,  and  intermediate  divisions.  In 
a  single  execution  of  the  CS/CSS  Module  described  in  Appendix  E,  only  one 
set  of  CS/CSS  factors  is  input. 

d.  Line  93  calls  ENVWTS  to  obtain  a  set  of  16  combat  environmental 
weights.  It  is  assumed  that  the  same  set  of  16  weights  is  applicable  to 
all  three  divisions. 

e.  Line  99  calls  GETINV  to  obtain  the  three  inventories  correspondi ng 
to  the  baseline,  target,  and  intermediate  divisions. 

f.  Line  105  calls  GETROL  to  obtain  the  previously  generated  final 
combat  potentials  of  the  baseline  and  target  divisions. 

g.  Line  111  calls  RECIP  to  determine  more  precise  values  of  CIPs  than 
read  by  GETROL.  GETROL  reads  CIPs  as  formatted  in  the  final  combat  poten¬ 
tials  files.  More  precise  CIPs  may  be  estimated  by  dividing  the  weapon 
scores  by  the  weapon  quantities. 

h.  Lines  117  and  135  define  the  limits  of  a  quadruply-nested  loop 
structure  for  the  determination  of  sample  CS/CSS  moduli.  The  outer  loop  is 
over  the  baseline,  target,  and  intermediate  divisions.  This  looping  over 
three  different  divisions  differs  from  the  practice  of  the  CS/CSS  Module 
itself  where  only  one  of  these  would  be  examined  in  a  single  execution. 
Another  diference  within  the  Interpolation  Module  is  attention  only  to  the 

.  Red  weapon  (target)  categories  instead  of  to  the  full  60  weapon  types  as 
in  the  CS/CSS  Module.  The  loops  over  visibility  and  day/night  are 
degenerate.  It  is  only  the  combat  posture  loop  that  is  nontrivial  among 
combat  environmental  indices. 

i.  Line. 139  calls  NEWCIP  to  compute  the  unmodulated  CIPs  of  the  inter¬ 
mediate  division  in  one  of  two  ways  depending  on  the  value  of  VARY. 

j.  Line  145  calls  NETMOD  to  compute  the  net  CS/CSS  moduli  for  the  base¬ 
line  and  target  divisions. 

k.  Line  151  calls  DOPHI  to  sum  the  CS/CSS  Module  over  the  Red  weapon 
(target)  categories,  thereby  producing  the  so-called  "synthetic  moduli." 
Synthetic  moduli  are  generated  for  baseline,  target,  and  intermediate 
divisions. 
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l.  Line  158  calls  NXMOD  to  estimate  the  net  CS/CSS  for  the  intermediate 
division  from  the  net  moduli  of  the  baseline  and  target  divisions,  from  the 
synthetic  moduli  of  all  three  divisions,  and  from  the  inventory  phase 
parameter . 

m.  Line  155  calls  XMCIP  to  estimate  the  modulated  CIPs  for  the  inter¬ 
mediate  division  as  products  of  the  net  moduli  and  the  unmodulated  CIPs. 

n.  Line  171  calls  OUTX  to  complete  the  computation  of  final  combat 
potentials  for  the  intermediate  division  and  to  output  the  complete 
results.  Both  unmodulated  and  modulated  CIPs  are  already  known  upon  entry 
to  OUTX.  OUTX  multiplies  the  CIPs  by  inventory  quantities  to  determine  the 
unmodulated  and  modulated  scores.  OUTX  sums  the  scores  in  order  to  deter¬ 
mine  the  COPs.  OUTX  writes  Blue  combat  potentials  of  the  intermediate 
division  to  unit  30. 

o.  Line  175  calls  DMPMOD  to  dump  the  array  of  net  CS/CSS  Module  for 
checking  purposes. 

p.  Line  179  terminates  normal  execution  of  the  Interpolation  Module. 

1-19.  SUBPROGRAM  CSCSS.  Figure  I - 1 1  presents  the  source  listing  of  sub¬ 
program  CSCSS  of  the  Interpolation  Module.  This  subroutine  is 
substantially  the  same  as  the  one  employed  in  the  CS/CSS  Module  and  as 
described  in  Appendix  E.  The  main  differences  peculiar  to  the  version  here 
are: 


a.  Line  14  declares  arrays  FAX()  and  ENT().  FAX ( )  stores  moduli  for 
each  of  the  12  Red  weapon  (target)  categories.  The  Interpolation  Module 
saves  sample  moduli  in  FAX()  rather  than  outputting  them  to  a  file  as  is 
the  case  in  the  CS/CSS  Module.  EWT()  provides  the  environmental  weights  by 
combat  posture.  The  Interpolation  Module,  within  a  single  execution,  rolls 
up  moduli  by  posture. 


b.  Within  a  single  Interpolation  Module  execution,  CSCSS  is  required  to 
generate  moduli  for  three  divisions. 


c.  Line  66  limits  the  Red  weapon  loop  to  the  first  weapon  in  each  of 
the  usual  12  target  categories. 


d.  Red  moduli  are  not  computed  or  saved. 


e.  Line  101  applies  a 
puted  modulus  and  updates 


combat  posture  weight  to  the  most  recently  com- 
the  correspondi ng  element  of  array  FAX ( ) . 
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L 

3 


t 

7 

9 

10 
1  1 
1  2 
1  3 

1  4 

1  5 
1  6 
17 
1  & 

1  9 
20 
21 
22 

23 

24 

25 
2c 
27 

2  £ 

29 

30 

31 

32 

33 

34 

35 


IS 

~l  Q 

4  0 
41 
4-2 

43 

44 

45 

46 

47 
4  & 

49 

50 


C 

C 


c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  CSCSS(M,N,NFUNSfIVISfIt>OSfIDAY,NENV 
*UFUN  ,  VFUN  ,S  FUN, TFUN ,EUFUN ,E VFUN  ,  ES  FUN  ,ETFUN, 

*  3  W  ,  R  w  tNPOS  *  MD A Y ,  A  ,JP0S,L3CAT  ,  L  R  C  A  T  , 

*  U  C  A  T  ,  V  C  A  T  ,  S  C  A  T ,  T  C  A  T , NC ,  IFOR) 


PARAMETER  NBSTEP=1 ,  NRSTEP=1 

CHARACTER*!  3  W  (  M  ) ,  R  W  (  N  ) ,UFUN<NFUNS,M) ,VFUN(NFUN$,M) f 
*SFUN  (NFUNS  tNj  ,TFUN(NFUNS  ,N)  ,EUFUN(NFUNS,NENV)  ,  E  V  F  U  N  (  N  F  U  N  $  ,  N  £  N  V  )  , 
*ESFUN<NFUNS,NENV),ETFUN(NFUNSfNENV)fNO, 

*UCAT  (NFUNS  ,NC  ,NC  )  ,  VCAKNFUNS  ,NC  ,NC)  ,SCAT  (NFUNS  ,  NC  ,NC  )  , 

*TCAT (  N  f  UN  S  ,  N  C ,  N  C  ) 


C0MMCN/FAY3/FAX(12,6Q,3),EWT<16) 

DIMENSION  A(NFUNS,NFNV),L9CAT(M),LRCAT(N) 


NO='N' 

A  U,V,$,  OR  T  ELEMENT  IS  BUILT  AS  THE  D I  A  6QN  A  L  OF  A  HYPER- 
PAP ALLELOPIPEO  FOR  THE  L-TH  ENVIRONMENT: 

ELE  =  SQRT(SUM( A(K, U *F(K)a2;<) / S  U  M  < A (  K  ,  L  )  ; K)  ) 

IN  CURRENT  FORM,  DOES  NOT  DEPEND  ON  FORCE  MASSES  OR  RATIO!!! 


ARRAYS  $  THINGS: 


A  ( K  ,L  ) 

wT 

OF  K-TH 

FUNCT  IN 

L-TH  ENVIRONMENT. 

3  F 

VLUE  NET  FACTOR  OVER 

ALL  FUNCTS.  L  ENVIR. 

R  F 

RED 

NET  FACTOR 

OVER 

ALL 

FUNCTS.  L  ENVIR. 

B  W  (  I  ) 

SW, 

WHETHER 

9LUE  TYPE  I 

AFFECTED. 

R  W  (  J  ) 

I) 

sw. 

whether 

RED  TYPE 

J 

AFFECTED, 

U  FUN ( K , 

s  w , 

WHETHER 

< 

FUNCT 

A  F  F 

c  C  T  S  3-TYPE  I 

u's . 

v  f  u  n  <  r  f 

I  1 

sw, 

•HETHER 

K 

FUNCT 

AFFECTS  3-TYPE  I 

v 's . 

S  F  U  N  (  K  , 

J  ) 

SW, 

•HETHER 

< 

FUNCT 

AFFECTS  R-TYPE  J 

s  '$ . 

T  FUN ( K  , 

J  ) 

sw. 

WHETHER 

< 

FUNCT 

AFFECTS  R-TYPE  J 

T 's . 

EUFUN (K 

,L) 

sw. 

WHETHER 

< 

FUNCT 

i  L 

ENVIR  AFFECT 

u 's . 

EVFUN (K 

,  L ) 

SW, 

WHETHER 

K 

FUNCT 

Z  L 

ENVIR  AFFECT 

V  'S  . 

E  S  FUN  C  K 

$  w , 

WHETHER 

K 

FUNCT 

S  L 

ENVIR  AFFECT 

S  'S  . 

ETFUN  (K 

,1) 

sw. 

whether 

K 

FUNCT 

$  L 

ENVIR  AFFECT 

T'S  . 

UCATCK, 

J  ,  I) 

sw. 

WHETHER 

K 

FUNCTION, 

R-TYpr  jf  ANC 

e-TYPE 

V  C  AT ( K  , 

AFFECT 

U' 

S  . 

J  ,  I) 

sw, 

WHETHER 

K 

FUNCTION, 

r-type  J,  AND 

8-TYPE 

S  CAT  (K  , 

AFFECT 

V' 

S  . 

J  ,  I) 

SW, 

WHETHER 

K 

FUNCTION, 

R - T  Y  P  c  J,  AND 

e-type 

TCATU, 

AFFECT 

S' 

S  . 

j ,  n 

sw. 

WHETHER 

K 

FUNCTION, 

r-type  j,  and 

8-type 

AFFECT 

T' 

S  . 

COMPUTE  INDEX  OF  ENVIRONMENT 


LENV=(IVIS-1)*NP0$*NDAY+(IDAY-1)*NP0S+IPGS 


Figure  1-11. 


Source  Listing  of  the  Subprogram  CSCSS  of  the 
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5 1 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 
67 
6  £ 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
32 

83 

84 

85 
3  6 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 
96 
99 

100 

101 

102 

103 

104 

105 


LENVJ=(IVIS-1 )*NP0S*NDAY4<IDAY-1)*NP0S+JP0S 
C 

C  COMPUTE  NORM 

c 

AC=0.0 
A  0  =  0  •  0 

DO  5  C  J F  =  1  ,  NFUNS 
A  C  =  A  C  +  A  (  J  F  f  L  E  N  V  ) 

A  D  =  A  D  +  A  (  J  F  »  L  E  N  V  J  ) 

50  CONTINUE 
C 

DO  1000 

IF  (BW(IB) .EQ.NO)  GO  TO  1000 
IBCAT=LBC AT(IB) 

I  R  C  =0 

DO  900  IR=1,Nt5 
B  F  =  1  •  0 
IRC=IRC+1 
R  F  =  1  .0 

IF  (RW(IR)  .EQ.NO)  GO  TO  900 
IRCAT=LRCAT(IR1 
R  R  r  0  «  0 
80=0.0 

DO  800  J  F  =  1  .NFUNS 
U  =  1  .0 

IF(UFUN(JFtIB)  .EQ.NO)  GO  TO  710 
I  F ( EUFUN  (  J F f LE NV )  .  EQ  .  NO)  GO  TO  710 
I  F (UC AT  (  J F  ,  IR C AT  ,  IBCAT)  .  EQ . NO)  GO  TO  710 
U  =  F  U  (  J  F  t I FOR.LENV) 

710  V=1 .0 

IF  (VFUN< JF, IB)  .EQ.NO)  GO  TO  720 
IF(EVFUN(JF,LPNV)  .EQ.NO)  GO  TO  720 
I  F ( VC  AT  (  J E f  I  RC AT  ,  IBCAT )  .  EG . NO )  GO  TO  720 
V=FV(JF,IFOR, LENV) 

720  S  =  1 .0 

I F ( S FUN ( J F , IR ) . EQ . NO)  GO  TO  730 
IF (ESFUNtJFfLENV) .EQ.NO)  GO  TO  730 
IF (SCAT (JFV  IRCATf  IBCAT) .EQ.NO)  GO  TO  730 
S=FS<JF,IFORfLENV) 

770  T -1  •  C 

I  F ( T FUN ( J F , IR ) . EQ .NO)  GO  TO  740 
IF(ETFUN(JF,LENV)  .EQ.NO)  GO  TO  740 
I  F  (T C AT  (  J F  ,  IRC  AT  ,  IBCAT)  .  EQ .NO)  GO  TO  7 40 
T=FT(JF  ,  IFOR, LENV) 

740  CONTINUE 

UV$T  =  (U*V)/  ( $  *  T ) 

UVST=UV$T*UVST 
BB  =  0B  +  A(J  F  tLENV) *  U  V  S  T 
800  CONTINUF 

BF  =  SQRT  (BB/AC ) 

FAX(IRCfIB,IFOR)=FAX(IRC,IB,IFOR)+EWT(LENV)*BF 
900  CONTINUE 
1000  CONTINUE 
RETURN 
END 


Figure  1-11.  Source  Listing  of  the  Subprogram  CSCSS  of  the 
AFP  Interpolation  Module 
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1-20.  SUBPROGRAM  DOPHI.  Figure  1-12  presents  the  source  listing  of  sub¬ 
program  DOPHI  of  the  Interpolation  Module.  DOPHI  simply  arithmeti cal ly 
averages  the  sample  CS/CSS  moduli  over  Red  weapon  (target)  categories  in 
array  FAX()  and  stores  the  means  in  array  PHI ( ) .  The  function  is  performed 
for  each  division  (lines  10-18  loop),  each  Blue  weapon  type  (lines  11-17 
loop),  and  each  target  category  (lines  13-15  loop). 


SUBROUTINE  DOPHI 
COMMON/ FORCES/QTY (60, 3) 

COMf*ON/POLLBT/RSCORE(5,60,2)  ,UCIP(5,60,2)  ,XSC0RE(5,6C,Z)  , 
1XCIP(5,60,2) 

COMMON/ NEWVAL/XUC IP (5 ,60) , XNMOD (5 ,60, 3)  , 

1  P  H  I  (60,1)  ,VCIPC5,60) 

COMMON/FAX3/FAX(12,fcG,3),EwT(16) 

Z  =  1  .0/12.0 
CALL  ZERO  CPHI , 1 20) 


1C 

DO  300  I  F 0 R  =  1  ,3 

1 1 

DO  200  10=1,60 

1  z 

P  =  C.C 

1  3 

DO  IOC  I C  =1 ,12 

1  u 

P  =  P+  FAX  (IC , 13 , I  FOR) 

1  5 

100 

CONTINUE 

1  6 

PHI  (IE,  IF0R)=P*Z 

1  7 

200 

CONT  INUF 

1  £ 

300 

CONTI NUE 

1  9 

RETURN 

2  0 

END 

Figure  1-12.  Source  Listing  of  the  Subprogram  DOPHI  of  the 
AFP  Interpolation  Module 


1-21.  SUBPROGRAM  ENVWTS.  Figure  1-13  presents  the  source  listing  of  sub¬ 
program  ENVWTS  of  the  Interpolation  Module.  ENVWTS  reads  a  complete  set  of 
16  combat  environment  weights  (line  3). 


1 


H 

5 

6 


SUBROUTINE  F  N  V  '*  T  S 
C  0  V  M  o  N  /  F  A  X  3  /  r  A  X  (  Z  1 
K  E  A  D  (  5  ,  1  )  (FwT(i), 
FORMAT ( ) 

RETURN 
N  D 


cO) 
1  =  1 


c *T  (  1  4  ) 
1  *■  ) 


Figure  1-13. 


Source  Listing  of  Subprogram  ENVWTS  of  the 
AFP  Interpolation  Module 
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1-22.  FUNCTION  SUBPROGRAMS  FS,  FT,  FU,  AND  FV.  Figures  1-14,  1-15,  1-16, 
and  1-17  present  the  source  listings  of  subprograms  FS,  FT,  FU,  and  FV  of 
the  Interpolation  Module.  These  functions  return  CS/CSS  factors  corre¬ 
sponding  to  Red  measure.  Red  countermeasure,  Blue  measure,  and  Blue 
countermeasure,  respectively.  The  first  argument,  JZ,  is  simply  the  index 
of  the  CS/CSS  function  of  current  interest.  The  functions  are  generaliza¬ 
tions  of  those  employed  in  the  CS/CSS  Module.  The  generalizations  add  the 
formal  arguments  IFOR  and  IE  within  the  function  calls.  The  argument  IFOR 
is  necessary  because  the  Interpolation  Module  must  discriminate  among  base¬ 
line,  target,  and  intermediate  divisions.  The  argument  IE  is  necessary 
because  the  Interpolation  Module  must  match  each  combat  environment  with  an 
environmentally  correct  set  of  CS/CSS  factors  by  means  of  the  pointer 
references  in  lines  3.  The  reference  arrays  U(),  V(),  S(),  and  T()  are 
three-dimensional  in  the  Interpolation  Module  but  only  one-dimensional  in 
the  CS/CSS  Module. 


FUNCTION  FS  ( J Z , I  FOR , I E I 

C0MMON/FACT0R/U(9,16,3)1V(9,16,''),S(9,16,3),TC9f16,3),INDX(1o,3) 

IcX-INDX \Ic*lFORj 
FS  =  S  (  JZ ,  IEX , I  FOR ) 

RETURN 

END 


Figure  I —14 .  Source  Listing  of  Subprogram  FS  of  the 
AFP  Interpolation  Module 


FUNCTION  FT  (  J  Z  ,  I  FOR  ,  I  E) 
COMMGN/FACTOR/U(9,16,3),V(9,16,T),S(9 
I  EX  =INDX ( IE , I  FOR ) 

ft=t(jz,:ex,ifor) 

RETURN 

END 


.  16,3) , TC9, 16, 3) , INDX( 16 


,3) 


Figure  1-15.  Source  Listing  of  Subprogram  FT  of  the 
AFP  Interpolation  Module 


FUN  C  TION  FU ( J  Z , 1  FOR  ,  I E  3 

COWPON/FACTOR/U(9,1fc,3),V(9,16,T),S(9,16,3),T(9,16,3),INDX<16,3) 
I  EX  =  INDX ( JE , I  FOR ) 

FU=U ( JZ , I  EX , I  FOR ) 

RETURN 

END 


Figure  1-16.  Source  Listing  of  Subprogram  FU  of  the 
AFP  Interpolation  Module 
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1  FUNCTION  FV ( J Z , I  FOR , I E I 

3  C0^CN/FACT0R/UC5,16,3I  ,V(9,16,3),S(9,16,3),TC9,16,3),IN0X(16,3) 

t  FV  =  V  (  JZ  ,  I  EX  I  FOR  ) 

5  RETURN 

b  END 


Figure  1-17.  Source  Listing  of  Subprogram  FV  of  the 
AFP  Interpolation  Module 


1-23.  SUBPROGRAM  GETCAT.  Figure  1-18  presents  the  source  listing  of  sub¬ 
program  GETCAT  of  the  Interpolation  Module.  The  subroutine  is  taken  from 
the  CS/CSS  Module.  GETCAT  reads  and  stores  an  array  of  indices  indicating 
the  weapon  categories  to  which  weapon  types  belong. 


1 

z 

7 

A 


5 

100 

6 

7 

lie 

£ 

1 1  5 

Q 

1  c 

1 1 

1  20 

1  2 

1  3 

SUBROUTINE  G£TCAT(LCATfNfFNAM6fINFILE) 
CHARACTER  RDERR*80, FNAME*1Q 
DIMENSION  LCAT(N) 

READ<INFILEr10CfERR=11C)  (LCAT(I)fI=1fN) 
FORMAT C  3  X , 1013) 

GO  TO  1 2  G 

READ ( C  *  1 1 5  )  RDERR 

FORMAT (ASC) 

PRINTS,  "ERR  IN  READING  "  ,  F NAME,  "  F  E  C  0  R  D  = 

STOP 

PRINT*,  "AT  END  -  ",  F  N  A  M  E 

RETURN 

END 


RDERR 


Figure  1-18.  Source  Listing  of  Subprogram  GETCAT  of  the 
AFP  Interpolation  Module 


a.  Argument  LCAT  is  the  address  of  the  array  in  which  category  indices 
are  to  be  stored. 

b.  Argument  N  is  the  length  of  array  LCAT. 

c.  Argument  FNAME  is  the  name  of  the  source  file. 

d.  Argument  INFILE  is  the  number  of  the  unit  on  which  the  source  file 
is  located. 
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1-24.  SUBPROGRAM  GETDAT.  Figure  1-19  presents  the  source  listing  of  sub¬ 
program  GETDAT  of  the  Interpolation  Module.  The  subroutine  is  taken  from 
the  CS/CSS  Module.  GETDAT  reads  and  stores  four  kinds  of  data  needed  in 
the  CS/CSS  moduli  generation  process.  GETDAT  is  described  in  Appendix  E. 


i 


u 

5 

A 

7 

3 

9 

10 
1  1 
1  2 
1  3 
1  4 
1  5 
1  6 
17 

1  5 

1  9 
20 
21 
22 

23 

24 

2  S 
26 
27 
2  * 

29 

30 

31 

32 

33 
3^ 

35 

36 

37 

3  6 
39 

4  0 
4  1 
4  2 
43 


C 

c 


c 

c 


c 


c 


c 


SUBROUTINE  GETDAT  (M,N,NFUNS  ,NENV,UFUN,VFUN, 
*SFUN,TFUN,EUFUN,EVFUN,ESFUN,ETFUN,3W,RW,A) 

CHARACTFR  RDtRR*8C,FNAME*10 


CHARACTERS  B  W(M),  RW(N),  U  F  U  N  (  N  F  UN  S  ,  *  )  ,  V  FUN  (  N  FUNS  ,  .1 )  * 
*SFUN<NFUNSfN£NV)t  TFUN(NFUNS,NENV) ,  EUFUN(NFUNS,NENV), 
*EVFUN(NFUNS,N'rNV)t  ESFUN(NFUN$,N£NV),  ETFUN(NFUN$,NENV) 


DIMENSION  A  (  N  F  U  N  S  ,  N  E  N  V  ] 


FNAME='ADAT1  FILE' 

READ  C 1  1  ,1QQ,E°R=310)  OU(I),I  =  1,M) 
READ  C  T 1  ,1C0,cRR=31Q)  (  R W ( I )  ,  I =1  ,  N  ) 

100  FORMAT ( 5 X , 1 OAl ) 

PRINT*,  "AT  END  -  ",  F  N  A  N  E 


FNAME=' ADAT?  FILE' 

DO  150  1=1.* 

READ  (12,20Q,ERR=31Q)  (UFUN  (K  ,  I  )  f  VFUN  (  K  f  I  )  , $  FUN( K  ,  I  )  , 
*TFUN(K,I)  ,  K  =  1  , N  FUNS ) 

150  CONTINUE 

2QQ  FORMAT ( 5  X  ,  9  (  4  A  1  ,1X)  ) 

PRINT*,  'AT  END  -  FNAME 

fname='adatt  FILE' 

DO  2  50  L  =  1  ,  N  E  N  V 

READ  <13,200,ERR=31Q)  <EUFUN(K,L),EVFUN(K,L),E5FUN(K,L)t 
*  ET  FUN  (K , L )  ,  K  =  1 , N  FUNS ) 

250  CONTINUE 

PRINT*,  'AT  END  -  ',  F  N  A  M  E 

FNAME='ADAT4  file' 

READ(14,300,bRR=31Q)  <(A(K,L),K=1,NFUNS),L=1,NENV) 

300  FOR* AT  (5 X  ,  9F0 .4 ) 

GO  TO  32G 

310  READ(0,315)  RDERR 
315  FORMAT (ABC) 

PRINT*,  "ERR  IN  READING  ',  F  N  A  M  E  ,  "  PEC0RD=  ",  RDERR 

STOP 

320  PRINT*,  'AT  END  -  ',  FNAME 
RETURN 
END 


Figure  1-19.  Source  Listing  of  Subroutine  GETDAT  of  the 
AFP  Interpolation  Module 


1-25.  SUBPROGRAM  GETFAC.  Figure  1-20  presents  the  source  listing  of  sub¬ 
program  GETFAC  of  the  Interpolation  Module.  The  subroutine  is  generalized 
from  the  CS/CSS  Module.  The  original  GETFAC  is  described  in  Appendix  E. 

It  is  used  differently  in  the  Interpolation  Module.  The  two-dimensional 
arrays  U(),  V(),  S(),  and  T()  "seen11  by  GETFAC  within  the  Interpolation 
Module  are  only  subarrays  within  larger,  three-dimensional  arrays.  The 
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added  dimensions  corresponds  to  the  16  combat  environments  and  to  the 
baseline,  target,  and  intermediate  divisions.  GETFAC  is  called  separately 
for  each  of  these  divisions.  On  each  call  the  arguments  U,  V,  S,  and  T  are 
given  different  addresses  corresponding  to  the  different  divisions. 


SUBROUTINE. GETFAC (U,V,S,T,NFUNS, INOX) 

DIMENSION  U(NFUNS?16),V(NFUNS,16),S(NFUNS,16), 

1  T(NFUNS,16) , INDX(lfc) 

C 

R  E  A  D  (  5 , 2  )  < INOX  < I) , I®1 , 16) 

2  FORMAT!) 

9Q  READ (29 , 1  CO ,END  =  1 20 , ERR  =  1 1 0)  ( I c  ,  U (  I  , I E )  ,  V ( I  ,  I  6 )  ,  S ( I ,  I  E )  , 

1  T  (  I  ,  IE  )  ,  1  =  1 , NFUNS ) 

100  FORMAT(?X,  I2,4F«.A) 

GO  TO  90 

110  READ(0,11C)  RDERR 
115  FORMAT (AfcC) 

PRINT*,  'ERR  IN  READING  A  D  A  T  5  FILE',  '  R  E  C  0  R  D  =  ',  RDERR 
STOP 

120  PRINT*,  'AT  END  -  ADAT5  FILE' 

RETURN 

END 


Figure  1-20.  Source  Listing  of  Subroutine  GETFAC  of  the 
AFP  Interpolation  Module 


SUBPROGRAM  GETINV.  Figure  1-21  presents  the  source  listing  of  sub¬ 
program  GETINV  of  the  Interpolation  Module.  GETINV  reads  and  stores  the 
inventories  of  the  baseline,  target,  and  intermediate  divisions  from  files 
in  the  format  accepted  by  the  Combat  Module.  The  three  files  are  attached 
to  unit  29  in  succession  dynamically  within  GETINV. 

a.  Lines  8  and  25  define  the  limits  of  the  loop  over  baseline,  target, 
and  intermediate  divisions. 


b.  Line  9  reads  the  name  of  the  file  corresponding  to  the  division  of 
interest. 


c.  Line  11  concatenates  the  file  name  within  a  string  @USE  statement. 

d.  Line  12  calls  system  routine  FACSF  to  execute  the  OUSE  statement. 

e.  Lines  14  through  16  read  the  first  13  records  simply  to  bypass  them 
because  they  do  not  contain  inventory  information. 

f.  Lines  19-23  read  60  records  containing  the  inventory  quantities  for 
the  Blue  weapon  types.  The  desired  quantity  is  the  first  entry  of  a 
record. 
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u 

5 

t 

7 
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10 
1  1 
1  2 
1  3 

1  4 

1  5 
1  c 
1  7 
16 
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1 


3  a 
3; 
3c 


S  U  E  S  C  U  T  I  \  E  G  £  T  I  \  V 
C  0  v  *!  c  N  /  FQRCES/3TY  (  c  C-  *  3  )  ,  I  F  0  <? 

CHARACTER*5C  instr 
CHARACTER+30  F  N  A  *  E 

C  LOGICAL  SOURCE  OF  INVENTORY  FILES 
I  S  0  R  =2  9 

C  LOOP  OVER  PASE,  TARGET  ,  AND  INTERVCDIATE  INVFNTORIcS 
DO  1 C 0 C  I  FOP-1  ,3 
S  E  A  D  (  S  ,  1  )  F  N  A  *  E 
1  F0RMAT(430) 

INSTR='3USE  a<R,'//FNAV£ 

CALL  FACSF(INSTR) 

J  F0R  =  I FOR 
DO  ICQ  1=1,13 
READ ( ISCR  ,2) 

ICO  CONTINUE 

2  F  0  R  M  A  T  <  1  X  ) 

C 

DO  9  C  0  I c  =1  ,60 
I B  X  *  I  = 

READ ( ISOR ,3,cND=2CGC, ERR=3Q0C) 3  t  Y (IB,  IFOR) 

3  FORM  AT ( ) 

C0NTINUr 

C  L  0  S£ (ISOR) 

1000  CONTINUF 
RETURN 
C 

200u  «RITc(6,4)  I »  X  ,  FNAYiE 

A  F  0 R  M  AT (  '  PREMATURE  END  AT  W  P  \  IN  F  !  l  E  '  ,  A  7  C  ) 

STOP  '  INV  CND ' 

C 

7  C  0  u  wFITt  (6,5)  I  3  X  ,  F  N  A  ,N  E 

5  FORMAT  (  prp  AT  ■*  p  n  ',12,'  IN  F  I  L  c  '  ,  A  3  0 ) 

STOP  'INV  FRF' 

C 

END 


Figure  1-21.  Source  Listing  of  Subprogram  GETINV  of  the 
AFP  Interpolation  Module 


1-27.  SUBPROGRAM  GETROL.  Figure  1-22  presents  the  source  listing  of  sub¬ 
program  GETROL  of  the  Interpolation  Module.  GETROL  reads  and  stores  the 
combat  potentials  of  the  baseline  and  target  divisions.  Combat  potentials 
are  stored  in  array  WVAL(5,60,2,4) ,  which  is  the  superarray  of  arrays 
RSC0RE(5,60,2),  UCIP(5,60,2) ,  XSC0RE(5,60,2) ,  and  XCIP(5,60,2) .  The  latter 
store  unmodulated  scores,  unmodulated  CIPs,  modulated  scores,  and  modulated 
CIPs,  respectively.  The  CIPs  are  later  replaced  by  more  precise  values  by 
subprogram  RECIP. 
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c 

c 


c 

c 

c 

c 

c 


6 


SUBROUTINE  GETROL 

RETRIEVE  BASE  AND  TARGET  FORCE  ENVIRONMENTAL  ROLLUPS 
.  E  .  C  .  6  0  C  T  8  3 

DIMENSION  X(5),ISCNTR(6,2),ISCNTT(12),JRECS(12) 
EQUIVALENCE  (  I  S C N T R  ,  I S C N T T ) 

COMMCN/AwRK/IURK,IDUM, KTHTR, JTPD,JVIS,JPOS,JDAY 
COMMON/GLOBAL  / IBFOR,  I  RF0R,J CASE 
COMMCN/NA*E/ FNA«E 


common/ rollbt /  wval  (  5  |6G  ,2  (O 
CHARACTER*5C  instr 
CHARACTER*20  fn ame  , oname , done 
chapacter*3  kthtr 

DATA  ISCNTR/ 

1  110,130,150,170,111,151, 

2  120,140,1  60,1  80,1  2  1  ,  1  61  / 

DATA  JRECS/ 


1 

2 


4 


1  ,2, 3, 4,1  ,2, 
1 ,2, 3, 4,1  ,2/ 


READ  OUTPUT  RECORD  IDENTIFIERS 

READ(5,4)  KTHTR, JTPD,JVIS,JP0S,JDAY,IBF0R,IRF0R,JCASE 
F0RMAT(A3, 14, 313,216,  15) 


I  PR  NT=6 

LOGICAL  SOURCE  OF  ROLLUP  FILES 

I S  0  R  =  2  9 

DONE='DONE' 

CALL  ZER0( WVAL, 2400) 

1  FORMAT  () 

ISI DE=C 


GOTO  95 

90  CLOSE  (ISOR) 

95  CALL  GETFIL(FNA*E) 

I F ( FNAME  .  EQ  .  DONE )  RETURN 
ISIDE=I$IDE+1 


6  4 

65 

66 


ON AME=FNA«E 
wR I TE ( 6 , 3 )  FnAME 
3  FORMAT(1X,A2Q) 

INSTR='3USE  29, '//ONAME//'.' 

CALL  FACSF(INSTR) 

C 

100  call  GETR EC (I SCNT, IWPN , X , I sor ) 

DO  2  CO  1=1,12 

IF (ISCNT  .NE.ISCNTT (I) )  GOTO  200 
1  S  =  I 

GOTO  300 
200  CONTINUE 

WRITE (  I  D  R  N  T  ,2)  ISCNT 

2  FORMAT  (  /  '  UNRECOGNIZABLE  RECORD  TMPE=',I5/) 
IERR 1 =1 ERRl *1 
IFCIERRI.LT. 10)  GOTO  100 
STOP  'IERR1' 

C 

300  IREC=JRECS (IS ) 

I  F (  I  S  .  GT  .  4)  GOTO  90 
C 
C 

C  HERE  IF  WEAPON  RECORD  READ 

DO  450  1=1,5 

WVAL(I,IWPN,ISIDE,IREC)=X(I) 

450  CONTINUE 
GOTO  IOC 
C 
C 


Figure  1-22.  Source  Listing  of  Subprogram  GETROL  of  the 
AFP  Interpolation  Module 
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a.  Lines  4-12  declare  the  necessary  arrays  and  variables. 

b.  Lines  13-15  initialize  I SCNTR ( )  with  the  indices  of  the  record  types 
contained  in  the  files  read  by  GETROL.  Lines  16-18  initialize  JRECS()  with 
the  indices  of  the  types  of  combat  potentials  corresponding  to  the  record 
types  read  by  GETROL. 

c.  Lines  20-21  input  identifiers  to  be  included  in  final  combat 
potential  output  records. 


d. 

Lines  23 

e. 

Line  28 

f. 

Line  34 

g- 

Line  35 

h. 

Line  41 

i . 

unit 

Line  42 
29. 

j- 

Line  44 

k. 

Lines  45 

1. 

Line  56 

h.  Line  41  concatenates  the  file  name  within  string  OUSE  instruction. 


fied  record  type. 


m.  Line  57  checks  whether  the  record  just  recorded  is  beyond  the  first 
four  types.  If  so,  all  information  of  interest  has  already  been  read  from 
the  file;  so  go  back  to  line  33  to  close  the  file. 

n.  Lines  61-63  store  the  five  components  of  combat  potential  from  the 
record  just  read  in  the  appropriate  five-vector  within  array  WVAL(). 

o.  Line  64  transfers  control  back  to  line  44  to  read  another  record. 

1-28.  SUBPROGRAM  GETREC.  Figure  1-23  presents  the  source  listing  of  sub¬ 
program  GETREC  of  the  Interpolation  Module.  GETREC  reads  a  record  from  a 
file  containing  final  combat  potentials.  GETREC  returns  the  index  of  the 
record  type  via  argument  ISCNT,  the  index  of  the  weapon  type  via  argument 
IWPN,  and  the  five  components  of  combat  potential  via  the  five-vector  X(). 
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67 

63 

69 

70 

71 

72 

73 

7  4 

75 

76 

77 
73 

79 

80 

8  1 


1 


SUBROUTINE  GB7REC<I$CNT,IWPN,X,IS0R) 

DIMENSION  X(5) 

COMMON /NAME/FNA*E 
CHARACTER  FNA ME *20, KTHTR X*3 

READ(IS0Rf1,END=1Gu)  ISCNT,KTHTRX,JTPDX,JVISX,JPOSX,JDAYX 
lWPN9X(1)f)f(2)tX(3)«X(4)vX(5)«T5F0RXvIRF‘0RXvJCASEX 

I  R  =  I  R  +  1 


RETURN 

1  F0RMAT(I5,A3,I4,3I3,I5,5F10.3,2I6,I5) 


100  WRITE(6,2)  IR ,  FNA, ME 
STOP  "IERR2" 

2  FORMAT  ('  LAST  RECORD  READ  =  I  6 , 2  X , A  20 ) 
END 


C 


f 


Figure  1-23.  Source  Listing  of  Subprogram  GETREC  of  the 
AFP  Interpolation  Module 


1-29.  SUBPROGRAM  GETFIL.  Figure  1-24  presents  the  source  listing  of  sub¬ 
program  GETFIL  of  the  Interpolation  Module.  GETFIL  reads  a  file  name  from 
the  runstream  and  returns  the  name  via  the  argument  FNAME. 


<?  L  SUFSCUTINE  G  E  T  F  I  L  C  F  \  A  v  c  ) 

?  -  C  H  A  3  A  C  T  c  R  *  2  0  F  \  A  v  E 

-  ?  R  E  A  D  (  5  ,  1  >'  f  N  «  M  r 

d -  RETURN 

-  £  1  F  0  e  *  A  T  (  P  t  0  ) 

i  7  t  V  D 


Figure  1-24.  Source  Listing  of  Subprogram  GETFIL  of  the 
AFP  Interpolation  Module 


1-30.  SUBPROGRAM  GTCATV.  Figure  1-25  presents  the  source  listing  of  sub¬ 
program  GTCATV  of  the  Interpolation  Module.  GTCATV  reads  and  stores  Y/N 
values  specifying  the  CS/CSS  functions  by  Blue  and  Red  weapon  categories 
that  may  be  included  or  excluded  during  generation  of  CS/CSS  moduli.  The 
subroutine  is  taken  from  the  CS/CSS  Module. 
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1 

2  C 

3 

l 

5  C 

c 

7  C 

8  C 

9 


1C 

1 1  - 

12 

1  3 

5  G 

1  4 

60 

1  5 

ICC 

1  6 

1  7 

110 

IS 

115 

19 

20 

21 

1  20 

22 

23 

SUBROUTINE  GTCATV(UCAT,VCAT,SCAT,TCAT,NFUNS,NC) 

CHARACTER*1  UCAT(NFUNS,NC,NC),VCAT(NFL'NS,NC,NC), 
*SCAT(NFUNS,NC,NC),TCAT(NFUNS,NC,NC) 

CHARACTER*80  RDERR 


DO  60  K  =  1  ,12 
DO  50  1=1  ,9 

READ (16,1C0,£RR=110)  (UCAT(I,J,K),VCAT(I,J,K), 
*SCAT<I,J,K) ,TCAT(I,J,K) , J=1 ,12) 

CONTINUE 

CONTINUE 

FORM  AT (4  X  ,  1 2 ( 1 X  ,  4  A  1  )  ) 

GO  TO  120 
READ(0,115)RDFRR 
FORMAT (  A  S  G  ) 

PRINT*,  'ERR  IN  READING  ACATS  FILE',  '  R  E  C  0  R  D  =  ', 
STOP 

PRINT*,  'AT  END  -  ACATS  FILE' 

RETURN 

END 


RDERR 


Figure  1-25.  Source  Listing  of  Subprogram  GTCATV  of  the 
AFP  Interpolation  Module 


1-31.  SUBPROGRAM  NETMOD.  Figure  1-26  presents  the  source  listing  of  sub¬ 
program  NETMOD  of  the  Interpolation  Module.  NETMOD  computes  the  ratios  of 
modulated  to  unmodulated  scores  for  baseline  and  intermediate  divisions  and 
stores  the  results  in  array  XNM0D().  The  ratios  are  the  "net  CS/CSS 
moduli"  derived  from  the  final  combat  potentials. 


1 

SUBROUTINE  NET-OD 

2 

COMMON/ FORCES /3TY (3, 60) 

7 

COMMON/ROLLPT/RSCORE (5,60,2 

4 

1 

XCIP(5,60,2) 

5 

C0MM0N/NEUVA|_/XUCIP(5,60),X' 

6 

DC  300  I  FOR  =  1  ,  2 

7 

DO  2C0  16=1,60 

5 

DO  ICG  iv  =  1  ,5 

9 

R  =  R  S  CORE  (  I  V  ,  I  B  ,  I  FOR  ) 

1  C 

IF(R.LE.O.O)  G  0  T  0  ICO 

1  1 

XNMOD(IV,IB,IFOR)=XSCORE(IV 

1  2 

100 

CONTINUE 

1  3 

2  C  0 

CONTINUE 

1  4 

3  00 

CONTINUE 

1  5 

RETURN 

1  t 

END 

Figure  1-26.  Source  Listing  of  Subprogram  NETMOD  of  the 
AFP  Interpolation  Module 
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1-32.  SUBPROGRAM  NEWCIP.  Figure  1-27  presents  the  source  listing  of  sub¬ 
program  NEWCIP  of  the  Interpolation  Module.  NEWCIP  computes  unmodulated 
CIPs  for  the  intermediate  division  and  stores  the  results  in  array  XUCIP ( ) . 
The  CIPs  are  derived  from  the  corresponding  CIPs  of  the  baseline  and  target 
divisions  and  their  inventories.  If  VARY=. FALSE. ,  a  weapon  has  the  same 
unmodulated  combat  potential  in  any  intermediate  division  for  given  base 
and  target  divisions.  VARY+FALSE.  corresponds  to  original  "standard"  AFP 
practice.  If  VARY=.TRUE.,  a  weapon's  unmodulated  combat  potential  may  vary 
with  the  phase  parameter,  TX,  if  its  potentials  differ  between  base  and 
target  divisions. 


4 

5 

6 
7 
c 
9 

1  G 
1  1 
1  2 
1  3 

1  4 

1  5 
16 
1  7 
1  6 

1  9 

2  C 
21 
22 

23 

24 

25 

26 
27 
26 
29 

3  C 

31 

32 

33 

34 

35 


SUBROUTINE  NEWCIP(TX,VAPY) 

CCMf»CN/F0PC?S/QTYC6C,3) 

CCMMCN/POLL8T/RSCORE<5,60,2),UCIP(5,6C,2),XSCORE(5,60,2), 
1  XC I P  C  5 ,60 ,2  ) 

CCMMON/NEWVAL/XUCIP(5,6C)  ,XNM0D(5,60,3)  , 

1  PH  I  (60,3)  ,  VC  I P ( 5 ,60) 

LOGICAL  VARY 
IF(VARY)  GOTO  300 
DO  200  16  =  1  ,60 
QH=QTY(IEj,1) 

Q  J  =  Q  T  Y (18,2) 

Q=QH+Q J 

IF(Q.LE.C.O)  GOTO  20  0 
G  Q  =  1  .0/3 
DO  ICO  IV-1.5 

XUCIP(IV,I9)=(QH*UCIP(IV,I8,1)+0J+UCIP(IV,I8,2))*QQ 
100  CONTINUE 
2C0  CONTINUE 
RETURN 

300  TX1 =1  ,0-TX 

DC  5CC  18=1 ,60 
GHsQTY  <  IB  v  1  ) 

QJ=QTY(Ib,2) 

G=Q  H  +  G J 

IF(Q.LE.C.Q)  GOTO  SCO 
Q  Q  B  =  T  X 1 *GH 
QQT=TX*QJ 
QG  =  1  ,0/  (QQ9  +  QQT) 

DO  400  I V  =  1  ,5 

XUCIP(IVfIB)*(QQB*UCIP<IVfIS*1)* 

1  GQT*UC IP (  IV  ,  IB  ,2)) *QG 
4  0  G  CONTINUE 
500  CONTINUE 
RETURN 
END 


Figure  1-27.  Source  Listing  of  Subprogram  NEWCIP  of  the 
AFP  Interpolation  Module 


1-33.  SUBPROGRAM  NXMOD.  Figure  1-28  presents  the  source  listing  of  sub¬ 
program  NXMOD  of  the  Interpolation  Module.  NXMOD  computes  and  stores  "net 
CS/CSS  moduli"  for  the  intermediate  division.  The  net  moduli  for  the  in¬ 
termediate  division  are  computed  from  the  net  moduli  of  the  baseline  and 
target  divisions  and  from  the  synthetic  moduli  of  all  three  divisions. 
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1 

2 

3 

4 


7 

M 

9 

10 
1  1 
1  2 
1  3 
14 
1  5 
16 
1  7 
18 
1  9 
20 
21 
22 

23 

24 

25 

26 

27 

28 
29 
3  C 

31 

32 

33 


C 


C 

C 

c 


SUBROUTINE  OCT) 

COM*ON/EQRCES /QT  Y  tsD  ,  3  > 

COnnOiu/NE!HVJ>L/kUClP(  5  r&C3  tmr*QG<  5  ,6G,  3)  f  PM1  UOT31  ,VC1»CS  ,60) 


DO  1COC  I*=1 ,fiC 
4l»qTT (in . 11 
ttZ  =  QTY  C !■  .21 

im  c oi .  efi*c*:s  -and™,  :a?PEu¥o#on  goto  idoo 
P1=PH]  Cl W  ,11 
P 2-PHI  <  I**  21 

!M  C  t  "P  ,  ET<B*3) » AHD* (QZ.GTjD.O)  3  THEN 
SO  VCD  !V-1t5 

XN  1*0  EM  IV,  IN *3 -1-=P3*  C  (  1  -j>T1  -XN^OG  t TV*  lb t  n  /  PI 
1  T  -*N*OD  f  TTi  ,  1  W  .21  /P2i 
100  CONTINUE 
ELSE 

3  F  Ul .ST* 0*0 J  THEN 
00  20f  IV  =  1  *  5 

*n.*QD  U  V  .  I  -  i  31  =P3*ANJ1CD  f  I  V  .  lu  .  tl  /Pi 
SOU  CONTINUE 
ELSE 

DO  3 CC  IV  =  1  ,5 

XNWODCIV, I* ,3)=P3*XNM0D(IVf  IWt2)/P2 
300  CONTINUE 
END  I  F 
END  I  F 


* 


1000  CONTINUE 
RETURN 
END 


Figure  1-28.  Source  Listing  of  Subprogram  NXMOD  of  the 
AFP  Interpolation  Module 


a.  Lines  5  and  29  define  the  bounds  of  a  loop  over  the  Blue  weapon 
types. 


b.  Lines  6  and  7  set  the  quantities  of  weapon  type  EW  in  the  baseline 
and  target  divisions  into  scratch  variables  Q1  and  Q2,  respectively. 

c.  Line  8  checks  whether  the  weapon  type  IW  is  present  in  either  base¬ 
line  or  target  division.  If  not,  the  type  is  skipped. 

d.  Lines  9-11  set  scratch  variables  PI,  P2,  and  P3  to  the  synthetic 
moduli  of  the  weapon  type  IW  in  the  baseline,  target,  and  intermediate 
divisions,  respectively. 

e.  Computation  of  the  net  modulus  depends  on  whether  the  weapon  type  of 
interest  is  present  in  both  baseline  and  target  divisions  or  in  just  one  of 
them. 


1-59 


CAA-D-84-14 


(1)  Line  12  checks  for  the  weapon  being  in  both  divisions.  If  so, 
then  the  formula  in  lines  14  and  15  is  applied  to  all  five  components  of 
combat  potential  within  the  loop  bounded  by  lines  13  and  16. 

(2)  If  the  weapon  type  is  present  only  in  the  baseline  division,  the 
formula  in  line  20  is  applied  for  all  five  components  of  combat  potential 
within  the  loop  bounded  by  lines  19  and  21. 

(3)  If  the  weapon  type  is  present  only  in  the  target  division,  the 
formula  in  line  24  is  applied  for  all  five  components  of  combat  potential 
within  the  loop  bounded  by  lines  23  and  25. 

1-34.  SUBPROGRAM  OUTREX.  Figure  1-29  presents  the  source  listing  of 
subprogram  OUTREX  of  the  Interpolation  Module.  OUTREX  is  called  by 
subprogram  OUTX  to  output  a  single  record  (for  one  type  of  combat 
potential)  of  the  file  of  final  combat  potentials  of  the  intermediate 
division. 


1 

2 

7 

<4 


1  C 
1  1 
1  2 
1  2 


SUBROUTINE  OUTRf>(IRtC,IWP\fX) 

DIMENSION  X ( 5 ) 

COivv'ON/fiwRK/IWORKfIDUM,KTHTP,JTc,DtJVIS,JPOStJrsAV 
CGIV,V'G\/CL03AL/IEF0R,IRFCR,JC£SE 
CHAFACTEk*2  <  T  H  T  R 
C 

*R I TE  <2?, 1  )  1REC,KTHTR,JTPD,JVIS,JP0S,JDAV, 

1  IwP\fX(1  )  ,  <  (2)  *  X  (  3  )  *X  (4)  ,X(53  ,  IBF0R,Iofcp,JCASe 
RETURN 

£ 

1  FORMAT(l5»A2,I4,3l3,l5,*Fl3.3t2!6,l5) 


Figure  1-29.  Source  Listing  of  Subprogram  OUTREX  of  the 
AFP  Interpolation  Module 


a.  Argument  IREC  is  the  index  of  the  record  type  to  be  output. 

b.  Argument  IWPN  is  the  index  of  the  weapon  type. 

c.  Argument  X  is  the  address  of  the  five-vector  containing  the 
components  to  be  output. 

1-35.  SUBPROGRAM  OUTX.  Figure  1-30  presents  the  source  listing  of 
subprogram  OUTX  of  the  Interpolation  Module.  OUTX  serves  several  purposes. 
OUTX  outputs  the  final  combat  potentials  of  the  intermediate  division. 

When  OUTX  is  called  from  the  main  program,  the  unmodulated  and  modulated 
CIPs  have  already  been  determined.  OUTX  multiplies  the  CIPs  by  the 
inventory  quantities  in  order  to  compute  the  corresponding  unmodulated  and 

modulated  scores.  OUTX  also  accumulates  the  scores  in  order  to  determine 

the  unmodulated  and  modulated  COPs. 
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1 

2 

7 

4 

c 

j 

6 

7 


9 

1  0 
1  1 
1  2 
1  3 
1  4 

1  5 
1  6 
1  7 
IS 

1  9 

2  Q 
2  1 
22 

23 

24 

25 

26 
27 
2  8 

29 

30 

3  1 

32 

33 

34 

35 

36 

37 
3c 
39 

4  C 

41 

42 

43 

44 

45 

46 

47 
43 

49 

50 


C 

C 

c 

c 

c 


c 

c 


c 

c 


c 

c 

c 

c 

c 


SUBROUTINE  OUTX 

C0WM0N/NEWVAL/XUCIP<5 ,60 , XNMOD  <5, 60,3)  ,PHI  (6C, 3)  ,  VCIP  (5 ,60  ) 
COMMON/ FORCES /QTY (6G»  3) 

COMMGN/NODIV/ 9NDW (60) 

LOGICAL  BN  D  W 

DIMENSION  BCOPS  (5 ,2)  , X (5 ) 

BLUE  PEC  TYPES/11C, 130,150,170,111,151/ 

CALL  ZERO  (BCOPS , 1C) 

DC  1  GOO  I W  = 1 , 6  0 
Q  =  GTY  <IW  ,3) 

IF(Q.LE.C.G)  GOTO  1CC0 
DO  ICO  I V  =  1 ,5 

IF(XUCIP(IV, IW) .GT.C.O)  GOTO  200 
100  CONTINUE 
GOTO  1000 

UNMODULATED  SCORE 
20G  DO  300  I  V  =1  , 5 

X  < I  V) SQ*XUC IP  < I  V  ,  IW) 

IF(9N0W(IW))  GOTO  3 C 0 

BCOPS  ( I  V  ,  1  )sBC0PS(IV,1)+X(IV) 

300  CONTINUE 

CALL  0UTREX(110tIWfX) 

UNMODULATED  CIP 

CALL  OUTREX(130,IW,XUCIP<1,Iwn 
MODULATED  SCORE 
DO  4C0  I  V  =  1  ,5 
X  < I  V) =Q*VC IP ( IV ,  IW) 

I F (9NDW (IW) )  GOTO  4C0 
„  3COPS(IV,2)=BCOPS<IV,2)+X(IV) 

400  CONTINUE 

call  0UTRGX(15G,IWfX) 

MODULATED  CIP 

CALL  0UTREXC17Q, IW  ,  VC IP( 1 , I W) ) 

1000  CONTINUE 

UNMODULATED  8C0P 


CALL  OUTREX ( 1 1 1  , 0 ,3C0PS ( 1  T 1  )  ) 

C  MODULATED  3C0P 

C 


CALL  OUTREX(151,0,3COPS(1V2)) 
RETURN 


Figure  1-30.  Source  Listing  of  Subprogram  OUTX  of  the 
AFP  Interpolation  Module 
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a.  Line  10  calls  subprogram  ZERO  to  initialize  array  BC0PS()  to  0.0. 

b.  Lines  12  and  40  define  the  bounds  of  a  loop  over  Blue  weapon  types. 

c.  Line  14  sets  scratch  variable  Q  to  the  quantity  of  weapon  type  IW  in 
the  intermediate  division. 


d.  If  there  are  no  weapons  of  type  IW  in  the  intermediate  division, 
line  15  transfers  control  to  the  end  of  the  weapon  type  loop,  thereby  skip¬ 
ping  the  current  weapon  type. 

e.  Lines  16-18  check  whether  the  current  weapon  type  possesses  at  least 
one  nonzero  component  of  its  unmodulated  CIP.  If  not,  line  16  transfers 
control  to  skip  the  current  weapon  type. 

f.  Lines  22-26  put  the  unmodulated  score  in  scratch  vector  X()  and,  if 
the  weapon  is  divisional,  add  the  score  to  the  unmodulated  COP. 


g.  Line  27  calls  OUTREX  to  output  the  unmodulated  score  for  weapon  type 
IW. 

h.  Line  29  calls  OUTREX  to  output  the  unmodulated  CIP  for  weapon  type 
IW. 

i.  Lines  31-35  put  the  modulated  score  in  scratch  vector  X()  and,  if 
the  weapon  is  divisional,  add  the  score  to  the  modulated  COP. 


j.  Line  36  calls  OUTREX  to  output  the  modulated  score  for  weapon  type 
IW. 


k. 

l. 


m. 


Line  38  calls  OUTREX  to  output  the  modulated  CIP  for  weapon  type  IW. 

Line  44  calls  OUTREX  to  output  the  unmodulated  COP. 

Line  48  calls  OUTREX  to  output  the  modulated  COP. 


1-36.  SUBPROGRAM  RECIP.  Figure  1-31  presents  the  source  listing  of 
subprogram  RECIP  of  the  Interpolation  Module.  RECIP  computes  and  stores 
values  of  unmodulated  and  modulated  CIPs  for  the  baseline  and  target 
divisions.  RECIP  provides  more  precise  values  of  CIPs  than  are  available 
directly  from  the  files  of  final  combat  potentials.  RECIP  simply  divides 
the  scores  read  from  the  combat  potential  files  by  the  corresponding  weapon 
quantities. 
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1 

2  c 

3 

4 

5  C 
t 

7 

S 

9 


10  ■ 

1 1 

1  2 

1  3 

8  C  0 

1  4 

9  OG 

1  5 

1000 

1  6 

C 

1  7 

1  8 

c 

1  9 

SUBROUTINE  RECIP 

DIVIDE  SCORES  E  Y  QUANTITIES  FOR 
COMMON/ROLL3T/wVAL(5,6Q,2,4) 
COMMON/ FORCES /QTY(6C,  32 


CLEANER  ORIGINAL  CIPS. 


DO  1COO  IF0R=1,2 
DO  9C0  IW  =  1  ,60 
Q  =  QTY  (  IW  ,  I  FOR ) 

IF(Q.LE.0.02  GOTO  9CC 
DC  SCO  I  V  A  L  =  1  ,5 

«iVAL(IVAL,IW,IFCR,2)=WVAL(IVAL,I«,IF0R,1)/a 

WVAL(IVAL,IW, IFOR, 4)=WVAL(IVAL,IW, IFOR, 3)/Q 

CONTINUE 

CONTINUE 

CONTINUE 


RETURN 


END 


Figure  1-31.  Source  Listing  of  Subprogram  RECIP  of  the 
AFP  Interpolation  Module 


1-37.  SUBPROGRAM  USENAM.  Figure  1-32  presents  the  source  listing  of 
subprogram  USENAM  of  the  Interpolation  Module.  USENAM  reads  a  file  name 
from  the  runstream,  builds  an  @USE  instruction  containing  the  name,  and 
then  calls  system  routine  FACSF  to  attach  the  file  to  unit  29. 


1 

L 

3 

4 

j 

A 

7 

9 


SURROUT  T\r  USFNIAY 
CHARACTER  *33  r  N  A  ^  c 
CHARACTER  *5  0  T  \  S  T  P 
R  E  A  D  (  E  ,  1  )  F  N  A  M  c 
FORMAT(A20) 

I  N  S  T  R  =  '  3  U  S  E  ?9,'//FnA?«’E 
CALL  FACSF(INSTR) 

RETURN 

END 


Figure  1-32.  Source  Listing  of  Subprogram  USENAM  to  the 
AFP  Interpolation  Module 


1-38.  SUBPROGRAM  XMCIP.  Figure  1-33  presents  the  source  listing  of 
subprogram  XMCIP  of  the  Interpolation  Module.  XMCIP  performs  the  last  step 
in  computation  of  modulated  CIPs  of  the  intermediate  division.  Modulated 
CIPs  are  stored  in  array  VCIP().  The  subprogram  simply  multiplies  the 
previously  determined  net  CS/ CSS  moduli  and  unmodulated  CIPs  to  yield 
modulated  CIPs.  XMCIP  is  structured  as  a  doubly-nested  loop.  The  outer 
loop  runs  over  the  Blue  weapon  types.  The  inner  loop  runs  over  the  five 
components--personnel ,  light  armored  vehicles,  heavy  armored  vehicles, 
aircraft,  and  scalar. 
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1 


SUBROUTINE  X  *1  C  I  p 

C0yMGN/NEV.VAL/XUCIP(5,fc0)  ,  X  N  y  0  D  (  5  ,  6  0 , 7  )  ,  P  H  I  ( t  °  ,  7  ) 
V  C  I  P  (  5  ,  t  C  ) 


c 

c 


DC  ICC  I  «  =  1  ,  t C 
DC  R  C  I  V  =  1  ,  5 

VCIP(IV,IW)=aN'N0D(IV,I*,2)*XUCId(IV,IU) 


I  c 

I I 

1  c 


5  C  CONTINUE 


ICC  CONTINUE 
RETURN 
END 


Figure  1-33.  Source  Listing  of  Subprogram  XMCIP  of  the 
AFP  Interpolation  Module 


1-39.  SUBPROGRAM  ZERO.  Figure  1-34  presents  the  source  listing  of 
subprogram  ZERO  of  the  Interpolation  Module.  ZERO  initializes  a  real  array 
to  0.0.  Argument  X  is  the  address  of  the  array  to  be  zeroed,  and  argument 
N  is  the  length  of  the  array. 


SUBROUTINE  7E°CCX 
DIMENSION  X ( N ) 

do  icr  1=1, *) 

vj  /  -r  A  _  r  ~ 


C 


RETURN 
EN  C 


c. 


Figure  1-34.  Source  Listing  of  Subprogram  ZERO  of  the 
AFP  Interpolation  Module 


1-40.  SUBPROGRAM  DMPMOD.  Figure  1-35  presents  the  source  listing  of 
subprogram  DMPMOD  of  the  Interpolation  Module.  DMPMOD  lists  the  contents 
of  the  array  XNM0D()  for  postrun  inspection.  In  theory,  the  derived  net 
moduli  of  the  intermediate  division  should  lie  "between"  the  net  moduli  of 
the  baseline  and  target  divisions. 
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4 

5 
t 
7 

3 

9 

10 
1  1 
1  2 
1  3 
1  4 


SUBROUTINE  DMPMOD 
C  G.E.  COOPER  --  3/6/84 

COMMON/NEWVAL/XUCIP(5t60),XNMOD(5,60,3),PHI<60,3),VCIPC5,60> 

DO  1  COO  I W  =  1 ,60 
DO  9C0  I D  =  1  ,3 

WRITE (6,1 1  ID,IW,PHI<IW,ID),(XN*OD(K,IW,ID),K=1,5) 

900  CONTINUE 
WRITE(6,2) 

1000  CONTINUE 
RETURN 

1  FORMAT  <  D I V- " *  I  1  » "  WPN  =  ',I2,'  PHI  =  ',F6.3,'  NMO D , 5 F8 . 3  ) 

2  FORMAT!"  ') 

END 


Figure  1-35.  Source  Listing  of  Subprogram  DMPMOD  of  the 
AFP  Interpolation  Module 


1-41.  SUBPROGRAM  NONDIV.  Figure  1-36  presents  the  source  listing  of 
subprogram  NONDIV  of  the  Interpolation  Module.  NONDIV  reads  a  list  of  Blue 
nondivisional  asset  indices  and  sets  elements  of  the  local  vector  BNDW() 
accordingly.  Values  stored  in  BNDW()  assure  that  only  divisional  assets 
are  included  in  the  computation  of  unmodulated  and  modulated  COPs. 


7 


1  0 
1  1 
1  l 

1  i 

1  4 

1  5 
1  6 
1  7 
1  ; 
1  9 


SUBROUTINE  NONDIV 
C  5.4.  COOPER  --  4/11/ c 4 

DIMENSION  N B  N  D X ( c 0 ) 
CC.’*‘MQN/NODIV/?UDw  ftC) 

LOGICAL  3 \ 0 W 
C 

0  0  ICC  I  =  1  , 6  u 
3  N  D  W (  I  )  =  .  FALSE  • 

1  Go  CONTINUE 

r 

9  E  A  D  (  5  ,  1  )  N  F  N  0  I  V  ,  (  hi  P  N  D  >'  (  I  )  ,  I  =  1 
1  FORMAT  (  1 
C 

DO  2  0  0  I  =  1  , N 3  N  D  I  V 
6  N  D  4  (  \  S  N  D  V  (  I  )  )  =  .  T  P  u  E  . 

20 J  CONTINUE 
C 

RETURN 

END 


V) 


Figure  1-36.  Source  Listing  of  Subprogram  NONDIV  of  the 
AFP  Interpolation  Module 
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1-42.  MAP  ELEMENT  MAPDOFAX.  Figure  1-37  presents  a  listing  of  the  MAP 
element  for  collection  of  the  program  elements  of  the  Interpolation  Module. 


1 

d* 

hP  .3GD0FAX.INT 

2 

I  N 

7GD0F AX . D  0  c  A  y 

I  N 

3  j  D  0  F  A  X .CSCSS 

4 

I  U 

3GD0F  AX  .  DOf^h  I 

S 

1  \< 

TODOFAa.FNVWTS 

A 

I  N 

7GD0F  A  X . F  S 

7 

I  N 

3  0  D  0  F  A  X  .  F  T 

c 

I  N 

30D0FAX.FU 

9 

I  M 

3JD0FAX. rv 

1  C 
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Figure  1-37.  Listing  of  the  MAP  Element  for  Collection  of  the 
Program  Elements  of  the  AFP  Interpolation  Module 
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APPENDIX  J 

KEY  TO  AFP  OUTPUT  REPORTS 


J-l.  OVERVIEW.  The  AFP  System  consists  of  many  processes:  computer  pro¬ 
grams,  runstream  generators,  runstreams,  and  input,  intermediate,  and  out¬ 
put  data.  Among  all  processes  and  programs,  AFP  draws  somewhat  arbitrary 
distinctions  between  major  and  minor  modules.  This  short  appendix  provides 
a  key  to  many  available  input,  intermediate,  and  results  data  reports. 
Figure  J-l  provides  the  standard  view  of  the  AFP  System  as  displayed  in 
many  other  appendices  of  this  document.  In  some  cases,  a  "report"  may  not 
be  more  than  a  straightforward  listing  for  record. 

J-2.  REPORT  KEY.  Table  J-l  lists  AFP  report-like  output  and  the  locations 
of  the  principal  corresponding  descriptive  material  within  this  documenta¬ 
tion.  Many  descriptions  include  material  on  the  included  data.  Any  one 
preprocessor  may  consist  of  more  than  one  computer  program. 


J-l 


CAA-D-84-14 


11  0SSG , ABEI K  G .  MAINSSG/SKELREP , G . MAINSSG/SGS (F ) 
0START  H .GO (F ) E ( ENV) N (REP1 ) 


PREPARE  RANGE 
DISTRIBUTIONS 

2 

PREPARE 

PARTICIPATION 

FACTORS 

3 

PREPARE 
CASUALTY  FACS 

4 

PREPARE  SSPKS 

5 

PREP.  WEAPON 

ON  WEAPON 
PREFERENCES 

6 

PREPARE  ARTY 
DATA 

7 

PREPARE 

INVENTORIES  &  < 
RELATED  DATA  . 

8 

PREP.  SENSOR s|i 

12  @XQT  C.870PREFGEN 
eXQT  C. 870RNGDSTGEN 
0XQT  C.PKSGEN 
§XQT  C.PROJGEN 
@XQT  C . 870MAIN 


COMBAT 

MODULE 


13 


:FALLOC 

ALLOC 

TTLOS 

1 

( 

19 

RAW  CBT 
RESULTS 

§XQT 

C . 87  OGENKV 
§XQT 

C • 870PRTKV 


0XQT 

C. 870GENAL 
eXQT 

C. 870PRTKV 


14 


H . (F) E (ENV) 


CS/CSS 

MODULI 


@ADD 

0ADD 

PXQT 


15 


H . (F) E {ENV) « 
D.ADAT5 


10 


CS/CSS 

FACTORS 


PRECSCSS2 


16  @ADD 
@ADD 
§XQT 
PADD, 

17 


QA 

REPORT 


KV 

REPORT 


21 


ALLOC 

REPORT 


G.GENMRGSSG/SKEL 
G.GOMERGEALL/ (F)R (R ) 
G . 870CXPS 
,GG  .  CVALS  t  FR  ACTS 


CBT/CS/I 

CSS 

MERGE  I 


G.GEHMODSSG/SKEL 
G.GOMOD/(F)  | 

G .  899CSCSS/MAIN 


CS/CSS 

MODULE 


il 


Tf 


D: 

ENV16 


D:  ENV 
2 


D 

ENV  1 


G . BBCAT ,RRCAT , 
ACATS  ,  ADATl-4 


26  @ADD  G . INTER PSSG/SKEL 
PADD  G. INTERPOL/ (F) 

OR  PSTART  H . GO { F ) 

27  PXQT  GD. INTER PO 


TACTICAL 

MINE/ 

MOVE¬ 

BRIDGING 

COUNTER¬ 

MENT 

MINE 

MAIN¬ 

C2EW 

MEDICAL 

TENANCE 

PROTECT 

POSI¬ 

TIONS 


SUPPLY 

& 

TR  AN  S  PR  T 


INTER PO- 
LATION 


D: 

DIV  X 


XP3COUNTER .COUNT3  | 

|  SEARCH  PREPROCESSOR 


22  PADD  G . LONGROLLSSG/SKELOPTSX 
PADD  G.GOROL(F) (R) Z 


23 


PXQT  GR . AFPSTATSTR AT/TEST 


ROLLUP 
&  STATS 
MODULE 


D. 

DIV  A 


D: 

DIV  B 


25  PADD  R  /COMPXQT ( I J) 
gXQT  G. COMPARE 

1 _ JL 


DIVISION 

COMPARE 

REPORTER 


Figure  J-l.  The  Relation  Among  Principal  Data,  Modules,  Other 
Components,  and  Products  of  the  Analysis  of 
Force  Potential  (AFP)  System 
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Block  # 
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Location  of  descriptions 
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in  Fig  J-l 

process 
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Table  J-l.  Key  to  AFP  Output  Record  Copy  and 
Report  Examples  and  Descriptions 
(Page  2  of  2  pages) 


Record  copy  or 
report 

Block  # 
in  Fig  J-l 

Related 

process 

Location  of  descriptions 
and/or  examples 
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APPENDIX  K 

KEY  TO  AFP  RUNSTREAM  GENERATORS 


K-l.  OVERVIEW.  The  AFP  System  consists  of  many  processes:  computer 
programs,  runstream  generators,  runstreams,  and  input,  intermediate,  and 
output  data.  Among  all  processes  and  programs,  AFP  draws  somewhat 
arbitrary  distinctions  between  major  and  minor  modules.  This  short 
appendix  provides  a  key  to  the  AFP  Systems  runstream  generators.  Figure 
K-l  provides  the  standard  view  of  the  AFP  System  as  displayed  in  many  otner 
appendices  of  this  document.  Lines  in  Figure  K-l  with  names  containing  the 
string  "SSG"  refer  to  report  generators  written  in  the  UNIVAC  Symstream 
language. 

K-2.  RUNSTREAM  GENERATOR  KEY.  Table  K-l  lists  AFP  runstream  generators 
and  the  locations  of  the  principal  corresponding  descriptive  material 
within  this  documentation.  Most  descriptions  include  not  only  material  on 
the  generators  but  also  examples  of  generated  runstreams.  As  noted  in  many 
of  the  descriptions,  the  generators  must  be  regarded  as  generic  in  the 
sense  use  of  the  generators  may  require  modification  of  more  than  the  SGSs. 
For  example,  many  of  the  generators  contain  embedded  user  IDs.  In  the 
past,  it  has  been  the  practice  to  change  such  IDs  globally  via  the  UNIVAC 
system  editor  rather  than  to  define  and  redefine  SGSs. 
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Figure  K-l.  The  Relation  Among  Principal  Data,  Modules, 
Other  Components,  and  Products  of  the 
Analysis  of  Force  (AFP)  System 
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Table  K-l.  Key  to  AFP  Runstream  Generator 
Descriptions  and  Examples 


Runstream 

Block  # 
in  Fig  K-l 

Related 

process 

Location  of  descriptions 
and/or  examples 

Prepare  combat 
module  input  (many) 

1-8 

Combat 

preproc 

Annexes  I-VI  to  Appendix  D 

Prepare  CS/CSS  input 

9 

CS/CSS 

preproc 

Annex  I  to  Appendix  E 

GENMRGSSG/SKEL 

16 

CS/CSS 

Annex  II  to  Appendix  E 

MAINSSG/SKELREP 

MAINSSG/SGS 

11 

Combat 

Module 

Appendix  D,  Paragraph 

D-4 

GENMRGSSG/SKEL 

16 

CBT/CS/ 

CSS  Merge 
Module 

Appendix  F,  Paragraph 

F-4 

LONGROLLSSG/SKELOPTSX 

data 

22 

Rollup 
&  Stats 
Module 

Appendix  G,  Section  IV 

Example  only 

25 

Division 

Compare 

Reporter 

Appendix  H,  Paragraph 

H-4 

INTERPSSG/SKEL 

26 

Interpo- 
1  at  ion 
Module 

Appendix  I,  Section  IV 

K-3 


CAA-D-84-14 


APPENDIX  L 
DISTRIBUTION 


Addressee 


No  of 
copies 


Deputy  Chief  of  Staff  for 

Operations  and  Plans  1 

Headquarters,  Department  of  the  Army 
ATTN:  DAMO-ZD 
Washington,  DC  20310 


Deputy  Chief  of  Staff  for 

Operations  and  Plans  1 

Headquarters,  Department  of  the  Army 
ATTN:  DAMO-ODR 
Washington,  DC  20310 


Director  of  Net  Assessment  1 

OSD-NA 

Room  3A930 

The  Pentagon 

Washington,  DC  20310 


Office  of  Director  of  Program  Analysis  1 

and  Evaluation 
OSD 

Room  3E836 
The  Pentagon 
Washington,  DC  20310 


Deputy  Under  Secretary  of  the  Army 

(Operations  Research)  1 

ATTN:  Mr.  Lester 
Washington,  DC  20310 


Chief  of  Staff,  Army  1 

ATTN:  DACS-DMO 
Washington,  DC  20310 


L-l 


CAA-D-84-14 


Addressee 


No  of 
copies 


Director  2 

US  Army  TRADOC  Systems 
Analysis  Activity 

White  Sands  Missile  Range,  NM  88002 


Director  2 

US  Army  Materiel  Systems  Analysis 
Activity 

Aberdeen  Proving  Ground,  MD  21005 


Director  2 

US  Army  Ballistic  Research  Laboratories 
Building  305 

Aberdeen  Proving  Ground,  MD  21005 


Commander  1 

US  Army  Combat  Developments  Experimentation 
Command 

Fort  Ord,  California  93941 


Director  2 

TRADOC  Operations  Research  Activity 
White  Sands  Missile  Range,  NM  88002 


Commander  2 

Combined  Arms  Combat  Development 
Activity 

Fort  Leavenworth,  KS  66027 


Commander  1 

US  Army  Operational  Test  and 
Evaluation  Agency 
5600  Columbia  Pike 
ATTN:  TRADOC  LNO 
Falls  Church,  VA  22041 


Commander  1 

Foreign  Science  and  Technology  Center 
227th  Street  NE 
Charlottesville,  VA  22901 


L-2 


CAA-D-84-14 


Addressee  No  of 

copies 

Director  1 

Defense  Nuclear  Agency 

ATTN:  LASS 

6801  Telegraph  Road 

Alexandria,  VA  20305 


Commander  1 

Army  Research  Institute 
5001  Eisenhower  Avenue 
Alexandria,  VA  22333 


Commander  1 

US  Army  Logistics  Evaluation  Agency 
New  Cumberland  Army  Depot 
New  Cumberland,  PA  17070 


Director  1 

Defense  Logistics  Studies  Information 
Exchange 

US  Army  Logistics  Management  Center 
Fort  Lee,  VA  23801 


Defense  Technical  Information  Center  2 

ATTN:  DTIC-DDA 
Cameron  Station 
Alexandria,  VA  22314 


US  Army  Nuclear  and  Chemical  Agency  1 

7500  Backlick  Road,  Bldg  #2073 
ATTN:  Library 
Springfield,  VA  22150 


The  Pentagon  Library  (Army  Studies  Section)  2 

ATTN:  ANRAL-RS 
The  Pentagon 
Washington,  DC  20310 


L-3 


CAA-D-84-14 


Addressee 


No  of 
copies 


Organization  of  the  Joint  Chiefs  1 

of  Staff 

ATTN:  Dr.  William  G.  Lese,  Jr. 

Room  1D940 
The  Pentagon 
Washington,  DC  20310 


Commandant  2 

US  Army  War  College 
Carlisle  Barracks,  PA  17013 


Commandant  1 

US  Army  War  College 
ATTN:  Director,  Strategic 
Studies  Institute 
Carlisle  Barracks,  PA  17013 


Commandant  1 

US  Air  War  College 

Maxwell  Air  Force  Base,  AL  36112 


Commandant  1 

US  Navy  War  College 
Newport,  RI  02840 


Commandant  1 

Industrial  College  of  the  Armed  Forces 
Fort  McNair 
Washington,  DC  20319 


President  1 

National  Defense  University 
Fort  McNair 
Washington,  DC  20319 


Commandant  1 

National  War  College 

Fort  McNair  Washington,  DC  20319 


L-4 


CAA-D-84-14 


Addressee  No  of 

copies 

Commandant  1 

Armed  Forces  Staff  College 
Norfolk,  VA  23511 

Commandant  1 

US  Army  Command  and  General  Staff  College 
Fort  Leavenworth,  KS  66027 

Commandant  1 

US  Army  Command  and  General  Staff  College 
ATTN:  Department  of  Combat  Development, 

Force  Development 
Fort  Leavenworth,  KS  66027 

Commandant  1 

United  States  Military  Academy 
ATTN:  Mathematics  Department 
West  Point,  NY  10996 

Commandant  1 

United  States  Military  Academy 
ATTN:  Engineering  Department 
West  Point,  NY  10996 

Superintendent  1 

Naval  Postgraduate  School 
Monterey,  CA  93943 

Defense  Systems  Management  School  1 

Concepts,  Studies,  and  Simulations 

Building  202 

Fort  Belvoir,  VA  22060 

Commander/Director  \ 

US  Army  Engineer  Studies  Center 
Casey  Building,  No.  2594 
Fort  Belvoir,  VA  22060 


L-5 


CAA-D-84-14 


Addressee 


No  of 
copies 


Commander-in-Chief  1 

US  Army,  Europe  &  Seventh  Army 
ATTN:  AEAGX-OR  (Mr.  Dwarkin) 

APO  New  York  09403 


Commander  1 

US  Army  Training  and  Doctrine  Command 

ATTN:  ATCD-AU 

Fort  Monroe,  VA  23651 


Assistant  Chief  of  Staff  for  Studies 

and  Analyses  1 

US  Air  Force 
Room  1E388,  Pentagon 
Washington,  DC  20330 


Headquarters,  US  Air  Force  1 

Office  of  Worldwide  Management 
of  Studies  &  Analyses 
ATTN:  AF/SAL 
The  Pentagon 
Washington,  DC  20330 


AFTEC/OAN  1 

ATTN:  Modelling  Branch 

Kirtland  Air  Force  Base,  NM  87117 


Commander  1 

Tactical  Air  Command 

TAC  Analysis  Group 

Langley  Air  Force  Base,  VA  23665 


Joint  Studies  Group  (TAC)  1 

ATTN:  OSS 

Langley  Air  Force  Base,  VA  23665 


L-6 


CAA-D-84-14 


Addressee  No  of 

copies 

Center  for  Wargaming  1 

Naval  War  College 

ATTN:  Naval  Warfare  Gaming  System 
Code  33 

Newport,  RI  02840 


President  1 

Center  for  Naval  Analyses 
2000  North  Beauregard  Street 
Alexandria,  VA  22311 


Naval  Research  Laboratory  1 

ATTN:  Code  5704  (R.  M.  Anderson) 

4555  Overlook  Avenue 
Washington,  DC  20375 


Commander  1 

Naval  Air  Systems  Command 

ATTN:  Systems  Analysis  Division  (AIR-503) 

Washington,  DC  20361 


Marine  Corps  Operations  Analysis  Group  1 

Center  for  Naval  Analyses 

2000  North  Beauregard  Street 

P.  0.  Box  11280 

Alexandria,  VA  22311 


Internal  Distribution 


CAA  Technical  Library 


2 


L-7 


CAA-D-84-14 


GLOSSARY 


Allocation.  The  term  has  two  uses  within  AFP: 

a.  The  AFP  process  of  determining  how  many  of  each  weapon  type  are  to 
engage  how  many  of  each  opposing  weapon  type.  The  process  depends  on  input 
engagement  preferences  of  weapon  types  for  the  opponent's  weapon  types  and 
on  the  starting  and  surviving  quantities  of  weapons.  Allocation  occurs  at 
the  beginning  of  each  AFP  day. 

b.  The  AFP  process  of  determining  how  many  conflicts  occur  at  each 
range  and  in  each  environment.  (Current  AFP  practice  is  to  limit  each  run 
of  the  AFP  Combat  Module  to  a  single  combat  environment.  Hence,  allocation 
to  environment  is  trivial.)  This  allocation  process  follows  the  one 
described  above.  In-between  weapons  are  assigned  to  generalized  duels  at 
very  close  to  the  average  odds  generated  by  the  first  allocation  process. 
The  duels  are  distributed  to  ranges  and  environments.  All  the  duels  at  the 
same  range  in  a  single  environment  comprise  a  conflict. 

Assignments.  For  each  combination  of  opposing  types,  the  AFP  Combat  Module 
maintains  a  cumulative  count  of  the  numbers  of  times  weapons  are  involved 
in  the  specific  type-on-type  conflicts.  A  weapon  is  counted  as  many  times 
as  it  is  assigned  to  conflicts.  For  example,  a  weapon  that  survives  two 
conflicts  and  is  killed  in  its  third  conflict  involving  the  same  type 
opponent  is  counted  three  times  and  contributes  "3"  to  the  tally  of 
assignments  in  that  type-on-type  matchup.  The  tallies  of  assignments  are 
usually  reported  only  if  Combat  Module  diagnostics  are  "turned  on." 

BAPD  (Blue  Attack  Against  Prepared  Defense).  One  of  the  standard  AFP 
combat  postures.  The  Red  to  Blue  division  ratio  in  BAPD  is  1:3. 

CIP.  See  Combat  Item  Potential. 

Class.  Within  AFP,  if  the  word  class  appears  alone,  it  usually  refers  to  a 
weapon  class.  A  weapon  class  is  generic,  e.g.,  the  tank  class,  the  rotary 
wing  aircraft  class.  Weapons  of  a  specific  model  belong  to  the  same  weapon 
type  (see  type). 

Combat  Item  Potential  (CIP).  In  strict  terms,  CIP  refers  only  to  those  AFP 
measures  of  individual  item  combat  potential  that  include  results  over  all 
16  combat  environments  with  CS/CSS  modulation.  A  CIP  consists  of  five 
components:  personnel,  light  armor,  heavy  armor,  aircraft,  and  scalar. 

The  scalar  is  a  target-value-weighted  sum  of  other  components.  The  first 
four  components  may  be  produced  with  or  without  weighting  by  target  values. 
If  target  value  weighting  is  applied  to  the  "personnel"  component,  that 
component  then  includes  some  weighted  weapons,  usually  small  arms,  as  well. 
The  AFP  system  generates  intermediate  results  in  the  same  format  as 
strictly  defined  CIPs.  These  intermediate  values  are  usually  referred  to 
as  "partial  CIPs."  The  strictly  defined  CIPs,  in  these  terms,  are  "final 
CIPs."  A  CIP  is  an  estimate  of  a  weapon's  potential  achievement  during  the 
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first  half  of  its  lifetime.  The  estimate  of  achievement  is  strictly, 
relative  to  the  context  of  the  analysis,  i.e.,  relative  to  the  quantities 
and  qualities  of  friendly  and  opposing  weapons  in  the  specified  combat 
environments  at  specified  environmental  weights. 

Combat  Item  Score.  For  a  type  item,  the  product  of  that  item's  CIP,  and 
the  starting  number  of  that  item  in  a  division. 

Combat  Organization  Potential  (COP).  The  sum  of  all  the  combat  item  scores 
of  a  division.  In  accord  with  the  convention  described  for  Combat  Item 
Potentials  (CIPs),  COP  refers  to  division  potential  weighted  across  all  16 
combat  environments  and  with  CS/CSS  modulation.  Similarly,  the  distinction 
between  partial  and  final  COPs  is  made. 

Combined  Preference  and  Participation  Factor.  For  indirect  fire  weapons,  a 
single  factor  which  is  the  product  of  the  preference  and  participation 
factors  separately  input  and  defined  for  direct  fire  weapons.  (See 
Preference  Factor  and  Participation  Factor.) 

Conflict.  A  collection  of  pure  type-on-type  direct  fire  duels  at  a 
specific  range  and  environment.  Only  one  weapon  type  from  each  side 
participates  in  the  duels  of  a  conflict.  In  current  AFP  practice,  an  AFP 
conflict  lasts  2.01  minutes.  There  are  four  successive  conflicts  in  an  AFP 
day.  The  survivors  of  one  conflict  may  participate  in  the  succeeding 
conflict  on  the  same  day.  Weapons  cannot  enter  another  kind  of  conflict  on 
an  AFP  day.  That  is,  once  assigned  to  an  opposing  type  weapon,  range,  and 
environment,  a  weapon  (as  long  as  it  survives)  spends  the  day  so  engaged  in 
all  conflicts.  The  logical  structure  of  the  AFP  Combat  Module  is  such  that 
it  loops  over  all  the  duels  in  a  conflict  for  the  same  shot  cycle  (see  Shot 
Cycle)  before  proceeding  to  the  next  shot  cycle  for  all  those  same  duels. 

Conflict  Duration.  Current  AFP  practice  is  for  all  conflicts  (and,  hence, 
duels)  to  last  2.01  minutes.  The  0.01  minute  is  to  avoid  possible 
ambiguity  with  weapons  with  refire  times  that  might  fall  exactly  on  the  2- 
minute  mark.  Direct  fire  may  cease  in  less  than  2.01  minutes  if  a  weapon's 
targets  are  depleted.  However,  the  "duel"  continues  in  order  that 
survivors  of  the  direct  fire  exchanges  remain  liable  to  attrition  from 
continuing  indirect  fire. 

COP.  See  Combat  Organization  Potential. 

Counterbattery  Fire.  The  AFP  Combat  Module  makes  a  distinction  between  two 
roles  of  indirect  fire  weapons.  Indirect  fire  against  ordinary  direct  fire 
weapons  is  treated  as  an  add-on  to  the  otherwise  pure  direct  fire  type-on- 
type  engagements,  conflicts,  and  duels.  In  those  cases,  the  indirect  fire 
weapons  may  inflict  damage,  but  they  do  not  receive  fire  from  the  direct 
fire  weapons  or  from  other  indirect  fire  weapons.  Indirect  fire  weapons 
can  only  suffer  attrition  when  they,  too,  are  treated  as  direct  fire 
weapons.  Counterbattery  fire,  just  in  AFP  terms,  is  represented  as  direct 
fire  engagements,  conflicts,  and  duels  between  indirect  fire  weapons.  The 
main  difference  here  is  that  the  indirect  fire  weapons  are  not  subject  to 
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direct  fire  detection  logic.  Counterbattery  fire  logic  is  complicated 
inasmuch  as  the  other  indirect  fire  weapons  assigned  to  fire  at  direct  fire 
weapons  may  also  fire  at  those  counterbattery  weapons  treated  as  direct 
fire  weapons. 

CS/CSS  Modulation.  The  process  performed  by  the  CBT/CS/CSS  Merge  Module  by 
which  the  CS/CSS  moduli  generated  by  the  CS/CSS  Module  is  applied  to  or 
merged  with  results  of  the  Combat  Module.  The  results  of  type-on-type 
engagements  represented  by  the  Combat  Module  are  multiplied,  after  the 
fact,  by  moduli  corresponding  to  the  specific  type-on-type  matchups. 

CS/CSS  Moduli.  Multipliers  produced  by  the  AFP  CS/CSS  Module  for 
application  to  results  of  the  AFP  Combat  Module.  The  moduli  reflect 
weapon-type-on-weapon-type  adjustment  factors  reflecting  independent 
analyses  of  opposing  divisions'  combat  support  and  combat  service  support 
functions.  In  current  AFP  practice  involving  up  to  60  friendly  and  up  to 
60  opposing  weapon  types,  the  CS/CSS  Module  generates  7,200  moduli,  many  of 
which  possess  identical  values. 

Day.  In  AFP  terms,  an  abstraction  consisting  of  a  given  number  of 
successive  conflicts.  In  current  AFP  practice,  a  day  consists  of  four 
conflicts,  and  a  Combat  Module  run  consists  of  2  days.  The  allocations  of 
initial  or  surviving  weapons  occur  at  the  beginning  of  AFP  days. 

Deep  Range.  In  current  AFP  practice,  the  farthest  of  the  six  ranges 
represented  in  direct  fire  engagements  within  the  AFP  Combat  Module  are 
reserved  for  targets  of  indirect  fire.  Equipment  in  the  deep  range  may 
include  that  belonging  to  headquarters  and  command  posts,  moving  forward, 
or  remaining  in  reserve. 

Detection.  The  process  by  which  a  potential  direct  fire  shooter  determines 
a  target.  The  detection  routines  in  the  AFP  Combat  Module  were  adapted 
from  the  CARMONETTE  versions  and  apply  logic  developed  at  the  Night  Vision 
Laboratory  and  Combined  Arms  Center.  A  weapon  not  credited  with  detecting 
a  target  by  the  referenced  detection  routines  may  return  fire  after  a 
specified  number  of  shots  have  been  fired  by  its  opponent(s).  Indirect 
fire  weapons  are  assumed  to  have  been  assigned  targets  prior  to  the  first 
conflicts  represented  within  the  AFP  Combat  Module. 

Detection  Time.  The  term,  as  used  within  AFP,  is  partly  a  misnomer.  The 
Combat  Module's  detection  routines  return  a  "detection  time,"  which  may  be 
very  large  to  indicate  nondetection.  A  first  shot  is  fired  by  a  direct 
fire  weapon  when  its  so-called  detection  time  has  elapsed.  Hence, 
detection  time  is  time  to  first  shot  in  the  special  world  of  AFP. 
Furthermore,  AFP  does  not  represent  the  flight  time  of  projectiles.  Hence, 
detection  time  is  also  the  time  to  first  round  impact  to  first  impact  from 
the  beginning  of  the  detection  sequence. 

Direct  Fire.  Most  direct  fire  represented  within  the  AFP  Combat  Module 
conforms  to  the  usual  notion  of  fire  along  line  of  sight.  However,  AFP 
applies  its  direct  fire  logic  (less  detection)  to  indirect,  counterbattery 
fire. 


Glossary-3 


CAA-D-84-14 


Duel.  The  smallest  weapon-on-weapon  interaction  represented  within  the  AFP 
Combat  Module  is  a  duel.  However,  AFP  generalizes  the  dictionary  one-on- 
one  definition  of  a  duel  to  include  one-on-N,  where  N  can  be  one  or  more. 

In  all  AFP  duels,  at  least  one  side  possesses  just  one  weapon  in  a  duel. 

The  sides  in  a  duel  are  separated  by  a  fixed  range.  A  weapon  within  a  duel 
may  only  fire  upon  its  opponent  in  that  same  duel. 

Engagement.  In  the  hierarchy  of  combat  interaction,  AFP  uses  the  term 
engagement  to  mean  the  interactions  between  direct  fire  weapons  of  a  single 
type  on  each  side.  One  result  of  the  AFP  allocation  process  of  the  first 
kind  is  to  decompose  the  inventories  of  both  sides  into  engagements.  For 
example,  one  engagement  may  consist  of  m  of  M  total  DRAGONs  versus  n  of  N 
total  T-62  tanks.  The  AFP  allocation  process  of  the  second  kind 
distributes  the  m-on-n  engagement  into  duels,  distributes  the  duels  by 
range  and  environment  (only  one  environment  in  current  AFP  practice),  and 
then  groups  all  duels  at  the  same  range  and  environment  into  a  conflict. 
(See  also  Duel  and  Conflict.)  In  principle,  opposing  inventories  of  60 
different  weapon  types  on  each  side  may  be  composed  into  60  x  60  =  3,600 
engagements  which  may  be  distributed  into  many  thousand  of  duels  and  then 
regrouped  into  smaller  numbers  of  conflicts. 

Environment  (often  prefixed  as  combat  environment).  The  condition  under 
which  a  conflict  within  the  AFP  Combat  Module  is  assumed  to  occur.  In 
current  AFP  practice,  all  conflicts  within  a  single  Combat  Module  run  occur 
under  the  same  combat  environment.  In  principle,  the  Combat  Module  permits 
multiple  environments  within  a  single  run;  however,  other  AFP  modules 
cannot  correctly  process  the  results  of  multienvironment  Combat  Module 
runs.  Combat  environment  combines  three  features: 

a.  Posture  (currently  four:  Red  Attack  against  Prepared  Defense 
(RAPD),  STATIC,  Red  Attack  against  DElaying  defense  (RADE),  and  Blue  Attack 
against  Prepared  Defense  (BAPD). 

b.  Visibility  (currently  two:  clear  and  degraded). 

c.  Brightness  (currently  two:  day  and  night). 

Combinations  of  these  features  yields  4  x  2  x  2  =  16  distinct  combat 
environments.  All  16  environments  are  included  in  standard  AFP 
application. 

Environmental  Site.  The  logic  of  the  AFP  Combat  Module  permits  combat  to 
be  represented  for  different  combat  environments  at  different  sites. 

Indeed,  the  representation  of  different  environments  within  a  single  Combat 
Module  run  requires  different  sites.  Although  input  to  the  Combat  Module 
permit  designation  of  multiple  sites,  current  AFP  practice  is  to  represent 
only  one  environment  and  only  one  site  per  run.  Exercise  of  the  multisite, 
multienvironment  option  in  the  Combat  Module  is  discouraged  because  other 
AFP  System  modules  do  not  include  the  same  option. 

External  Loss.  If  nonzero  external  loss  factors  are  input  to  the  AFP 
Combat  Module,  the  corresponding  fractions  of  otherwise  available  weapons 
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will  be  debited  at  the  beginning  of  each  AFP  day.  "External"  loss  factors 
provide  a  way  to  degrade  weapon  availabilities  as  a  result  of  causes 
"external"  to  the  AFP  Combat  Module. 

Fractional  Lifetime.  AFP  indices  of  combat  potential  are  estimates  of  the 
potential  achievements  of  weapons  or  organizations  at  some  specified 
fractional  loss  of  many  types  of  weapons.  In  current  AFP  practice,  that 
fraction  is  set  to  one-half.  Hence,  for  those  weapons  subject  to 
fractional  lifetime  criterion,  AFP  potentials  are  "half-life"  potentials. 

Half-life  Potential.  See  Fractional  Lifetime. 

Indirect  Fire.  Indirect  fire  within  the  AFP  Combat  Module  very  nearly 
conforms  to  the  usual  notion  of  area  fire  on  direct  fire  and  weaponless 
targets.  AFP  introduces  a  special  wrinkle  by  permitting  indirect  fire  to 
fall  on  the  special  AFP  counterbattery  versions  of  direct  fire  engagements. 

Interpolation.  AFP  interpolation  is  a  special  process  performed  by  the  AFP 
Interpolation  Module.  As  currently  implemented,  interpolation  permits  Blue 
CIPs  and  COPs  to  be  estimated  for  divisions  with  inventories  "between"  base 
and  target  divisions  whose  final  combat  potentials  are  already  known. 
Interpolation  is  of  the  order  of  100  times  as  fast  as  application  of  the 
full  AFP  process.  Among  other  things,  the  "between"  inventory  must  not 
include  any  weapon  type  not  belonging  to  the  base  or  target  division. 

Modulated.  Term  applied  to  components  of  combat  potentials  indicating  that 
CS/CSS  moduli  have  been  applied.  (See  CS/CSS  moduli.) 

Odds  Class.  A  result  of  the  AFP  Combat  Module's  allocation  process  of  the 
first  kind  is  the  distribution  of  weapon  types  against  opposing  weapon 
types.  If  M  weapons  of  a  type  are  allocated  against  N  weapons  of  an 
opposing  type,  the  overall  weapon  ratio  is  M:N.  The  Combat  Module 
decomposes  the  M: N  into  AFP  duels  (always  only  one  of  at  least  one  weapon 
type  in  each  duel)  at  odds  of  q : 1  and  (q+l):l.  The  odds  classes  of  the 
duels  are  q : 1  and  (q+l):l.  There  are  never  more  than  two  odds  classes. 

There  may  be  a  single  odds  class.  Note  that  the  effect  is  to  produce  one 
or  two  odds  classes  as  close  as  possible  to  the  average  odds  M:N  given  that 
each  duel  include  no  more  than  one  of  the  weapon  types. 

Participation.  The  AFP  Combat  Module  accepts  participation  factors  among 
its  input.  Such  factors  should  lie  on  the  closed  interval  0.0  to  1.0.  The 
factors  provide  a  way  for  the  Combat  Module  to  withhold  some  otherwise 
available  weapons  on  each  AFP  day.  Weapons  may  fail  to  participate  for  any 
of  many  reasons  not  represented  in  the  Combat  Module.  Unlike  external 
losses,  nonparticipating  weapons  are  not  considered  permanent  losses. 

Preference.  Perhaps  the  most  novel  notion  applied  within  AFP  is  that  of 
weapon  engagement  preferences.  Every  weapon  type  has  a  preference  for 
engaging  each  of  the  opposing  weapon  types.  A  preference  factor  must  lie 
on  the  interval  0.0  to  1.0.  For  any  one  weapon  type,  the  sum  of  its 
preference  factors  for  all  opposing  weapon  types  must  never  exceed  1.0. 
Preferences  apply  only  to  direct  fire  weapons.  Inasmuch  as  AFP  represents 
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counterbattery  fire  as  special  direct  fire,  indirect  fire  weapons  may  have 
nonzero  preference  factors  for  one  another;  and  those  factors  for  any  one 
weapon  may  sum  to  less  than  1.0  permitting  the  remaining  weapons  of  the 
type  to  engage  in  ordinary  indirect  fire.  A  zero  preference  need  not 
prevent  a  weapon  from  engaging  an  opposing  type  if  the  opposing  weapon  has 
a  nonzero  preference  for  the  weapon  in  question.  Indeed,  AFP  modifies 
opposing  preferences  by  adjusting  them  one-half  the  way  toward  their  common 
mean.  Preferences  are  applied  within  the  AFP  allocation  process  of  the 
first  kind.  Final  allocation  depends  not  only  on  the  modified  preference 
factors  but  also  on  the  opposing  inventories.  Weapons  will  not  be 
allocated  against  preferred  weapons  that  do  not  exist. 

RADE  (Red  Attack  against  DElaying  defense).  One  of  the  standard  AFP 
postures.  The  Red  to  Blue  division  ratio  in  RADE  is  4:1. 

Range.  The  AFP  Combat  Module  distributes  direct  fire  duels  over  six 
ranges.  In  current  AFP  practice,  the  standard  ranges  are  at  250,  500, 
1,000,  1,500,  2,500  meters,  and  at  "deep"  range. 

Range  Distribution.  AFP  Combat  Module  input  include  range  distributions 
for  opposing  pairs  of  weapon  types.  A  fraction  is  specified  for  each  of 
the  six  AFP  ranges.  The  fractions  across  the  six  ranges  should  total  1.0. 
Duels  are  distributed  in  accord  with  the  input  fractions.  Only  whole  duels 
are  distributed.  One  consequence  of  distributing  only  whole  duels  is  that 
fewer  than  six  duels  cannot  possibly  "occupy"  all  six  ranges.  The  first 
duel  is  assigned  to  the  range  with  the  highest  fraction.  The  next  duel  is 
assigned  to  the  next  highest  fraction.  The  range  distribution  is  performed 
for  each  odds  class  (never  more  than  two  odds  classes)  independently. 

RAPD  (Red  Attach  against  Prepared  Defense).  One  of  the  standard  AFP  combat 
postures.  The  Red  to  Blue  division  ratio  in  RAPD  is  3:1. 

Refire  Time.  The  mean  refire  times  of  weapons  are  specified  by  input  to 
the  AFP  Combat  Module.  Indirect  weapon  refire  is  not  considered  subject  to 
randomness.  Direct  fire  weapons  are  assumed  to  possess  refire  times 
lognormally  distributed  with  the  input  means  and  with  standard  deviations 
equal  to  the  means. 

Score.  See  Combat  Item  Score. 

Shot  Cycle.  The  AFP  Combat  Module  does  not  "keep  time"  in  the  sense  of 
usual  combat  models  or  simulations.  Within  the  Combat  Module  before  a  duel 
begins,  the  Module  calculates  how  many  shots  would  be  fired  within  the 
alloted  time  given  the  numbers  of  weapons  and  their  refire  times.  When  a 
duel  begins,  the  Combat  Module  counts  shots  instead  of  time.  In  general, 
the  underlying  time  increments  from  shot  cycle  to  shot  cycle  will  be 
unequal.  The  inequality  may  arise  because  opposing  sides  may  be  firing 
weapons  with  different  refire  times  and  because  refire  times  are  drawn  as 
lognormally  distributed  variates. 

Stage.  See  Shot  Cycle.  For  most  purposes,  an  AFP  stage  may  be  considered 
a  synonym  for  an  AFP  shot  cycle.  However,  a  subtle  distinction  can  be 
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drawn.  The  AFP  Combat  Module  loops  over  all  the  duels  of  a  conflict  for 
the  same  shot  cycle  in  each  duel  before  processing  the  next  shot  cycle  in 
any  duel.  In  these  terms,  a  shot  cycle  appears  to  be  a  feature  of  a  duel, 
and  a  stage  appears  as  the  collection  of  the  same  shot  cycle  across  duels. 

STATIC.  One  of  the  standard  AFP  combat  postures.  The  Red  to  Blue  division 
ratio  in'  STATIC  is  1:1. 

Supertroop.  This  possibly  misleading  term  has  nothing  to  do  with  the 
quality  of  troops.  AFP  adopted  the  term  to  represent  aggregation  of 
weapons,  usually  small  arms.  Representation  of  individual  small  arms  had 
led  to  prohibitively  long  Combat  Module  execution  times.  Experiments  with 
riflemen  treated  as  groups  of  10  were  successful.  Such  grouping  came  to  be 
known  as  "supertrooping, "  and  the  term  stuck.  In  all  cases  to  date, 
supertrooping  has  been  by  10s.  Note  that  SSPKs  need  not  be  adjusted  when 
supertrooped  weapons  face  supertrooped  weapons.  However,  SSPks  must  be 
modified  when  supertrooped  weapons  face  nonsupertrooped  opponents.  The 
appropriate  PCAS  entry  for  a  10-fold  supertrooped  weapon  should  be  10  times 
the  nonsupertrooped  value. 

Surge.  As  used  with  AFP,  the  word  surge  refers  to  changes  in  casualty 
levels  with  posture.  The  medical  combat  service  support  measure  within  the 
AFP  CS/CSS  Module  depends,  in  part,  on  casualty  rate.  With  the  STATIC 
posture  considered  a  base  case  with  "surge  factor"  of  1.0,  surge  factors 
for  others'  postures  are  determined  by  taking  the  ratio  an  opposing 
division's  personnel  combat  potential  component  per  opponent's  division  to 
the  corresponding  potential  component  in  STATIC  posture.  For  example,  a 
Blue  RAPD  surge  factor  would  be  given  by: 

RAPD  Blue  Surge  = 

((RAPD  Red  Personnel  Potenti al )*3)/( (STATIC  Red  Personnel  Potential )*1) 

(The  factor  "3"  in  the  numerator  is  there  because  the  Red  to  Blue  division 
ratio  in  RAPD  posture  is  3:1.  Hence,  the  potential  of  each  of  three  Red 
divisions  may  be  inflicted  against  the  single  Blue  division.  The  factor 
"1"  in  the  denominator  is  there  because  the  division  ratio  in  STATIC 
posture  is  1:1.) 

Survivor  Reallocation.  If  survivors  remain  after  a  conflict  ends,  and  if 
the  day's  maximum  number  of  conflicts  have  not  been  reached,  the  survivors 
are  regrouped  into  duels,  and  the  next  conflict  is  processed.  The  new 
duels  are  against  the  same  opposing  weapon  type  and  at  the  same  range. 

Type.  If  the  word  type  is  used  alone  within  AFP,  it  usually  refers  to  a 
weapon  type.  The  fundamental  direct  fire  interaction  represented  within 
the  AFP  Combat  Module  is  between  two  opposing  weapon  types.  In  AFP  terms, 
M60A1  and  M60A3  tanks  are  different  weapon  types.  (Tanks  of  different 
types  belong  to  a  weapon  "class."  (See  class.) 

Unmodulated.  Term  applied  to  components  of  combat  potentials  indicating 
that  CS/CSS  moduli  have  not  been  applied.  See  CS/CSS  Moduli. 
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THE  REASON  FOR  PERFORMING  THE  STUDY  is  primarily  widespread  dissatisfaction 
with  previous  combat  potential  estimation  methods  that  do  not  give  enough 
attention  to  influences  noted  below  in  the  study  objectives. 

THE  PRINCIPAL  FINDINGS  during  AFP  System  development  and  implementation  and 
as  evidenced  by  illustrative  examples  in  the  Operator's  and  Programer's 
Guide  to  the  AFP  System  and  by  the  parallel  MICAF  Study  application  are: 

(1)  All  modules,  submodules,  and  special  processors  of  the  AFP  System  for 
estimating  the  static  combat  potential  of  equipment  and  organizations  have 
been  tested  and  perform  as  designed. 

(2)  AFP  estimates  of  static  combat  potentials  depend  on  input  to  the  AFP 
System  and  are  sensitive  to  opposing  sides'  weapon  characteristics,  weapon 
quantities,  type-on-type  engagement  preferences,  environmental  conditions, 
and  combat  support  and  combat  service  support  levels. 

(3)  Full  application  of  the  AFP  System  is  labor,  data,  and  computer 
intensive. 

THE  MAIN  ASSUMPTIONS  for  purposes  of  estimating  static  combat  potentials: 

(1)  The  large-scale  battlefield  may  be  decomposed  into  separate  firepower- 
counterfirepower,  combat  support,  and  combat  service  support  processes. 
These  processes  may  be  analyzed  largely  independently.  Their  separate 
results  may  be  combined  afterward  to  yield  estimates  of  combat  potentials. 

(2)  Total  division  f irepower-counterf irepower  processes  may  be  decomposed 
into  pure  weapon  type  on  pure  weapon  type  engagements.  The  engagements  may 
be  further  decomposed  into  still  smaller  matchups  in  which  at  least  one 
weapon  opposes  one  or  more  weapons.  Only  indirect,  area  fire  weapons  may 
impinge  on  the  interaction  of  otherwise  pure  type-on-type  "duels."  The 
usual  techniques  of  dynamic  modeling  and  simulation  need  not  be  applied 
except  to  the  independent  duels  of  relatively  short  duration. 

(3)  Movement  and  maneuver  need  not  be  represented  within  the  firepower- 
counterf  irepower  process.  Tactical  mobility  may  be  treated  adequately 
within  the  combat  support  and  combat  service  support  processes.  Duels  are 
distributed  to  fixed  ranges. 

THE  PRINCIPAL  LIMITATIONS 


(1)  Like  all  static  indicators,  AFP  combat  potentials  may  be  inappropriate 
bases  for  estimating  prolonged,  fluid  combat. 


(2)  Because  AFP  combat  potentials  depend  on  weighted  averages  for  16  dis¬ 
tinct  combat  environments,  the  potentials  may  not  be  useful  estimators  for 
differently  weighted  or  different  environments.  For  example,  interest  in 
just  one  of  the  combat  environments  implies  a  vastly  different  weighting: 
just  one  1.0  and  15  0.0's. 


(3)  AFP  combat  potentials  are  estimates  of  achievement  for  the  very 
special  circumstance  in  which  one's  own  weapons  are  50  percent  attrited. 
(This  is  why  AFP  combat  potentials  are  often  called  "half-life 
potentials.")  In  general,  the  potentials  do  not  correspond  to  any  one 
common  moment  in  projected  real  time  because  different  weapon  types  do  not 
reach  50  percent  survival  at  the  same  instant. 

(4)  In  its  current  implementation,  the  AFP  System  does  not  represent 
suppression  nor  the  effects  of  echelons  above  division  (other  than  some 
nondivisional  artillery  and  some  fixed  wing  aircraft). 

THE  SCOPE  OF  THE  STUDY  included  development  and  implementation  of  the  AFP 
System  and  parallel  support  of  the  MICAF  Study.  The  Operator's  and 
Programer's  Guide  to  the  AFP  System  provides  a  wealth  of  information  needed 
in  maintaining  and  applying  the  AFP  System.  Some  applications  of  the  AFP 
System  have  been  made  in  support  of  other  studies.  In  particular,  the 
MICAF  I  and  II  Studies  depended  heavily  on  AFP,  and  AFP  "results"  may  be 
found  in  the  MICAF  I  and  II  reports. 

THE  STUDY  OBJECTIVES  are  to  develop  and  demonstrate  (via  the  parallel  MICAF 
application  study)  a  new  method  for  estimating  the  static  combat  potential 
of  equipment  and  organizations.  That  method  is  to  depend  more  directly  on 
quantitative  data,  full  division  inventories  of  opposing  equipment,  combat 
support,  combat  service  support,  and  wider  range  of  combat  environments 
than  in  previous  approaches. 

THE  BASIC  APPROACH  of  AFP  is  to  begin  with  a  highly  stylized  abstraction  of 
the  battlefield,  decompose  the  battlefield  into  separate  processes,  provide 
extensive  input  data  to  drive  those  processes,  and  then  operate  a  system  of 
specially  developed  computer  programs  which  replicate  estimates  of  kills 
and  losses  for  16  different  combat  environments,  project  those  estimates  to 
half-lives,  modify  the  estimates  in  accord  with  support  levels,  and  roll  up 
everything  into  final  estimates  of  combat  potential. 

THE  STUDY  SPONSOR  is  the  Director,  CAA. 

THE  STUDY  EFFORT  was  directed  by  Mr.  Gerald  E.  Cooper,  Strategy,  Concepts 
and  Plans  Directorate.  All  directorates  contributed. 


COMMENTS  AND  QUESTIONS  may  be  directed  to  US  Army  Concepts  Analysis  Agency, 
ATTN:  Assistant  Director  for  Requirements  and  Resources,  8120  Woodmont 
Avenue,  Bethesda,  MD  20814-2797 


